VPF::Помогите перевести из pascal в c++ - Форум программистов

wolf45rus

Дата 28.11.2014, 20:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 28.11.2014

Репутация: нет
Всего: нет

нужно как то вот этот код в код С++ перевести а я в нем дуб дубом одним словом новичок-рукожоп )

Код

program words;
uses crt;
const
    n=20;
type
    mas=array [1..n] of string;
var i:integer;
    str:string; // исходное предложение
    temp:string; // временная для парсинга
    arr:mas; // список  не повторяющихся слов
    index:integer; // индекс добавляемого в список слова
    isNotEmpty:boolean; // флаг пустоты списка

// доабавление слова в список. если возможно
procedure AppendWords(var a:mas; w0rd:string; var ind:integer);
var
   wordIsInList:boolean;
   i:integer;
begin
  wordIsInList:=false;

  for i:=1 to n do
   if (a[i]=w0rd) then
    begin
      wordIsInList:=true; // ставим флаг на мест ои выходим из цикла
      break;
    end;

  // теперь: если слова нет в списке, до добавляем
  if (wordIsInList=false) then
   begin
     a[ind]:=w0rd; // записываем
     inc(ind); // увеличиваем на 1 индекс для следующего записываемого слова
   end;
end;



begin
  write('Введите Ваше предложение: ');
  read(str);
  
  index:=1;
  isNotEmpty:=false;
  

  temp:='';
  for i:=1 to length(str) do
    begin

      if (str[i] <> ' ') then // если не пробел  и не последний символ в предложении
       begin
         temp:=temp+str[i]; // записываем поток в temp
         if (i=length(str)) then  // если последний символ, то пытаемся записать в список
          begin
            isNotEmpty:=true;
            AppendWords(arr,temp,index);
          end;
       end
      else
       if (length(temp) <> 0) then// иначе если в temp что-то есть, то записываем в список наших слов
         begin
           isNotEmpty:=true;
           AppendWords(arr,temp,index); // записываем, если этого слова там нет. В этой процедуре проверка ..
           temp:=''; // очищаем буфер для следующего записи туда слова
         end;

    end; //end_For
    
  // ну и выводим список, если он не пуст:
  if (isNotEmpty) then
   begin
     writeln('Список слов: ');
     for i:=1 to index-1 do
       writeln(arr[i]);
   end;
end.

Модератор: не забываем пользоваться кнопочкой "Код"

Это сообщение отредактировал(а) bsa - 5.12.2014, 15:50

konshyn

Дата 2.12.2014, 10:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 295
Регистрация: 19.9.2013

Репутация: нет
Всего: нет

wolf45rus, Тебе всего лишь нужно посмотреть синтаксис C++. И пару функций из библиотеки string. Ты быстрее сам сделаешь, ибо всем лень заниматься бесплатно (да и когда платят) неинтересной работой:)

--------------------

«Потому что ценность акта действия в этой стране возрастает в несколько раз».

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C/C++: Для новичков \| Следующая тема »