Pretvaranje niza u varijabluDugo vas vec nisam nista pitao, pa evo da to malo izmjenim. Dakle, problem je jednostavan: na koji nacin mogu da pretvorim neki niz u jedan od osnovnih tipova varijabli (integer, longint, string)?
Da li postoji posebna naredba kojom se to radi ili se za svaki od ovih tipova mora koristiti posebna procedura. Ja sam napravio jedno koja bi to omogucavala u tipovima koji rade sa brojevima, dakle integer, longint i real (originalno sam ga napisao za integer, ali lako ga je prepraviti):
Code:
program paskal;
uses wincrt;
var i,broj:integer;
niz:array [1..5] of integer;
Begin
Randomize;
for i:=1 to 5 do
begin
repeat
niz [i]:=Random (10);
until (niz[1]<4) and (niz[2]<6); {ovaj dio odredjuje clanove niza}
Writeln ('Niz[',i,']=',niz[i]); {i nepotreban je ako je niz zadan}
End;
For i:=1 to 5 do
broj:=broj*10+niz[i];
writeln;
writeln ('broj=',broj);
end.
program paskal;
uses wincrt;
var i,broj:integer;
niz:array [1..5] of integer;
Begin
Randomize;
for i:=1 to 5 do
begin
repeat
niz [i]:=Random (10);
until (niz[1]<4) and (niz[2]<6); {ovaj dio odredjuje clanove niza}
Writeln ('Niz[',i,']=',niz[i]); {i nepotreban je ako je niz zadan}
End;
For i:=1 to 5 do
broj:=broj*10+niz[i];
writeln;
writeln ('broj=',broj);
end.
Medjutim sta ako zelim pretvoriti niz u string (koji je sam po sebi niz char-a)?
Hvala!
