Izteiksmes vērtība Turbo Pascal vidē.

Kāds būtu pareiz programmas izskats šij gadījumā? Kāds ir pareizais mainīgā tips?

Sastādīt programmu, kura aprēķina vērtību izteiksmei u=(x+3*y)*z/(x2+18), ja x=4.75, y=16.37, z=23.42. Rezultātu noapaļot līdz simtdaļām.

Mans pašreizējais kods ir šāds:
program izteiksme;
var x, y, z, u: real;
begin
x:=4.75;
y:=16.37;
z:=23.42;
u:=(x+3*y)*z/(sqr(x)+18);
writeln('u = ',u);
readln;
end.

Iznākumā iegūstu man nesaprotamu skaitli:
3.10977183359209E+0001

Kāds var padomu dot kā iegūt iznākumā skaitli, kas tiktu noapaļots ar precizitāti līdz simtdaļām?

Komentāri:

#1 pinkzurka @ 2009.11.19 18:30

program kk2;
var x, y, z, u :real;
begin
x:=4.75;
y:=16.37;
z:=23.42;
u:=(x+3*y)*z/(sqr(x)+18);
Writeln('u=', u:2:2);
Readln;
end.

[uhh, šie NPS kontroluzdevumi]