Mért nem jó a pascal kód?

program terulet;

const x = 3.14;

var r : real;

begin

Write('Ird be a kor sugarat: ');

ReadLn(r);

WriteLn('A kor terulete: ', r * r * x :0 :2);

WriteLn('A kor kerulete: ', 2 * r * x :0 :2);

ReadLn;

end.

Talán így már megérted :)

Szia.

Csak, hogy tudd mi volt / mi a hiba a forrásodban :

var x,r:integer;

..

..

..

x:=3.14;

Tehát integerként (egészként) deklaráltad x-et mint változót, aztán pedig adtál neki egy real tupusú (valós) értéket (3.14).

Az integert kell átjavitani 'real'-lá és akkor elvileg működni fog.

Sok sikert.

üdv.