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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.