Statystyki: złe wyniki

0

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:)

0

8.75?
a nie 8.75E-1 :>

0

dokładnie to:
8.7500000000E-02
ale to nie ma chyba znaczenia bo przy poprawnych wynikach tez tak jest więc to skracałem

0

właśnie sprawdziłem...
wszystkie wyniki choćby w najprostszych programach poniżej zera są złe :-/ i nie wiem co mam zrobic;/

0

juz sobie poradziłem

1 użytkowników online, w tym zalogowanych: 0, gości: 1