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

Перевести на C++ из Pascal - C++

Восстановить пароль Регистрация
 
i_SamSky
 Аватар для i_SamSky
6 / 6 / 0
Регистрация: 13.04.2012
Сообщений: 57
05.05.2012, 00:08     Перевести на C++ из Pascal #1
Вот собственно сама программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
a:string;
b:array[1..100]of string;
i,k,f,j:integer;
begin
readln(a);
a:=' '+a;
for i:=1 to length(a) do
if a[i]=' 'then inc(k)else b[k]:=b[k]+a[i];
for i:=1 to k do
begin;
f:=0;
for j:=1 to i do
if (i<>j)and (b[i]=b[j]) then f:=1;
if f=0 then writeln (b[i]);
end;
readln;
end.
Программа должна в предложении найти все различные слова.

Добавлено через 46 минут
Up! :cofee2:
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.05.2012, 00:08     Перевести на C++ из Pascal
Посмотрите здесь:

C++ перевести с pascal в С++
Перевести из Pascal в C++ C++
Перевести c Pascal в C++ C++
C++ перевести с Pascal на С++
Перевести с Pascal на C++ C++
Перевести с Pascal на C++ C++
Перевести с Pascal на C++ C++
C++ Перевести с Pascal на C++

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

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

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