[Pascal] Stringovi – izbacivanje 'and'
Poslato: Subota, 27. Decembar 2014, 14:55
Napisati program koji unosi niz od [inlmath]\mathtt{n}[/inlmath] stringova, a potom u svakom stringu koji u sebi sadrži reč "[inlmath]\mathtt{and}[/inlmath]", tu reč menja sa "[inlmath]\mathtt{\&}[/inlmath]".
Imam ovde nekoliko nedoumica. Prvo, ovde treba da unesemo [inlmath]\mathtt{n}[/inlmath] reči, pa da te reči posmatramo posle toga kao niz karaktera. Je li tako?
Evo kako sam ja radio, ali nije tačno:
Imam ovde nekoliko nedoumica. Prvo, ovde treba da unesemo [inlmath]\mathtt{n}[/inlmath] reči, pa da te reči posmatramo posle toga kao niz karaktera. Je li tako?
Evo kako sam ja radio, ali nije tačno:
- Kôd: Obeleži sve
program stringovi;
var n,i,j:integer;
a:array[1..50] of string;
b:string;
Procedure Izmeni(s:string; var b:string);
var n,indeks:integer;
begin
n:=length(s);
For i:=1 to n do
If ((s[i]='a') and (s[i+1]='n')) and (s[i+2]='d') then
begin
indeks:=i;
For j:=1 to i-1 do b[j]:=s[j];
b[indeks]:='&';
indeks:=i+1;
for j:=i+3 to n do
begin
b[indeks]:=s[j];
indeks:=indeks+1;
end;
end;
end;
begin
write('Unesite n:');
readln(n);
For i:=1 to n do readln(a[i]);
For i:=1 to n do Izmeni(a[i],b);
write(b);
end.