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

нужно перевести с Паскаля на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ что не так в программе? Виснет при компиляции http://www.cyberforum.ru/cpp-beginners/thread322382.html
Найти в массиве: 1) сумму элементов с нечётными номерами 2) Сумму элементов между первым и последним отрицательными элементами 3) в массиве отрицательные элементы заменить нулями и переставить в...
C++ Массивы Написать функции: 1. Заполнение генератором в заданном диапазоне(принимает массив, размер, диапазон для генератора). 2. Вывод на экран содержимого массива(массив, размер). 3. Сортировка(массив,... http://www.cyberforum.ru/cpp-beginners/thread322378.html
C++ Умножение матриц
Здравствуйте, у меня простая прога для умножения матриц относительно произвольных размеров (<100x100) #include <iostream> #include <stdio.h> #include <stdlib.h> int m; void fill(int n, int...
Теорема синусов C++
float y,a,b,u; cin>>y; y = M_PI * y / 180; cin>>a; cin>>b; u = (b/a - cos(y))/sin(y); u = cos(u)/sin(u); cout<<u; Выдает не то значение угла. В чем ошибка?
C++ Квадратная матрица http://www.cyberforum.ru/cpp-beginners/thread322344.html
Помогите с решением задачи: Дана действительная квадратная матрица порядка n. 1. Найти сумму элементов указанного пользователем столбца. 2. Найти наибольшее из значении элементов двух...
C++ bool Помогите с функцией, ее нужно реализовать с помощью типом данных bool Напишите функцию, которая принимает число и возвращает истину, если число четное и ложь, если нечетное. подробнее

Показать сообщение отдельно
Дарья Дмитренко
0 / 0 / 0
Регистрация: 10.02.2011
Сообщений: 44

нужно перевести с Паскаля на С++ - C++

19.06.2011, 01:34. Просмотров 338. Ответов 1
Метки (Все метки)

Найти в массиве:
1) сумму элементов с нечётными номерами
2) Сумму элементов между первым и последним отрицательными элементами
3) в массиве отрицательные элементы заменить нулями и переставить в конец
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
uses
  crt;
const
  n=10;
var
  a:array[1..n]of real;
  i_perv,i_posled,i,j:integer;
  sum,summ,temp:real;
begin
 
  {задаем выводим считаем}
  sum:=0;
  summ:=0;
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    readln(a[i]);
     end;
     
     for i:=1 to n do begin
     if  i mod 2 <> 0 then sum:=sum+a[i];
     end;
     writeln('Сумма с нечёт.номерами: ',sum);
  {находим номер первого отрицательного элемента}
  for i:=1 to n do begin
  if a[i]<0 then begin
                 i_perv:=i;
                 break;
                 end;
  end;
        {находим номер последнего отрицательного элемента}
  for i:=1 to n do begin
  if a[i]<0 then i_posled:=i;
  end;
  {находим сумму между отрицательными элементами}
  for i:=(i_perv+1) to (i_posled-1) do begin
  summ:=summ+a[i];
  end;
  writeln('сумма между отр. ',summ);
  {меняем на 0}
  for i:=1 to n do
    if a[i]<0 then
      a[i]:=0;
  {переносим 0 в конец}
  for i:=1 to n-1 do
    if a[i]=0 then
      for j:=i to n-1 do
      begin
        temp:=a[j];
        a[j]:=a[j+1];
        a[j+1]:=temp
      end;
  {выводим массив}
  writeln('Полученный массив:');
  write('[ ');
  for i:=1 to n do
    write(a[i],' ');
  writeln(']');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru