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

перевести из паскаля в с++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Длина введенной с клавиатуры строки http://www.cyberforum.ru/cpp-beginners/thread1179637.html
Ребят, помогите пожалуйста. В общем при защите лабы возникли проблемы... помогите пожалуйста...
C++ "control may reach end of non-void function" Xcode main.cpp:42:1: Control may reach end of non-void function Выдает такую ошибку, гуглил не помоглу, видимо я туп #include <iostream> using namespace std; int razmer; class Massiv { double *mas; int n; http://www.cyberforum.ru/cpp-beginners/thread1179635.html
Чтение данных из файла в таблицу графического режима C++
Здравствуйте! Назрел такой вопрос: как считать данные из уже созданного файла в таблицу, которая была создана в графическом режиме? Через outtextxy не выходит. Видимо, функция fread здесь тоже не пригодна... Подскажите, пожалуйста
Сортировка методом "быстрая сортировка" C++
Здравствуйте! Имеется структура: struct BMS_Data { int* SortNodesList; double* NodesX; double* NodesY; double* NodesZ;
C++ Дано n точек в пространстве, упорядочить точки по неубыванию их расстояний до начала координат http://www.cyberforum.ru/cpp-beginners/thread1179620.html
Доброго времени суток всем. Прошу помочь с этими заданиям, написать код в c++ 1. Дано n точек в пространстве. Упорядочить точки по неубыванию их расстояний до начала координат.
C++ Найти строки матрицы, где есть эл-т для которого сумма предшествующих равна сумме следующих за ним элементов Доброго времени суток всем. Прошу помочь с этими заданиям, написать код в c++ 2. Вывести строки матрицы, в которых есть такой элемент, что сумма предшествующих равна сумме следующих за ним элементов. подробнее

Показать сообщение отдельно
Sest8
 Аватар для Sest8
0 / 0 / 0
Регистрация: 18.05.2014
Сообщений: 2
18.05.2014, 14:28     перевести из паскаля в с++
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
program spektr;
uses crt;
type vect=array[1..20]of integer;
var f,g:vect;
      j,i,n:integer;
BEGIN  clrscr;
      write('n='); readln(n);
      for i:=0 to n-1 do
          begin
              write('f[',i,']=');readln(f[i]);
          end;
      for i:=0 to ((n-1)div 2) do
         g[i]:=f[2*i];
       j:=0;
       for i:=((n-1)div 2)+1 to n-1
         begin
                g[i]:=f[2*j]+f[2*j+1];
                if (g[i] mod 2)=0 then g[i]:=0 else g[i]:=1; j:=j+1;
         end;
      writeln(‘spektr=();
     for i:=0 to n-1 do      
          begin
              writeln(g[i],’’);
          end; writeln()); 
readkey;
END.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 01:17. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru