17 Aralık 2009 Perşembe

17.12.2009 Dizilerle ilgili ornekler

For döngüleri ve dizileri kullanarak aşağıdaki oruntuleri ekrana ve dosyaya yazdıralım.



----*
---**
--***
-****
*****


-****
-****
--***
---**
-----

----*----
---***---
--*****--
-*******-
*********


---*---
---*---
---*---
*******
---*---
---*---
---*---

********
*------*
*------*
*------*
*------*
*------*
********

a[]= { 4, 8, 3, 1, 18, 9, 21, 20, 5, 17}

****
********
***
*
******************
*********
*********************
********************
*****
*****************



1 2 3
4 5 6
7 8 9
10 11 12



1 1 1
2 2 2
3 3 3
4 4 4
5 5 5


1 2 3
1 2 3
1 2 3
1 2 3
1 2 3
Gönderen zaman:

6 yorum:

  1. Merve Mollamehmetoğlu17 Aralık 2009 04:28

    Birinci Örnek;


    program yildiz1;
    uses crt;
    var i,j : integer;
    begin
    clrscr;

    for i:=5 downto 1 do


    begin


    for j:=1 to 5 do

    begin
    if i<=j then

    write('*')
    else
    write ('-');


    end;

    writeln('');

    end;


    readln;
    end.

    YanıtlaSil
  2. Merve Mollamehmetoğlu17 Aralık 2009 04:29

    İkinci Örnek;

    program yildiz1;
    uses crt;
    var i,j : integer;
    begin
    clrscr;

    for i:=1 to 5 do


    begin


    for j:=1 to 5 do

    begin
    if i<j then

    write('*')
    else
    write ('-');


    end;

    writeln('');

    end;


    readln;
    end.

    YanıtlaSil
  3. Özgün Balaban17 Aralık 2009 04:54

    Bu yorum yazar tarafından silindi.

    YanıtlaSil
  4. Özgün Balaban17 Aralık 2009 04:58

    pardon yanlış olmuş save etmedenki halini göndermişim asıl kod şu şekilde olacak:

    PROGRAM ORNEK3;

    VAR
    X, Y, j, i: integer;

    BEGIN
    y:=5;
    i:=9;
    for x:=1 to y do
    begin
    for j:=1 to i do
    begin
    if j<5-(x-1) then
    write('-')
    else if j>5+(x-1) then
    write('-')
    else
    write('*');
    end;
    writeln;
    end;
    readln
    END.

    YanıtlaSil
  5. Merve Mollamehmetoğlu17 Aralık 2009 05:41

    yıldız dizi;


    PROGRAM yildizdizi;

    VAR
    j, i, a: integer;
    yildiz: array[1..50] of integer;
    cikti:text;
    begin
    {clrscr;}
    writeln('10 adet tam sayi degeri giriniz:');
    for i:=1 to 10 do
    readln (yildiz[i]);
    assign(cikti, 'C:\yildizdizi.txt');
    rewrite(cikti);
    for i:=1 to 10 do
    begin
    for j:=1 to yildiz[i] do
    begin
    write('*');
    write(cikti, '*');
    write(cikti,'*');
    end;
    writeln;
    writeln(cikti);
    end;
    close(cikti);
    readln;
    end.



    readln
    END.

    YanıtlaSil
  6. sibel17 Aralık 2009 06:33

    program buyukluk;
    uses crt;
    var i:integer;
    top, ort,max,min : real;
    sayi:array[1..5] of real;


    BEGIN
    clrscr;
    writeln('5 tam sayi degeri giriniz:');
    top:=0;

    for i:=1 to 5 do
    begin
    read(sayi[i]);
    top:=top+sayi[i];
    end;

    max := sayi[1];
    for i := 2 to 5 do
    begin
    if sayi[i] > max then
    max := sayi[i];
    end;

    min := sayi[5];
    for i := 1 to 4 do
    begin
    if sayi[i] < min then
    min := sayi[i];
    end;


    writeln('girmis oldugunuz sayilar arasindaki en kucuk deger:',min:2:2,'dir');
    writeln('girmis oldugunuz sayilar arasindeki en buyuk deger:',max:2:2,'dir');
    writeln('sayilarin topplami:',top :4:2);
    writeln('sayilarin aritmetik ortalamasi:',top/5 :4:2);
    readln;
    readln;

    end.

    YanıtlaSil

Kaydol: Kayıt Yorumları (Atom)