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

перевести небольшой код с паскаля на с - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Get-Method не работает http://www.cyberforum.ru/cpp-beginners/thread1114738.html
class Stack { private: myString *st; int size; int index; public: Stack(int); ~Stack(void); int getSize(void);
C++ Trow,try,catch, Всем привет.Ребят помогите разобраться пожалуйста с таким вопросом.Как правильно использовать try,catch,throw. Вот программа переводящая температуру по цельсию в t по кельвину.При вводе t по... http://www.cyberforum.ru/cpp-beginners/thread1114735.html
Перегрузка operator+ для массивов C++
Здравствуйте. Мне надо решить следующую задачу: сложить два массива в один, используя перегрузку операторов(перегрузить operator+). У меня есть заголовочный файл с необходимыми данными и функцией,...
Бинарное дерево C++
Уважаемые знатоки! прошу вашей помощи.. перелазил весь форум (и не только форум). Есть конечно данная тема. Но вот как это все сделать мне не совсем понятно.. Помогите, пожалуйста. Даже не знаю с...
C++ Дан текстовый файл. Вывести первое слово текста наибольшей длины http://www.cyberforum.ru/cpp-beginners/thread1114728.html
Такое слово должно выводиться с учетом знаков препинания, расположенных в начале и в конце слова. Помогите пожалуйста!:)
C++ Как вывести на экран третий символ строки? Как вывести на экран третий символ строки? подробнее

Показать сообщение отдельно
ololoIII
Сообщений: n/a

перевести небольшой код с паскаля на с - C++

09.03.2014, 16:58. Просмотров 266. Ответов 1
Метки (Все метки)

помогите плз перевести небольшой код с pascal на С++
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program String41;
var
Dano:string; // вводимая строка 
slova:integer; // счетчик слов 
i:integer; // счетчик в цикле 
begin
// ввод данных 
Write('Введите строку:');
readln(Dano);
// решение 
slova:=0; //начальное значение счетчика 
// цикл по символам строки 
for i:=1 to length(Dano) do
begin
// если нашли конец слова накручисваем счетчик слов 
if (Dano[i]=' ')and(Dano[i-1]<>' ') then inc(slova);
end;
inc(slova); // учет последнего слова 
// вывод результата 
Writeln('Количество слов в строке. =',Slova);
end.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru