UYGULAMA 3 - 08 Ekim 2009

Klavyeden girilen bir gerçek (real) sayının:
(a) Karesinin;
(b) Küpünün;
(c) Karekökünün ekrana yazdırılması...

---------------------------------------------------------------------------------
PROGRAM KAREKOK;

VAR a, aKare, aKup, aKok: REAL;


BEGIN

WRITE('Bir sayı giriniz: ');
READLN(a);

aKare := SQR(a);
aKup := SQR(a) * a;
aKok := SQRT(a);

WRITELN('Sayının Karesi = ', aKare: 8: 2);
WRITELN('Sayının Küpü = ', aKup: 8: 2);
WRITELN('Sayının Karekökü = ', aKok: 8: 2);
WRITELN('Bir tuşa basınız...');

READLN;

END.