1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  2. Чат codeby в telegram перезагрузка. Обсуждаем вопросы информационной безопасности и методы защиты информации, программирование. Задавайте свои вопросы и комментируйте чужие. Подробнее ...

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

Тема в разделе "С и С++", создана пользователем 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;
     
Загрузка...
Статус темы:
Закрыта.

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