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

14.05.2013, 20:58. Показов 587. Ответов 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.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

14.05.2013, 20:58

Ответы с готовыми решениями:

Перевод кода с Паскаля (перевод в метры)
var a,b,d:integer; c,e:real; begin writeln('1-дециметр 2-километр'); writeln('3-метр 4-миллиметр'); ...

Перевод с паскаля на си
Ребят помогите поджалуйста с переводом! const r=10; n=100; type mas=array of byte; var i,j,a:integer; ...

Перевод с Паскаля на С++
Помогите переделать с Паскаля на С++. 1)Вывести максимальное число из файла in.txt. Листинг: Program num23; uses crt; var...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

14.05.2013, 20:58

Помогаю со студенческими работами здесь

Перевод с Паскаля в С++
uses crt; type prm=record {прямая с полями, коэффициентами} a,b,c:real; end; tch=record {точка с полями,...

перевод с Паскаля
Надо перевести: program zz; var n,m:integer; i,j,g,z,bilkol:integer; d1,d2:text; st:string; a:array of integer;...

Перевод из Паскаля в Си++
program p1; var a,k:string; mas:array of string; b,c,i,nu:integer; begin nu:= 0; i:=1; readln (a); for i:=1...

Перевод из Паскаля в С
const a=-pi; b=pi; h=pi/10; var x,y:real; begin writeln('----------------'); writeln('| x | y=f(x) |'); ...

Перевод с Паскаля в С++
var n: longint; max,x: byte; begin write('Введите число n: '); readln(n); max:=n mod 10; while n>0 do begin ...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

Наверх