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

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

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

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

01.08.2012, 08:45. Просмотров 1014. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,s:integer;
begin
writeln('Введите последовательность целых чисел, окончание ввода 0');
s:=0;
repeat
readln(a);
if a mod 2=0 then s:=s+a;
until a=0;
write('Сумма четных элементов=',s);
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.08.2012, 08:45
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод кода программы с Паскаль на С++ (C++):

Перевод кода из C++ в Паскаль - C++
Есть около 50 задач которые делал на практике, их всех нужно перевести в паскаль, а делать это вручную долго и нудно, может кто знает какие...

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

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

Проверка версии программы (перевод кода с C#) - C++
Всем привет,подскажите как перевести данный код с C# на с++? try { WebClient ClientStatus = new WebClient(); string...

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

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

2
b_kasenov47
14 / 14 / 1
Регистрация: 28.07.2012
Сообщений: 57
01.08.2012, 18:45 #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#include <iostream>
 
using namespace std;
 
int main()
{
   cout << "Введите последовательность целых чисел, окончание ввода 0" << endl;
   int a, s = 0;
    do
        {
            cin >> a;
            if (a % 2 == 0) // if (a & 1 == 0)
                s += a;
        }
    while (a != 0);
    cout << "Сумма четных элементов=" << s;
    return 0;
}
1
AndreiMolot
0 / 0 / 0
Регистрация: 23.04.2014
Сообщений: 2
01.05.2014, 13:45 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
var s:string;
    i,j,k,l,f:integer;
    c:char;
begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
writeln('Simvoly > 3 raz:');
writeln;
f:=0;
for i:=1 to length(s) do
 begin
  k:=0;
  for j:=1 to length(s) do
  if s[i]=s[j] then k:=k+1;
  if k>3 then
    begin
     f:=1;
     c:=s[i];
     writeln('Simvol ',c,' vstrechaetsa ',k,' rz.');
    end;
  for l:=length(s) downto 1 do
  if s[l]=c then delete(s,l,1);
 end;
if f=0 then write('Simvoly > 3 raz ne najdeny!');
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.05.2014, 13:45
Привет! Вот еще темы с ответами:

Перевод с Паскаль на С++ - C++
var S,x,i:integer; begin x:=1; S:=0; for i:=1 to 10 do begin S:=S+x; x:=x*2; end; write(S div 100, ',', S mod 100,'...

Перевод с Паскаль на С++ - C++
uses crt; var m, k: byte; begin write('m = '); readln(m); write('k = '); readln(k);

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

Перевод из паскаль в С++ - C++
Ребята, очень срочно, кто сможет выручайте, нужно перевести данную программу на с++! Данная задача нужна для зачета завтра! Если кто сможет...


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

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

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