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

Re: Перевод из паскаля в с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Отключение перевода курсора в консоли по нажатию Enter http://www.cyberforum.ru/cpp-beginners/thread865362.html
Здравствуйте, помогите кто может, суть проблемы такова. У меня вводится текст и после нажатия клавиши энтер, нужно чтобы курсор не переходил на новую строчку а оставался на том же месте, подскажите...
C++ Нахождение ранга матрицы методом Гаусса Найти ранг матрицы (двумерный массив), метод гаусса если можно с комментариями http://www.cyberforum.ru/cpp-beginners/thread865353.html
Программа считает неправильно C++
Программа выводит месяц и число по вводимому номеру порядкового дня. Программа должна быть со структурой. Я написал, но она считает неверно. Помогите исправить!!! Программу нужно сдать завтра!...
C++ Выделить память под двумерный массив за один вызов функции malloc
Выделить память под двумерный массив за один вызов функции malloc Если можно - с комментариями
C++ Задачка по матрицам (вывести номер строчки в которой количество положительных елементов самая большая) http://www.cyberforum.ru/cpp-beginners/thread865344.html
для матрицы С(20,20) вывести номер строчки в которой количество положительных елементов самая большая
C++ Блок-схема (Visio) Найти наименьший элемент матрицы A(n x m) и номер строки и столбца, в которых он находится. Эту строку заполнить значениями наибольшего элемента матрицы. Примечание: Если размерность массива не... подробнее

Показать сообщение отдельно
Elizaveta_
Сообщений: n/a

Re: Перевод из паскаля в с++ - C++

14.05.2013, 20:58. Просмотров 137. Ответов 0
Метки (Все метки)

помогите пожалуйста перевести из паскаля в С++

В одномерном массиве,состоящем из n целочисленных элементов,вычислить:
1) произведение элементов массива с четными номерами;

Код Pascal

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Uses crt;
Var
  x: Array[1..100] of Real;
  i,n: Integer;
  p: Real;
BEGIN
Clrscr;
Randomize;
Writeln('Введите кол-во элементов: '); Readln(n);
p:=1;
Writeln('Массив:');
For i:=1 to n do
begin
  x[i]:=10*Random;
  Write(x[i]:8:2);
  If i mod 2=0 Then p:=p*x[i];
end;
Writeln;
Writeln('Произведение элементов с четными номерами: ',p:2:2);
Readln
END.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru