W celach edukacyjnych napisałem program w Pascalu obliczający średnią z czterech liczb:
Program Average;
Var a,b,c,d:Integer;
Begin
Write('Enter A: ');
ReadLn(a);
Write('Enter B: ');
ReadLn(b);
Write('Enter C: ');
ReadLn(c);
Write('Enter D: ');
ReadLn(d);
WriteLn('The average number is: ',((a+b+c+d)/4));
ReadLn;
End.
Nie jestem zdziwiony, że wynik jest liczbą zmiennoprzecinkową, bo zastosowałem "zwykłe" dzielenie, a nie dzielenie całkowite (x div y). Jednak po wyświetleniu na konsolę wynik ma bardzo dużo niepotrzebnych zer po kropce. Czy jest jakiś sposób, aby obciąć wynik do np. pięciu miejsc dziesiętnych.