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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ что не так в программе? Виснет при компиляции http://www.cyberforum.ru/cpp-beginners/thread322382.html
Найти в массиве: 1) сумму элементов с нечётными номерами 2) Сумму элементов между первым и последним отрицательными элементами 3) в массиве отрицательные элементы заменить нулями и переставить в конец #include<iostream.h> #include<math.h> void main() { int i_perv, i_posled, i, j; double sum,summ,temp; double*a=new double ;
C++ Массивы Написать функции: 1. Заполнение генератором в заданном диапазоне(принимает массив, размер, диапазон для генератора). 2. Вывод на экран содержимого массива(массив, размер). 3. Сортировка(массив, размер, тип(возрастание убывание)). 4. Поиск минимального((массив, размер)). 5. Поиск максимального(массив, размер). 6. Сумма элементов(массив, размер). Перегрузить эти функции для работы с... 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 x, int y) { int a=1;
Теорема синусов 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. Найти наибольшее из значении элементов двух строк, указанных пользователем. 3. Для заданного пользователем натурального числа m найти сумму тех элементов матрицы, сумма индексов которых равна m.
C++ bool Помогите с функцией, ее нужно реализовать с помощью типом данных bool Напишите функцию, которая принимает число и возвращает истину, если число четное и ложь, если нечетное. подробнее

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

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

19.06.2011, 01:34. Просмотров 324. Ответов 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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru