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

перевод программы ПАскаль в С++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Graphics http://www.cyberforum.ru/cpp-beginners/thread1038366.html
Хочу научиться в c++, используя Graphics, делать анимацию. Подскажите, пожалуйста, как это сделать на примере вращающейся геометрической фигуры. Заранее спасибо.
C++ Перегруженную функцию переделать в виртуальную Сам как не знаю сделать пожалуйста помогите)) Есть перегруженная функция, нужно сделать из нее виртуальную функцию. Даже не обязательно из этой программы, просто по заданию. Задание. Дата в формате (день, месяц, год). ++увеличение даты на 1 сутки, -- уменьшение даты на 1 сутки, + сложение двух дат. Код C++ #include <iostream> #include <math.h> using namespace std; class date { ... http://www.cyberforum.ru/cpp-beginners/thread1038362.html
Массивы. Заменить все максимальные элементы нулями( C++
Всем доброго времени суток. заменить все максимальные элементы нулями(одномерный массив)
C++ Спртсмен пробегает в каждый из семи дней на 10% больше. Сколько в итоге пробежит?
Начав тренировку спортсмен пробежал в первый день 10 км, и каждый день он увеличивал на 10% норму предыдущего дня. Какой путь спортсмен пробежит за 7 дней???
C++ Не удаётся открыть фай включение iostream.h http://www.cyberforum.ru/cpp-beginners/thread1038326.html
# include <stdafx.h> # include <iostream.h> # include <string.h> using namespace std; const int MAX_SIZE = 20; // Level 1 Functions void print_message();
C++ Определить, на какой позиции слева находится первая встреченная четная цифра Как сделать? Определить, на какой позиции слева находится первая встреченная четная цифра. подробнее

Показать сообщение отдельно
Gesta
0 / 0 / 0
Регистрация: 20.05.2012
Сообщений: 5
12.12.2013, 10:53     перевод программы ПАскаль в С++
ДОбрый день.

Кто может перевести программу из Паскаля в C++?

Условие задачи:Определить произведение входящих в строку целых чисел (без учета знаков)

Код в Паскаль:

var sn,s:string;
l,k,kod:integer;
v,p:real;
begin
writeln('Введите строку');
readln(s);
l:=length(s);
p:=1; k:=1;
repeat
sn:='';
while (s[k]>='0')and(s[k]<='9')and(k<=l) do
begin
sn:=sn+s[k];
k:=k+1;
end;
if sn<>'' then
begin
val(sn,v,kod);
p:=p*v;
end;
k:=k+1;
until k>l;
writeln(' p=',p);
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 19:56. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru