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.

Yazar: kacarozgur

Özgür Kaçar sitemizde 38 yazı eklemiş...

Share
  • Oktay Tultak

    @birkanoruc:disqus abı acil bak lutfen

  • Oktay Tultak
  • Birkan Oruç

    Soru 4’ün Cevabı:
    var
    vize,final,ort:real;
    begin
    writeln(‘Vize Notunu Giriniz : ‘);readln(vize);
    writeln(‘Final Notunu Giriniz : ‘);readln(final);
    ort:=vize*40/100+final*60/100;
    if ort=55 then
    writeln(‘Ortalama ‘,ort:0:1,’ GECTI’);
    readln();
    end.

  • Birkan Oruç

    Soru 1’in Cevabı:
    var
    sayi,kare,kup,toplam:integer;
    begin
    repeat
    write(‘Sayi Gir: ‘);readln(sayi);
    if (sayi mod 2 = 0) then
    begin
    kup:=sayi*sayi*sayi;
    toplam:=toplam+kup;
    end;
    if (sayi mod 2 0) then
    begin
    kare:=sayi*sayi;
    toplam:=toplam+kare;
    end;
    until sayi=0;
    writeln(‘SONUC : ‘,toplam);
    readln();
    end.

  • tuncer

    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.

  • haylazZ

    bu site cok hoşuma gitti snwlarda yardımcı oluyor tsk..:)) haylaZZ

  • büşra

    süper

  • Bu süper oldu Yazılı öncesi işime çok yaracak.