Free Pascal :D

Datori un internets » Programmēšana un dizains

Sveiki:)
Ir jāuztaisa maza programmiņa, kas aprēķina noteiktus lielumus.

Visu esmu uz lapas normāli uzrakstījis, ierakstījis normāli, bet problēmas sākās iekš Free Pascal.

Lūk aplūkojama (vēl nepabeigtā programma) :
program lapas;
uses crt; {moduļa pieslēgšana}
var
z, {zibatmiņas ietilpība}
y, {cik lapu ietilps zibatmiņā}
u,h
:longint;
d, {disketes ietilp}
x, {cik lapu ietilps disketē}
a {cik baitu ir vienā lapā}
:longint;
begin
clrscr; {notīram ekrānu}

a:=80*66; {tiek aprēķināts a}
writeln ('Baiti vienā lapā : ', a);

d:=1509949.44;
x:= d div a;
writeln (x);
readln;
end.

Bet problēmas ir ar d. Kad kompilēju progu, tad Pascal izmet erroru. " Got Extended but expected LongInt " .
(eksperimenta pēc, izņēmu to komatu pie d vērtības, un viss aizgāja. bet ieliekot vajadzīgo komatu iekš d vērtības atpakaļ , tiek mesti error.)

Vai kads var palīdzēt??
Paldies:)

• Labs jautājums?
  
• Jā
•  
• Nē

Pirms 10 gadiem

• Tweet