Pascal Dersleri

once komutlara bi bakalım degisken degerlerini filen söliyicem ama onemli seylere deginmek istiyorum ; (noktalı virgül) komutun bittigini belirtir
ana program begin ile baslar ve genelde begin clrscr; kullanın
ayrıca end sadece bisey ifade etmez end. olursa program bitti demektir end; olursa kod toplulugu bitti demektir herneyse
devam ediyoruz dev paslcalı kurmussunuzdur artık şimdi
var komutunu söliyim var degisken baslangıcı (heralde öledir) (varın sonuna ; gelmez)
birde program komutu var bu bi ise yaramaz ornegin program deneme; programın adını yazarsınız
ve
ornek bir program yapalım
Program deneme;
uses crt;
begin clrscr;
write('yazi yazma alani');
writeln('pc nin size soledigi yani sizin deger girmeyeceginiz yazi');
readln;
end.
uses crt; var bunu hep kullanun
gordugunuz gibi '' içerisine yazılıyor hersey zaten ornek ten bişiler anlamıssınızdır
gelelim degiskenlere:
degerlerini sölemiyim kafanız karısabilir ben yeni orenirken kafayı yiyiodum degisken ler yüzünden ben size direk byte olarak degerlerini söliyicem degiskenlerin
byte; kapladığı yer 1byte
shortint; kapladığı yer 1byte
integer; kapladığı yer 2byte
word kapladığı yer 2byte
longint kapladığı yer 4 byte
degisken olayını halledersiniz artık sanırım
devam edelim
bir ornek program daha:

program toplama;
uses crt;
var
sayi1,sayi2:integer;
begin clrscr;
write('Birinci sayi: ');readln(sayi1);
write('Ikinci sayi: ');readln(sayi2);
writeln('Sonuc: ',sayi1+sayi2);
readln;
end.

programda gordugunuz gibi degisken degeri atadık sayi1 ve sayi2 ye aralarında virgün (,) var zaten olayı anlamıssınızdır writeln('sonuc: ',sayi1-sayi2); olsaydı çıkarma olurdu insallah matıgı anlamıssınızdır
bu arada sondaki readln; programa giris izni verir.(herzaman olmalı)

ornegin girilen 3 sayinin en buyugunu ve en kucugunu bulan program yapalım

program sayma;
uses crt;
var
s1,s2,s3:longint;
begin clrscr;
write('birinci sayi');readln(s1);
write('ikinci sayi');readln(s2);
write('ucuncu sayi');readln(s3);
writeln('sıralamaları < ve > olarak',s1,s2,s3>s3,s2,s1);
readln;
end.

programdan bisiler anlamıssınızdır artık heralde longint kullandım cunku sayilar buyuk olabilir gordugunuz gibi readln(s1); filen artık anlayın yaw burdan bisiler bu kadar yeter ama devam edicem diger saylfalara filende bakın

gotoxy komutu

program sayma;
uses crt;
var
s1,s2,s3:longint;
begin clrscr;
write('birinci sayi');readln(s1);
write('ikinci sayi');readln(s2);
write('ucuncu sayi');readln(s3);
gotoxy(12,12);writeln('sıralamaları < ve > olarak',s1,s2,s3>s3,s2,s1);
readln;
end.