С Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Gesta
0 / 0 / 0
Регистрация: 20.05.2012
Сообщений: 5
#1

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

12.12.2013, 10:53. Просмотров 213. Ответов 0
Метки нет (Все метки)

ДОбрый день.

Кто может перевести программу из Паскаля в 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2013, 10:53
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевод программы ПАскаль в С++ (C++):

Перевод программы паскаль в с++ - C++
Var A:array of integer; i,n,t:integer; Begin write('Vvedite razmernost ');readln(n); writeln('Ishodni massiv: '); ...

Перевод программы паскаль в с++ - C++
Нужна помощь, в переводе с языка программирования паскаля в си Вот задание :Дано действительное число х, натуральное число n. Вычислить ...

Перевод кода программы с Паскаль на С++ - C++
var a,s:integer; begin writeln('Введите последовательность целых чисел, окончание ввода 0'); s:=0; repeat readln(a); if a mod...

Перевод из с++ в паскаль - C++
прошу помощи в переводе данного кода в паскаль... всё более-менее ясно, но та же самая последняя фигня в мэйне типо 'case'... я не понимаю...

Перевод из Паскаль в C++ - C++
uses crt; const nmax=100;{при 100 считает довольно долго, ждите} e=0.01; type Point=record {точка} ...

Перевод з С++ в Паскаль)) - C++
#include &quot;stdafx.h&quot; #include &lt;iomanip&gt; #include &lt;iostream&gt; using namespace std; #define n 67 void main() { int p,q, a,i=0; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2013, 10:53
Привет! Вот еще темы с ответами:

перевод из си++ в паскаль - C++
for (int j = max(0, i - (n - m)); j &lt;= i &amp;&amp; j &lt;= m; ++j) Как перевести эту строчку, а именно &quot;j &lt;= i &amp;&amp; j &lt;=...

Перевод с С++ на Паскаль - C++
Нужно написать программу на C++, но мне удалось найти только вариант на паскале, его мы не изучали, помогите перевести. var a,b:real;...

Перевод с Паскаль на С++ - C++
Помогите перевести с паскаля на C++ этот код: var s:string; i,c:integer; begin readln(s); c:=0; for i:=1 to...

Перевод с Паскаль на С++ - C++
Привет всем.Помогите перевести с паскаля на C++ этот код: const n = 100; var arr: array of integer; i, m, qty: byte;...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.