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

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

Восстановить пароль Регистрация
 
hopenik
0 / 0 / 0
Регистрация: 31.07.2012
Сообщений: 4
01.08.2012, 08:45     Перевод кода программы с Паскаль на С++ #1
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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.08.2012, 08:45     Перевод кода программы с Паскаль на С++
Посмотрите здесь:

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

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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;
}
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.
Yandex
Объявления
01.05.2014, 13:45     Перевод кода программы с Паскаль на С++
Ответ Создать тему
Опции темы

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