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

Тема в разделе "MS Visual C++", создана пользователем Jane, 2 фев 2007.

Наш партнер Genesis Hackspace
Статус темы:
Закрыта.
  1. Jane

    Jane Гость

    Помогите перевести из 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;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей