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.
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).