Pascal ÖĞRENİYORUM 1.1

CorsaiR

CorsaiR

Emektar
27 Ara 2005
1,228
18
Çekirdekten
PASCAL ÖĞRENİYORUM 1.1 O KALIN KİTAPLARI OKUMAKTANSA BU PROGRAMI TERCİH EDERİM.HEM ÖĞRENCİLERİN ANLAYA BİLECEĞİ BİR DİLDE ANLATTIM.ÇÜNKÜ BENDE BİR ÖĞRENCİYİM.İÇİNDE DÖNGÜLER,PRG. AKIŞ KONTROL,FONKSİYONLAR,PROCEDURELER VE KOLAY ANLAŞA BİLECEK ÖRNEKLERDE VAR İLERKİ SÜRÜMLERİNDE ARKASIDA GELECEK (SORULARINIZ İÇİN [email protected]'a yollaya bilirsiniz)uses crt;
var
i:byte;
sec:char;
procedure hakimda;
begin
clrscr;
writeln('AD : Ismail Orhun');
writeln('SOYAD: OZCELIK');
writeln('YAS : 17');
writeln('OKUL : Haydarpasa E.M. OKULU T10D SINIFI');
writeln('SšREC: Pogramin kapladigi srec lise 2. sinif ilk d”nem');
readln;
end;
procedure dongu;
begin
clrscr;
gotoxy(25,2);write('Q) FOR DONGUSU');
gotoxy(25,4);write('W) REPEAT UNTIL DONGUSU');
gotoxy(25,6);write('E) WHILE DO DONDUSU');
sec:=readkey;
sec:=upcase(sec);
case sec of
'Q':begin
clrscr;
gotoxy(1,1);
write(' BU DONGU ISIMIZI KOLAYLASTIRMAK ICIN YAPILMISTIR.MESALA ADINIZI 10');
writeln('DEFA YAZIN DESEK.BUNU YAZMAK ICIN ADINIZI 10 DEFA YAZMA KOMUTUYLA DEGILDE');
writeln('BIR DONGUYLE YAPABILIRIZ');
textcolor(red);
writeln('USES CRT;');
writeln('VAR');
writeln('i,defa:integer;');
writeln('adiniz:string;');
writeln('BEGIN');
writeln('clrscr;');
writeln('write("ADINIZ:");readln(adiniz);');
writeln('write("KAC DEFA YAYINLANSIN:");readln(defa);');
writeln('for i:=1 {baslangic noktasi} to defa {bitis sayisi} do');
writeln('begin');
writeln('writeln("adiniz");');
writeln('end.');
readln;
end;
'W':begin
clrscr;
writeln('BU DONGUYE GIRMEK ICIN BASTA BELIRLEDIGINIZ SARTI DOGRULAMAK ZORUNDA.');
writeln('YANLIS OLANA DEK ISE CIKMAZ');
textcolor(red);
writeln('USES CRT;');
writeln('VAR');
writeln('ch:char;');
writeln('a,,b,,c:byte;');
writeln('BEGIN');
writeln('clrscr;');
writeln('ch:="e";');
writeln('while ch="e"{sartimiz} then');
writeln('Begin');
writeln('write("BIRINCI SAYI:");readln(a);');
writeln('write("IKINCI SAYI:");readln(b);');
writeln('c:=a+b');
writeln('writeln("SONUC:",,c);');
writeln('write("DEVAM ETMEK ISTIYORMUSUNUZ (e\h):");readln(ch)');
writeln('end;');
writeln('readln;');
writeln('END.');
readln;
end;
'E':begin
clrscr;
writeln('BU DONGUYE GIRMEK ICIN SART YOK.HEMDE ILK BASTA DIREK GIRIYOR');
writeln('AMA CIKISI ISE SART DOGRU OLUNCA CIKIYOR');
textcolor(red);
writeln('USES CRT;');
writeln('VAR');
writeln('ch:char;');
writeln('a,,b,,c:byte;');
writeln('BEGIN');
writeln('clrscr;');
writeln('ch:="e";');
writeln('repeat');
writeln('Begin');
writeln('write("BIRINCI SAYI:");readln(a);');
writeln('write("IKINCI SAYI:");readln(b);');
writeln('c:=a+b');
writeln('writeln("SONUC:",,c);');
writeln('write("DEVAM ETMEK ISTIYORMUSUNUZ (e\h):");readln(ch)');
writeln('until ch="h" {sartimiz};');
writeln('readln;');
writeln('END.');
readln;
end;
end;
end;

procedure akis;
begin
clrscr;
gotoxy(25,2);write('Q) IF THEN,,ELSE YAPISI');
gotoxy(25,4);write('W) ELSE IF YAPISI');
gotoxy(25,6);write('E) CASE OF YAPISI');
sec:=readkey;
sec:=upcase(sec);
case sec of
'Q':begin
clrscr;
gotoxy(3,3);
write(' BU YAPI KISACA BIR SART YAPISIDIR.™RNEGIN BU GUN YAGMUR YAGARSA OKULA GIDICEM.BURADAKI YAGMURUN YAGMASI ');
writeln('BIZIM SARTIMIZDIR.PEKI BUNU PASCAL SIZCE NASIL ALGILIYOR ASAGIDAKI ™RNEKDEKI DIKKATLE INCELEYELIM ');
textcolor(red);
writeln('USES CRT;');
writeln('VAR');
writeln('yas:byte;');
writeln('BEGIN;');
writeln('clrscr; (ekrani silme komutu)');
writeln('write("YASINIZ KAC=");');
writeln('readln(yas) <-bu komut ise ramdaki yas diye adlandirdiginiz odaciga veri gisi yapildi');
writeln(' {BIZ 17 GIRDIK SIZ ISTEDIGINIZ YASI GIRIN}');
writeln('if yas>=17 then <-burada yas 17"ye esit veya bugukse dedik');
writeln('begin <-if then"in baslayis noktasi');
writeln('writeln("BARA GIRE BILIRSINIZ");');
writeln('end <-aslinda end"in sonunda hep ";" isaret kunlanilir');
writeln(' else olunca isaret kaldirilir');
writeln('else');
writeln('writeln("YASINIZ TUTMUYOR GIREMEZSINIZ <-eger tek komutsa begin,end; koymaniza gerek yok');
writeln('readln; <-PASCAL ORTAMINDAYKEN YAPTIGINIZ PROGRAMI G™RMEK ISTIYORSANIZ bitimine bu komutu kunlanmalisiniz');
writeln('end. <-Programin bitisini g”sterir');
textcolor(yellow);
writeln('EGER BURADA 17 DEN DUSUK BIR SAYI GIRSEYEDIGINIZ DEGILDIR (ELSE) B™LUMU CALISIP SIZE GIREMESSINIZ DERDI');
readln;
end;
'W':begin
clrscr;
gotoxy(3,3);
write(' BU YAPI KISACA BIR IF YAPISIDIR.TEK FARKI ISE FAZLA IF KUNLANINCA');
writeln('ORTAYA COK KARISIK AKIS DIYAGRAMI CIKMAKTADIR');
textcolor(red);
writeln('USES CRT;');
writeln('VAR');
writeln('yas:byte;');
writeln('BEGIN;');
writeln('clrscr; (ekrani silme komutu)');
writeln('write("YASINIZ KAC=");');
writeln('readln(yas)');
writeln(' {BIZ 17 GIRDIK SIZ ISTEDIGINIZ YASI GIRIN}');
writeln('if (yas=17) or {veya} (yas=18) then');
writeln('begin');
writeln('writeln("BARA GIRE BILIRSINIZ");');
writeln('else if yas>18 then');
writeln('writeln("DAMSIS GIREMESSINIZ");');
writeln('end');
writeln('else');
writeln('writeln("YASINIZ TUTMUYOR GIREMEZSINIZ');
writeln('readln;');
writeln('end.');
TEXTCOLOR(YELLOW);
readln;
end;
'E':begin
clrscr;
gotoxy(3,3);
write(' BU YAPI KISACA SARTLAR YAPISIDIR.MESALA D™RT ISLEM YAPCAKSINIZ VE');
writeln('BUNUN ICIN D™RT TANE IF THEN YAPISI KUNLANCAKSINIZ BUNLARA GEREK YOK');
textcolor(red);
writeln('USES CRT;');
writeln('VAR');
writeln('a,b,c,sec:byte;');
writeln('BEGIN;');
writeln('clrscr;');
writeln('writeln("MENU");');
writeln('writeln("1-toplama");');
writeln('writeln("2-cikarma");');
writeln('write("SECIN=");');
writeln('readln(sec)');
writeln('case sec of');
writeln('1:begin');
writeln('write("BIRINCI SAYI:"); readln(a) ');
writeln('write("IKINCI SAYI:"); readln(b) ');
writeln('c:=a+b;');
writeln('writeln("SONUC:",,c);');
writeln('end;');
writeln('2:begin');
writeln('write("BIRINCI SAYI:"); readln(a) ');
writeln('write("IKINCI SAYI:"); readln(b) ');
writeln('c:=a-b;');
writeln('writeln("SONUC:",,c);');
writeln('end;');
writeln('end; <-CASE OF un end"i');
readln;
textcolor(yellow);
end;
end;
end;
procedure dizinler;
begin
clrscr;
writeln('DIZINLER BIR ANLAMDA KUMELER DEMEKTIR.DIZILER DIGER BIR ANLAMIDA ISE');
writeln('TUMLESIK RAM ODACIKLARIDIR.ORNEGIN 100 TANE AYNI ADI TASIYAN RAM ODACIKLARI');
writeln('ACMAK ISTIYORSANIZ BUNU TEK BIR KUME ICINDEDE ALABILIRSINIZ');
textcolor(red);
writeln('USES CRT;');
writeln('VAR');
writeln('a:array[1..20] to byte;');
writeln('i,,defa:integer;');
writeln('BEGIN');
writeln('clrscr;');
writeln('write("KACA KADAR GITSIN:");readln(defa);');
writeln('for i:=1 {baslangic noktasi} to defa {bitis sayisi} do');
writeln('begin');
writeln('a:=i;');
writeln('end.');
textcolor(yellow);
writeln('BURADA YAZDIGIMIZ PROGRAMDA A KUMESININ BIRINCI ODASINA i"yi YANI');
writeln('i KACDAN BASLIYORSA O VERIYI GIRDIK (a[1] de su an 1 verisi var)');
writeln('defa degiskenini kacta bitirdiysek a kmesinin defa elemanina kadar');
writeln('veri girildi');
readln;
end;
procedure fonk;
begin
clrscr;
gotoxy(1,1);
writeln('ABS : Bir sayinin mutlak degerini bulur ORN-> i:=abs(i);');
writeln('ARCTAN: Tanjanti verilen bir aciyi hesaplar ORN-> r:=arctan(10);');
writeln('CHR : Sayinin (0-255) ASCII karakterini veri ORN-> chr(2);');
writeln('CLRSCR: Ekrani silmek izin kunlaniriz ORN-> clrscr;');
writeln('COPY : Bir yaziyi kopyalamaniza yardimci olur ORN-> v:=copy("orhun",2,2);');
writeln('yazdirdiginizda 2. harften baslayip 2 karakter ilerisine kadar olan veriyi V"ye adar');
writeln('COS : Radyan olarak verilen acinin cosinsn bulur ORN-> cos(9);');
writeln('DELAY : Program belirli bir sekilde bekletilir ORN-> delay(100);');
writeln('EXIT : Pogramdan cikar ORN-> exit;');
writeln('GETTIME: Isletim sistemindeki saati retir ORN-> gettime(a,b,c,d);');
writeln('GOTOXY: Monitor bir yeryz gibi dsn buradaki meridiyenler 80 paraleller');
writeln('25 tane dsnn yazi yazilacak yerin kodlari verilerek promp oraya tasinir');
writeln(' ORN: gotoxy(x,y); x=meridiyen y=paralel gotoxy(40,13); monit”rn tam ortasi');
writeln('KEYPRESSED: sadece repeat until da kunlanilan bir fonksiyondur');
writeln(' bir tusa basana kadar d”ngden cikmaz ORN-> until keypressed;');
writeln('LENGTH: Bir stringin kac karakterden olustugunu bulur ORN-> m:=length(i);');
writeln('ORD : Karekterin ASCII numarasini verir ORN-> p:=ord("B");');
writeln('RANDOM: Belirlediginiz sayilar arasi numara retir bunlari uretmesi icin');
writeln(' ”ncelikle BEGIN b”lmne randomize; kunlanmalisiniz l:=random(10);');
writeln('READKEY: Klavyeden girilen bir karakteri ekrana kunlaniciya g”stermeden');
writeln(' girer ama veri tipi char olmak zorunda ORN-> t:=readkey;');
writeln('ROUND : real bir sayiyi yuvarlar integere cevirir ORN-> i:=round(c);');
readln;
clrscr;
writeln('SIN : radyan olarak verilen acinin sinsn hesaplar ORN-> c:=sin(12);');
writeln('SQR : sayinin karesini alir ORN-> y:=sqr(14);');
writeln('SQRT : sayinin karek”kn bulur ORN-> y:=sqrt(4);');
writeln('TEXTCOLOR: yazi rengini ayarlar 1 ile 15 arasi renkler var ORN-> textcolor(4);');
writeln('TEXTBACKGROUND: yazi renginin arkasini ayarlar 15 e kadar olan renkleri kun ORN-> textbackground(4);');
writeln('TRUNC : real bir sayiyi kesir b”lmn atarak integer"e ‡evirir ORN-> c:=trunc(31.456);');
readln;
end;
procedure procedureler;
begin
clrscr;
textcolor(yellow);
writeln('PROCEDURELER SADECE ISIMIZI KOLAYLASTIRMAK ICIN VARLAR SALINDA');
writeln('ONLARSIZDA OLUR.PROCEDURELER ASLINDA ANA PROGRAM ICINDEKI');
writeln('PROGRAMCIKLARDIR ANA PROGRAMDA CALISTIRMAK ICIN PROCEDUREYI');
writeln('CAGIRMAK GEREKIR');
textcolor(red);
writeln('USES CRT;');
writeln('VAR');
writeln('a,b,c:byte;');
writeln('procedure topla;');
writeln('begin <-procedurenin baslama noktasi');
writeln('write("BIRINCI SAYI:");readln(a);');
writeln('write("IKINCI SAYI:");readln(b);');
writeln('c:=a+b;');
writeln('end; <-procedurenin bitimi');
writeln('BEGIN <-ANA PROGRAM BASLANGICI');
writeln('clrscr;');
writeln('topla; <-topla proceduresi cagriliyor');
writeln('writeln("TOPLAMI:",,c);');
writeln('readln;');
writeln('END. <-ana programin sonu');
textcolor(yellow);
writeln('PROCEDUREDE KUNLANIRKEN DIKKAT ETMEMIZ GEREKEN NOKTALAR');
writeln('*PROCEDURENIN BEGINI VE ENDINI KARISTIRMAMAK GEREKIR');
writeln('*PROCEDURELERI (TANIMLAMA) VAR BLOGUNDAN SONRA YAZMALIYIZ');
readln;
end;
begin
repeat
clrscr;
for i:=1 to 24 do
begin
textbackground(8);
insline;
end;
textcolor(yellow);
gotoxy(25,1);
write('1)-PROGRAM AKIS KONTROL-');
gotoxy(25,3);
write('2)-------DONGULER-------');
gotoxy(25,5);
write('3)-------DIZINLER-------');
gotoxy(25,7);
write('4)------FONKSIYONLAR----');
gotoxy(25,9);
write('5)------PRACEDURELER----');
gotoxy(25,13);
write('7)---------CIKIS--------');
gotoxy(25,11);
write('6)--------HAKKIMDA------');
gotoxy(1,24);write('PASCAL OGRENIYOM 1.1 OrHuN_SOFT');
textcolor(red);
gotoxy(1,25);write('SORULARINIZ ICIN [email protected]');
textcolor(yellow);
sec:=readkey;
sec:=upcase(sec);
case sec of
'1':akis;
'2':dongu;
'3':dizinler;
'4':fonk;
'5':procedureler;
'6':hakimda;
'7':exit;
end;
until sec='7';
end.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.