program ivan;
uses crt;
var x:integer;
ime:string;
begin
clrscr;
readln(ime);
for x:=1 to length(ime) do begin
writeln('Slovo[',x,']:',ime[x]);
end;
readln;
end.
Mozes string da posmatraz kao niz promenjivih tipa char
Code: var
strTest: string;
arrchrTest: array of char;
intBrojac: integer;
begin
strTest:='Ivan';
SetLength(arrchrTest,length(strTest));
for intBrojac:= 0 to length(strTest)-1 do
arrchrTest[intBrojac]:=strTest[intBrojac];
Program pretvaranje;
Var ime:string;
znak:array[1..100] of char;
begin
ime:='Pera';
for i:=1 to length(ime) do
begin
slovo[i]:=copy(ime,i,1);
writeln (i,'. slovo je ',znak[i]);
end;
end.
Da shvatam sta si napisao Passwd, ali da li mogu da sa tako dobijenim znakom vrsim sve operacije kao sa varijablom iz tipa char. Na primjer, radi li:
var ime:string;
i:integer;
begin
i:=ord(ime[1]);
end.
Moze!!
Ali uvijek moras upotrebljavat petlju for!!
Code:
program veliko_slovo;
uses crt;
var x:integer;
rijec:string;
begin
clrscr;
readln(rijec);
for x:=1 to length(rijec) do
begin
write(UpCase(rijec[x]));
end;
readln;
end.
Znaci UpCase radi sa char ali ako smo uveli petlju for radi i sa string..
Znaci bitno je da se ucitava jedno po jedno slovo/znak od stringa!!