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

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

Восстановить пароль Регистрация
 
Fbink
1 / 1 / 1
Регистрация: 19.07.2012
Сообщений: 114
31.07.2012, 21:15     Программы pascal переписать под c++ #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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.07.2012, 21:15     Программы pascal переписать под c++
Посмотрите здесь:

Переписать за меня программу с Pascal на С++ C++
C++ Программу Pascal переписать под c++
Программу pascal переписать под c++ C++
C++ Программу pascal переписать под c++ условные операторы
C++ Программы pascal переписать под c++
Программы pascal переписать под c++ C++
Программу pascal переписать под c++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
-comrade-
355 / 356 / 42
Регистрация: 11.06.2010
Сообщений: 703
03.08.2012, 16:44     Программы pascal переписать под c++ #2
Cумма элементов массива с нечетными номерами
Yandex
Объявления
03.08.2012, 16:44     Программы pascal переписать под c++
Ответ Создать тему
Опции темы

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