Pascal Örnekleri 2 (Döngüler, for-do)
Programcılıkta bir işin birden çok kez tekrarlanmasını isterseniz döngüleri bilmeniz faydalı olacaktır. Buyrun hemen örneklerle anlamaya çalışalım.
24)1’den 10’a kadar olan sayıların toplamını bulan program.
Çöz:24)uses crt;
var
i,b:integer;
begin
for i:=1 to 10 do begin
b:=b+i;
end;
writeln(b);
readln;
end.
25)1’den 20’ye kadar olan çift sayıların toplamını veren program.
Çöz:25)uses crt;
var
i,b:integer;
begin
for i:=1 to 20 do begin
i:=i+1;
b:=b+i;
end;
writeln(b);
readln;
end.
26)Ekrana 10 kere isim yazan program.
Çöz:26)uses crt;
var
i:integer;
begin
for i:=1 to 10 do begin
writeln(‘sonnur’);
end;
readln;
end.
27)Klavyeden girilen sayının faktöriyelini hesaplayan program.
Çöz:27)uses crt;
var
i,a,fak:integer;
begin
fak:=1;
write(‘sayıyı gir:’);readln(a);
for i:=1 to a do begin
fak:=fak*i;
end;
writeln(fak);
readln;
end.
28)Klavyeden girilen sayıya kadar olan sayıların karelerini toplayan program.
çöz:28)uses crt;
var
i,a,b:integer;
begin
write(‘sayıyı gir:’);readln(a);
for i:=1 to a do begin
b:=b+(i*i);
end;
writeln(b);
readln;
end.
Benzer Konularımıza da Göz Atın!
- Pascal Örnekleri 6 ( Mükemmel Sayılar, Asal sayılar, Biraz oyun yapalım.)
- Pascal Örnekleri 1 (Karar verme oparatörleri)
- Pascal Programlama Dili ( Başlangıç...)
- Pascal Örnekleri 5 ( Stringler ve Gotoxy)
- Pascal Örnekleri 12 ( AscII tablosu ve Faktoriyel)
- Case...Of
- Pascal Örnekleri 19 (Sınav kağıdını dolduran program)
- Pascal Örnekleri 17 ( Dosyalama İşlemleri )
- Pascal Örnekleri 4 ( Random (Rastgele) fonksiyonu )
Bu süper oldu Yazılı öncesi işime çok yaracak.
süper
bu site cok hoşuma gitti snwlarda yardımcı oluyor tsk..:)) haylaZZ
soruların cevaplarını pascal programıyla yazabilen varsa yardımcı olurmusunuz ??
Soru 1: Klavyeden sayılar giriliyor, Girilen sayı tek ise Karesi çift ise küpü alınarak toplanıyor. Bu işlem girilen sayı 0 oluncaya kadar devam ediyor.
Soru 2: 12 Basammaklı girilen bir sayının rakamları diziye giriliyor en küçük rakamı bulan programı yazınız.
Soru 3: Rastgele oluşturulan 100 adet sayı diziye giriliyor.
5\’e ve 3\’e bölünebilenleri ayrı ve 5\’e ve 3\’e bölünemeyenleri ayrı toplayan program.
Soru 4: Öğrencilerin vize final notu giriliyor. Vizenin %40 finalin ise %60 ı alınıyor. Sonuç 55 ten küçükse kaldı büyükse veya eşitse geçti yazan program.