Programalama > PASCAL

PROGRAM KILO;
USES CRT;
VAR
AD,SOYAD,ADRES:STRING;
A,B:INTEGER;
C,D:REAL;
BEGIN
TEXTBACKGROUND(RED);
CLRSCR;
TEXTCOLOR(BLINK+WHITE);
GOTOXY(20,18); WRITE('------------IDEAL KILO PROGRAMI------------');
TEXTCOLOR(2);
GOTOXY(26,25); WRITE('******GIRILECEK  BILGILER******');
TEXTCOLOR(3);
GOTOXY(30,27); WRITE('1-ADINIZI GIRINIZ:');
GOTOXY(30,29); WRITE('2-SOYADINIZI GIRINIZ:');
GOTOXY(30,31); WRITE('3-ADRESINIZI GIRINIZ:');
GOTOXY(30,33); WRITE('4-BOYUNUZU GIRINIZ:');
GOTOXY(30,35); WRITE('5-KILONUZU GIRINIZ:');
TEXTCOLOR(14);
GOTOXY(49,27); READLN(AD);
GOTOXY(52,29); READLN(SOYAD);
GOTOXY(52,31); READLN(ADRES);
GOTOXY(50,33); READLN(A);
GOTOXY(50,35); READLN(B);
C:=B*B;
D:=C/A;
IF (D>=20) AND (25>=D)  THEN
BEGIN
WRITELN;
TEXTCOLOR(15);
GOTOXY(25,38);WRITE('FORMDA KALMANIN SIRRINI VERSENE YA!!!');
END;
IF 20>=D THEN
BEGIN
WRITELN;
TEXTCOLOR(15);GOTOXY(10,38);WRITE('SAATI SORSALAR ETI KEMIK GECIYOR DIYEMEZSIN CUNKU SENDE ET YOK!!!');
END;
IF D>=25 THEN
BEGIN
WRITELN;
TEXTCOLOR(15);
GOTOXY(20,38);WRITE('YETER YEDIN.SENIN YUZUNDEN AFRIKADA KITLIK CIKTI!');
END;
READLN;
END.

ali eren simsek &amp&amp#3541shimseqh&amp&amp#3540
shimseqh_76@hotmail.com