Помогите перевести из Pascal в Visual C++6.0

  • Автор темы Jane
  • Дата начала
Статус
Закрыто для дальнейших ответов.
J

Jane

#1
Помогите перевести из Pascal в Visual C++6.0. Условие: дана последовательность из 10 символьных строк, состоящих из слов, разделенных пробелами. Удалить из текста все одинаковые слова.
Var
a: array[1..10] of string;
b,c: array of string;
s: string;
i, j, k, m: integer;
t:boolean;
begin
for i:=1 to 10 do begin
s:=a;
k:=1;
repeat
j:=pos(‘_’,s);
if j > 0 then begin
b[k] : =copy(s,1,j-1);
s:=copy(s,j+1,length(s)-j-1);
k:=k+1;
end;
until j=o;
j:=1;
c[1]:=”;
for i:=1 to k-1 do begin
t:=false;
for m:=1 to j do
if b=c[m] then t:=true;
if t=false then begin
j:=j+1;
c[j]:=b;
end;
end;
end;
 
Статус
Закрыто для дальнейших ответов.