10 Aralık 2009 Perşembe

Matrisle Tanım Tekniği ve Diziler



Yukaridaki gorsele iliskin yapilmasi beklenen şunlardır:
(a) renk farkliligi bilgisini iceren veri dosyasinin olusturulmasi;
(b) bu verilerin dosyadan okunarak, renklerin hangi oranlarda bulundugunun hesaplatilarak baska bir dosyaya yazdirilmasi.
Örnek:
Beyaz: % XXX oranında,
Kırmızı: % XXX oranında,
Turuncu : % XXX oranında,
Siyah: % XXX oranında kullanılmıştır.
Gönderen zaman:

2 yorum:

  1. damlayetisti10 Aralık 2009 04:25

    15 16

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

    YanıtlaSil
  2. damlayetisti10 Aralık 2009 05:25

    PROGRAM matris1;

    USES crt;

    TYPE mario = array[1..20,1..20]of integer;

    VAR m : mario;
    i,j , is ,js :integer;
    renk , cikti : Text;
    t1,t2,t3,t4,t5,top : integer;
    o1,o2,o3,o4,o5 : real;

    BEGIN
    clrscr;
    ASSIGN(renk,'D:/girdi.txt');
    RESET(renk);

    ASSIGN(cikti,'D:/marioCikti.txt');
    REWRITE(cikti);

    WRITELN(cikti,'Bu programda asagidaki dosya icin renk degerleri oranlari hesaplanmaktadir..');



    READ(renk , is , js);

    for i := 1 to is do

    BEGIN
    for j := 1 to js do

    BEGIN
    READ(renk,m[i,j]);
    WRITE(cikti,m[i,j]);
    END;

    WRITELN(cikti);
    END;


    WRITELN(cikti);

    t1 := 0;
    t2 := 0;
    t3 := 0;
    t4 := 0;
    t5 := 0;

    for i := 1 to is do

    BEGIN
    for j := 1 to js do

    BEGIN
    if m[i,j] <> 0 then

    case m [i,j] of
    1: t1 := t1 + 1;
    2: t2 := t2 + 1;
    3: t3 := t3 + 1;
    4: t4 := t4 + 1;
    5: t5 := t5 + 1;

    end;
    end;
    end;

    top := t1+t2+t3+t4+t5;
    o1 := (100 * t1) / top;
    o2 := (100 * t2) / top;
    o3 := (100 * t3) / top;
    o4 := (100 * t4) / top;
    o5 := (100 * t5) / top;

    WRITELN(cikti,'siyah renk yuzdesi:',o1:6:2);
    WRITELN(cikti,'bej renk yuzdesi:',o2:6:2);
    WRITELN(cikti,'kirmizi renk yuzdesi:',o3:6:2);
    WRITELN(cikti,'turuncu renk yuzdesi:',o4:6:2);
    WRITELN(cikti,'beyaz renk yuzdesi:',o5:6:2);
    WRITELN('program sona erdi');




    CLOSE(renk);
    CLOSE(cikti);

    READLN;
    END.

    YanıtlaSil

Kaydol: Kayıt Yorumları (Atom)