Merhaba arkadaşlar bundan sonra sizlere pascal programlama dili ile yapılmış örnekler verecegimi daha önce söylemiştim sıradaki örnegimiz pascal programlama'da 100'e kadar olan sayıları saymayı saglayan program kodlarını paylaşacagım.Bu örnegimizde for döngüsünü görecegiz. Yapamadıgınız yerleri sorularınızı yorum yapmayı unutmayınız.

var
i:integer;
Begin
for i:=1 to 100 do
writeln(i);
readln;
end.

Continue reading

Merhaba arkadaşlar bundan sonra sizlere pascal programlama dili ile yapılmış örnekler verecegimi daha önce söylemiştim sıradaki örnegimiz pascal programlama'da klavyeden girilen sayıya kadar olan sayıları saymayı yapmayı saglayan program kodlarını paylaşacagım.Bu örnegimizde klavyeden deger girmeyi, il else yapısını  görecegiz. Yapamadıgınız yerleri sorularınızı yorum yapmayı unutmayınız.

var
sayac:integer;
kac:integer;
label etik; 
begin
write('Kaca kadar...:'); readln(kac);
sayac:=0;
etik:
sayac:=sayac+1;
writeln(sayac);
if(sayac<kac) then goto etik;
readln;
end. 

Kodları indirmek için tıklayınız.

Continue reading

Turbo Pascal

Merhaba arkadaşlar bundan sonra sizlere pascal programlama dili ile yapılmış örnekler verecegimi daha önce söylemiştim sıradaki örnegimiz pascal programlama'da vize ve final not hesaplama yapmayı saglayan program kodlarını paylaşacagım.Bu örnegimizde klavyeden deger girmeyi, case yapısını ve ortalama almayı görecegiz. Yapamadıgınız yerleri sorularınızı yorum yapmayı unutmayınız.

var
vize:integer;
final:integer;
ort:real;
begin
readln (vize , final);
div ort:=vize+final/2;
case ort of
0..49:writeln('FF');
50..59:writeln('CC');
60..69:writeln('CB');
70..79:writeln('BB');
80..89:writeln('BA');
else writeln('AA');
end;
readln;
end.

Kodları indirmek için tıklayınız.

Continue reading

Turbo Pascal

Merhaba arkadaşlar bundan sonra sizlere pascal programlama dili ile yapılmış örnekler verecem ilk örnegimiz pascal programlama da klavyeden girilen iki sayı ile dört işlem yapmayı saglayan program kodlarını paylaşacagım.Bu örnegimizde klavyeden deger girmeyi, case yapısını ve dört işlem yapmayı görecegiz. Yapamadıgınız yerleri sorularınızı yorum yapmayı unutmayınız.

var 
d1:real;
d2:real;
sonuc:real;
sec:integer; par:boolean;
begin
par:=true;
writeln('1.Sayı...:'); readln(d1);
writeln('2.Sayi...:'); readln(d2);
writeln('1: Topla, 2: Cıkarma, 3: Çarpma, 4: Bölme');
writeln('işlem Sec...:'); readln(sec);
case sec of 
1: sonuc:=d1+d2; writeln('sonuc...:', sonuc); 
2: sonuc:=d1-d2;
3: sonuc:=d1*d2;
4: sonuc:=d1/d2;
else begin
par:=false;
write('Hatalı Giriş...');
end;
if par<>true then writeln('sonuc...:', sonuc); 
end;
readln;
end. 

Kodları indirmek için tıklayınız.

Continue reading