23 Ekim 2009 Cuma

UYGULAMA11-22EKİM

klavyeden girilen 3 sayının (a,b,c) karşılaştırılması.
---------------------------------------------------------------------------

PROGRAM abcsirasi;
USES CRT;
VAR a, b, c: REAL;

BEGIN

CLRSCR;
WRITELN ('siralamak istediginiz a,b ve c sayilarini sirayla giriniz');
READLN (a,b,c);

if a>b then
begin
if a>c then

begin
if b>c then
writeln ('a>b>c')
else
writeln ('a>c>b')
end

else
writeln ('c>a>b')
end;


if b>a then
begin
if b>c then

begin
if a>c then
writeln ('b>a>c')
else
writeln ('b>c>a')
end

else
writeln ('c>b>a')
end;


READLN;

END.

Hiç yorum yok:

Yorum Gönder