Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Skins91
0 / 0 / 0
Регистрация: 26.11.2017
Сообщений: 11
1

Перевести код из Turbo Pascal в C++

28.11.2017, 17:34. Просмотров 684. Ответов 1
Метки нет (Все метки)

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
29
uses crt;
var
   x : array[1..100] of integer;
 
   i, m : byte;
   s, p : integer;
 
begin
  write('Введите размер массива : '); readln(m);
 
  writeln('Введите сам массив : ');
 
  for i:= 1 to m do
   read(x[i]);
 
   p:= 1;
   s:= 0;
 
   for i:= 1 to m do
    if i mod 2 = 0
      then
         s:= s + x[i]
      else
         p:= p * x[i];
 
   writeln('Произведение : ',p);
   writeln('Сумма : ',s);
 
 end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2017, 17:34
Ответы с готовыми решениями:

Перевести из Turbo Pascal в C++
помогите пожалуйста uses crt; var a,t,x,R,s: real; begin clrscr; ...

Перевести из Turbo Pascal в C++
uses crt; var x: longint; begin clrscr; writeln(‘Введите число...

Нужно Перевести программу с Turbo pascal на C++
Помогите пожалуйста! Нужно Перевести программу с Turbo pascal на C++ вот этот...

Как программу на Turbo Pascal перевести на C++?Выручите)
const N=3; var X,Y:array of real;Z:array of...

Перевести код из Pascal на С++
Перевести код из Pascal на С++: Uses crt; Type book=Record fam:...

1
Новичок
Модератор
1510 / 978 / 465
Регистрация: 17.07.2012
Сообщений: 4,968
Завершенные тесты: 3
28.11.2017, 17:55 2
Лучший ответ Сообщение было отмечено Skins91 как решение

Решение

Не проверял.
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#include <iostream>
 
int main() {
     int x[100], m;
     std::cout << "Введите размер массива : \n";
     std::cin >> m;
     std::cout << "Введите сам массив : \n";
     for (int i = 0; i < m; i++) std::cin >> x[i];
     int p = 1, s = 0;
     for (int i = 0; i < m; i++)
         if (i % 2) s += x[i];
         else p *= x[i];
     std::cout << "Произведение : " << p << "\n";
     std::cout << "Сумма : " << s << "\n";
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2017, 17:55

Перевести код с Pascal
помогите перевести 2 программы из паскаль в С++ 1) uses graphABC; begin...

Перевести код с Pascal
program lab4; var i,j,jmax:integer; a:array of real; b:array of real;...

Перевести код с Pascal
нужно написать программу на C++ из паскаля program pr1; uses crt; const...


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

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

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