Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
1 / 1 / 1
Регистрация: 19.07.2012
Сообщений: 114
1

Программы pascal переписать под c++

31.07.2012, 21:15. Просмотров 422. Ответов 1
Метки нет (Все метки)

Доброго времени суток. вот последняя программа которую нужно сделать под c++

Я знаю парни я вам надоел уже Больше не буду вас мучать)

Задание: В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму элементов, с нечетными номерами; Сумма элементов массива, расположенных между первым и последним отрицательными элементами.

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
30
31
32
33
34
35
Program Eto_konec;
uses crt;
var
  A : array [1..500] of real;
  i, n : integer;
  FirstO, LastO :integer;
  Summa1, Summa2 : real;
BEGIN
ClrScr;
Write('Введите размерность массива: ');
Readln(n);
Write('Введите элементы массива: ');
Summa1 := 0; Summa2 := 0; FirstO := 0; LastO := 0;
{Ввод элементов и подсчёт их суммы}
for i := 1 to n do
 begin
 Read(A[i]);
 if i mod 2 <> 0 then Summa1 := Summa1 + A[i];
 end;
Writeln('Сумма нечетных элементов: ', Summa1:0:3);
{Поиск первого отрицательного} 
for i := 1 to n do
 if A[i] < 0 then begin FirstO := i; break; end;
{Поиск последнего отрицательного}
for i := n downto 1 do
 if A[i] < 0 then begin LastO := i; break; end;
if (LastO = 0) or (FirstO = 0) then Writeln('Отрицательных элементов нет')
 else
  begin
for i := FirstO + 1 to LastO - 1 do
 Summa2 := Summa2 + A[i];
Writeln('Сумма элементов расположенных между первым и последним отрицательным: ', Summa2:0:3);
 end; 
Readln; 
END.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.07.2012, 21:15
Ответы с готовыми решениями:

Программы pascal переписать под c++
Всем доброго времени суток помогите переписать программы под c++ Условие Дано натуральное число...

Программы pascal переписать под c++
Всем доброго времени суток помогите переписать программы под c++ Условие Дано натуральное число...

Программу pascal переписать под c++
Всем доброго времени суток, прошу помощи у вас по скольку слабо разбераюсь в этой отрасли. ...

Программу Pascal переписать под c++
Всем доброго времени суток много увожаемые пользователи форума. Прошу помощи у вас, по скольку...

1
363 / 364 / 167
Регистрация: 11.06.2010
Сообщений: 703
03.08.2012, 16:44 2
Cумма элементов массива с нечетными номерами
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.08.2012, 16:44

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Программу pascal переписать под c++
Напечатать в возрастающем порядке все числа от 100 до 999, в десятичной записи в которых нет...

Программу pascal переписать под c++ условные операторы
Всем доброго времени суток помогите переписать программу под c++ program lolz; Var...

Переписать с pascal
Здравствуйте! сможете помочь переписать код с pascal на c++ program Zadanie_3; {$reference...

Переписать с Pascal на С++
Var f1,f2: File of Real; i,n,k: Integer; x,s: Real; BEGIN Write('Введите кол-во чисел:...


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

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

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