Witam mam problem...
Być może ktoś z was jest kibicem żużla i będzie dokładnie wiedział o co mi chodzi, a jeżeli nie to wytłumaczę.
otóż:
chce zrobić statystyki żużlowe i:
zdeklarowałem wszystkie zmienne czyli:
pierwsze,drugie,trzecie,bonusy,biegi:longint;
imieinazwisko:string;
oczywiście pierwsze,drugie,trzecie to miejsce na mecie:)
i chce aby program policzył średnią biegową (czyli podzielił ilość punktów przez ilość biegów)
ilość punktów to działanie (pierwsze3+drugie2+trzecie+bonusy)
a biegi podaje użytkownik:)
wszystko ładnie, sprawnie idzie bo jeżeli wyjdzie mi, że zawodnik ma 35 pkt. a jechał w 20 biegach to wynik wychodzi 1.75, ale mam mały zonk:
jeżeli wyniik wychodzi poniżej 1.00 to jest troche dziwne np.:
zawodnik ma 35 pkt. w 40 biegach. Powinno wyjść 0.875 a wychodzi... 8.75:D
oto mój kod:
uses crt;
var
pierwsze,drugie,trzecie,bonusy,biegi:longint;
imieinazwisko:string;
begin
clrscr;
writeln('podaj imię i nazwisko zawodnika');
readln(imieinazwisko);
writeln;
writeln('podaj ilość zwycięstw');
readln(pierwsze);
writeln('podaj ilość drugich miejsc');
readln(drugie);
writeln('podaj ilość trzecich miejsc');
readln(trzecie);
writeln('podaj ilość bonusów');
readln(bonusy);
writeln('podaj ilość biegów');
readln(biegi);
writeln;
write(imieinazwisko,' uzyskał średnią: ');
writeln((pierwsze*3+drugie*2+trzecie+bonusy)/biegi);
readln;
end.
próbowałem także instrukcję warunkową:
if (pierwsze*3+drugie*2+trzecie+bonusy)/biegi<1 then writeln((pierwsze*3+drugie*2+trzecie+bonusy)/biegi/10);
if (pierwsze*3+drugie*2+trzecie+bonusy)/biegi>=1 then writeln((pierwsze*3+drugie*2+trzecie+bonusy)/biegi);
ale też nie działa;/
mam nadzieje, że mi pomożecie:)