Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Gde se nalazi greska ?

[es] :: Pascal / Delphi / Kylix :: Gde se nalazi greska ?

[ Pregleda: 1832 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

___
Pančevo

Član broj: 137559
Poruke: 58
91.187.128.*



Profil

icon Gde se nalazi greska ?25.07.2008. u 17:54 - pre 160 meseci
Imam dve matrice, u kojim unosim prvo String potom vrednost(Real) tog Stringa.
Medjutim, postoji problem, jer mi ne smesta podatke na prava mesta u matricama.

Ovo je kod:
Code:

var nizSlova:array[0..9,0..19] of String;
    nizVrednosti:array[0..9,0..19] of Real;
    i,j,k,n,n1,n2:Integer;
    nizGeneratora:array[0..9,0..9] of Real;
    x: string;

begin
   i:=1;
   j:=1;
   writeln('Koliko ima kontura?');
   readln(k);
   For n1:=0 to k-1 do     { koliko ima kontura, toliko je redova u matrici}
   begin
      Writeln('Koliko ima elemenata u trenutnoj konturi?');  {broj kolona u matrici}
      readln(n);
      For n2:=0 to n-1 do  

         begin
             writeln('element je?');
             readln(nizSlova[i,j]);
             x:=nizSlova[i,j][1];

               If x='E' then   {ako je E, smesti u niz sa rezultatima}   
               begin
               Writeln('Unesite vrednost');
               readln(nizGeneratora[i,j])

               end

               else
               begin
               Writeln('vrednost mu je?');

                readln(nizVrednosti[i,j]); {u suprotnom smesti u matricu sa vrednostima - koje se posle koriste pri racunu}



             end;


       end;

      For i:=1 to n do
           For j:=1 to k do      
              begin
                   Writeln(nizVrednosti[i,j]:2:2);  //ispis nizova
                   Writeln(nizSlova[i,j]);
              end
     end;
              Writeln('Niz vrednosti elemenata - treba da bude ');
              Writeln('1 2 3 4');
              Writeln('5 6 7');              
               
              Writeln('Niz elemenata treba da bude');
              Writeln('E1 R1 E2 R2');
              Writeln('E2 R2 R3');
              
              readln(n)
end.

nizVrednosti bi trebalo da izgleda:
1 2 3 4
5 6 7

nizSlova bi trebalo da izgleda:
E1 R1 E2 R2
E2 R2 R3

(nizGeneratora nije bitan u ovde- u slucaju da String pocinje sa E, smesta se u treci niz).
 
Odgovor na temu

Picsel
Beograd

Član broj: 39817
Poruke: 440
*.dyn.ravangrad.net.



+7 Profil

icon Re: Gde se nalazi greska ?25.07.2008. u 23:05 - pre 160 meseci
Koliko vidim, tebi su promenljive i i j pri upisu uvek 1, tako da stalno upisujes na polje [1,1] u matrici.
Zameni n1 i n2 sa i i j
 
Odgovor na temu

___
Pančevo

Član broj: 137559
Poruke: 58
*.rcub.bg.ac.yu.



Profil

icon Re: Gde se nalazi greska ?26.07.2008. u 10:43 - pre 160 meseci
Hvala, resila sam problem ;)
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Gde se nalazi greska ?

[ Pregleda: 1832 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.