Programalama > PASCAL

uses crt;
var
k,p,b,a,i:integer;
c:real;
cvp:string;
begin
clrscr;
textcolor(white);
writeln('Nazm DEM˜R   (SDU/Senirkent MYO ”§rencisi)');
gotoxy(35,6);
textcolor(red);
write('Birinci Kenar Uzunlu§u---->');
gotoxy(35,9);
write('˜kinci Kenar Uzunlu§u----> ');
gotoxy(35,12);
write('H˜POTENšS---->');
for i:=2 to 14 do
begin
delay(150);
gotoxy(11,i);
textcolor(green);
writeln('.');
end;
for i:=11 to 24 do
begin
delay(150);
gotoxy(i,14);
write('.');
end;
gotoxy(24,14);
a:=24;
b:=14;
for i:=14 to 26 do
begin
delay(150);
gotoxy(a,b);
write('.');
a:=a-1;
b:=b-1;
end;
begin
textcolor(white);
gotoxy(62,6);
read(p);
gotoxy(61,9);
read(k);
c:=sqrt((p*p)+(k*k));
gotoxy(49,12);
write(c:0:3);
readln;
end;
readln;
end.

nazım demir
demirnazim@hotmail.com