1 den 2´e kadar. Toplam 2 Sayfa bulundu

Konu: Döngü Terimleri - iç içe döngü ve örnekleri

  1. #1

    Standart Döngü Terimleri - iç içe döngü ve örnekleri



    İçiçe Döngüler : Bir döngü içinde başka bir döngü kullanarak içiçe döngüler oluşturulabilir.

    For d=1 to 3 Do
    For iç:=1 to 2 Do
    writeln(d3,ic:3);

    Ekran çıktısı
    1 1
    1 2
    2 1
    2 2
    3 1
    3 2

    Ekran çıktısında görüldüğü gibi; dis 1 iken ic 1'den 2'ye kadar değişmekte daha sonra dis artmakta ve ic yine 1'den 2'ye kadar artmaktadır. dis=3 değeri için içteki döngü tamamlandığında dıştaki döngüdende çıkılmaktadır.
    Örnek 5:
    uses crt;
    var
    saat, dakika, saniye:integer;
    begin
    for saat:=0 to 23 do {saat ifadesi}
    for dakika:=0 to 59 do {dakika ifadesi}
    for saniye:=0 to 59 do {saniye ifadesi}
    writeln(saat:2,':',dakika:2,':',saniye:2);
    end.


    Örnek 6: Çarpım tablosunu ekrana oluşturur.

    uses crt;
    var
    i,j,k,l,carpim:integer;
    begin clrscr;
    k:=3;l:=2;
    gotoxy(1,1);textcolor(blue);textbackground(cyan);
    for i:=1 to 10 do begin
    for j:=1 to 10 do begin
    carpim:=i*j;
    gotoxy(k,(j+l+2));
    write(i:2,' *',' ',j:2,' =',carpim:3);end;
    k:=kaaaa;
    if k>71 then begin
    k:=3;l:=13;end;end;
    textbackground(yellow);
    textcolor(green);window(1,1,50,20);
    readln;
    end.

    Örnek 7: Girilen iki matrisin toplamını ve çarpımını bulur.

    uses crt;
    const
    m = 3 ;
    var
    a , b , c ,d : array [ 1 .. m , 1 .. m ] of byte ;
    c1 , c2 , c3 : byte ;
    s : word ;
    begin clrscr ;
    for c1 := 1 to m do
    for c2 := 1 to m do begin
    write ( 'A' , c1 , c2 ,' = ' );
    readln ( a [ c1 , c2 ] ); end ;
    for c1 := 1 to m do
    for c2 := 1 to m do begin
    write ( 'B' , c1 , c2 ,' = ' );
    readln ( b [ c1 , c2 ] ); end ;
    for c1 := 1 to m do
    for c2 := 1 to m do
    c [ c1 , c2 ] := a [ c1 , c2 ] + b [ c1 , c2 ] ;
    for c1 := 1 to m do

    for c2:=1 to m do begin s := 0 ;
    for c3:=1 to m do
    s := s + a [ c1 , c3 ] * b [ c3 , c2 ] ;
    d [ c1 , c2 ] := s ; end; clrscr ;
    write('A Matrisi B Matrisi' );
    for c1:=1 to m do
    for c2:=1 to m do begin
    gotoxy(c2*4,c1+2);write(a[c1,c2]:3);
    end ;for c1:=1 to m do
    for c2:=1 to m do begin
    gotoxy (c2*4aaaa,c1+2);write(b[c1,c2]:3);
    end ; write ( #13 , #10 , #13 , #10 , #13 , #10 );
    write('A+B Matrisi A*B Matrisi' );
    for c1:=1 to m do
    for c2:=1 to m do begin
    gotoxy(c2*4,c1+ m + 6);write ( c [ c1 , c2 ] : 3 );
    end ; for c1:=1 to m do
    for c2:=1 to m do begin
    gotoxy(c2*4 + 20,c1 + m + 6);write(d[c1,c2]:3);
    end ;

    readln ;
    end.


  2. #2

    Standart

    carpım tablosunu yazmıyor sadece 10ları yazıyor..

Benzer Konular

  1. Repeat-Until Döngü Deyimi ve örnekleri
    By CaLaMiTy in forum Pascal
    Cevaplar: 0
    Bölüm Listesi: 12-04-2008, 08:34 PM
  2. DöngüDeyimleri:While-Do Döngü Deyimi
    By UnİQuE in forum Pascal
    Cevaplar: 0
    Bölüm Listesi: 06-13-2008, 07:19 PM
  3. Hidrolojik Döngü
    By ABYSS in forum Coğrafya
    Cevaplar: 0
    Bölüm Listesi: 01-03-2007, 02:25 PM
  4. Hidrolojik Döngü
    By ABYSS in forum Coğrafya
    Cevaplar: 0
    Bölüm Listesi: 01-03-2007, 04:29 AM

Beğenilen Sayfayı İşaretleyin

Beğenilen Sayfayı İşaretleyin

Yetkileriniz

  • You may not post new threads
  • You may not post replies
  • Eklenti Ekleyemezsiniz
  • You may not edit your posts
  •  
[Gizlilik Politikası]-[UslanmaM Kuralları]-[UslanmaM İletişim/Contact]