Форум программистов, компьютерный форум CyberForum.ru

Переделать код с Paskal на С/С++ - C++

Восстановить пароль Регистрация
 
Malz
0 / 0 / 0
Регистрация: 08.02.2010
Сообщений: 17
09.12.2012, 15:07     Переделать код с Paskal на С/С++ #1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Var s,s1,s2:string;
    i:byte;
    b:boolean;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';
    s1:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ',s));
    While Pos(' ',s)>0 do
    Begin
      b:=true;
      s2:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      For i:=1 to Length(s2) do
       if Pos(s2[i],s1)=0 then b:=false;
      if b then writeln(s2);
    End;
    readln;
End.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2012, 15:07     Переделать код с Paskal на С/С++
Посмотрите здесь:

C++ Переделать Код!
C++ переделать код!
C++ Переделать код!
Переделать код с С на С++ C++
C++ Переделать код из C# в C++
C++ Переделать код
C++ Переделать код из С в С++
C++ Переделать код С на С++

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 05:56. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru