1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

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

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

Статус темы:
Закрыта.
  1. Jane

    Jane Гость

    Репутация:
    0
    Помогите перевести из 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;
     
Загрузка...
Похожие Темы - Помогите перевести из
  1. marik22222
    Ответов:
    1
    Просмотров:
    1.318
  2. LeshikB
    Ответов:
    0
    Просмотров:
    1.691
  3. ClockRu
    Ответов:
    0
    Просмотров:
    1.326
  4. number27
    Ответов:
    0
    Просмотров:
    77
  5. Rina
    Ответов:
    0
    Просмотров:
    93
Статус темы:
Закрыта.

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