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

перевод из pascal в си++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Помогите с задачками на C++ http://www.cyberforum.ru/cpp-beginners/thread402389.html
в последней чет еще было про динамическое выделение памяти... :\ lab3 Даны натуральные числа п, а1 ..., an. Получить среднее арифметическое тех членов последовательности а1, ..., an, которые: 1) являются удвоенными нечетными числами; 2) при делении на 7 дают остаток 1, 2 или 5. з.ы.тут собственно сами условия интересуют
C++ дописать программу помогите пожалуйста дописать программу,по блок-схеме углы вроде написал,но правильно ли? #include <iostream> #include <iomanip> #include <math.h> using namespace std; int main(void) { double a, b, c, A, B, C, ; double Ap, Bp, Cp; http://www.cyberforum.ru/cpp-beginners/thread402382.html
Работа со струкрурами C++
У администратора железнодорожных касс хранится информация о сво-бодных местах в поездах дальнего следования на ближайшую неделю в сле-дующем виде: дата выезда, пункт назначения, время отправления, число сво-бодных мест. Оргкомитет международной конференции обращается к администратору с просьбой зарезервировать m мест до города N на k-е число со временем отправления поезда не позднее t часов...
C++ Программа добавляет введенный массив 5*5 в стек и выводит полученный стек двумя столбцами
Программа добавляет введенный массив 5*5 в стек и выводит полученный стек двумя столбцами #include <iostream> #include <stdlib.h> #include <iomanip> #include <windows.h> #define sz 5 using namespace std;
C++ Компьютерный каталог домашней библиотеки http://www.cyberforum.ru/cpp-beginners/thread402332.html
Помогите плиз с курсовой Компьютерный каталог домашней библиотеки. В программе реализовать ввод новых данных, поиск за задаными параметрами, удаление, просмотр, изменение отдельных записей. Если есть у кого исходник поделитесь, буду очень благодарен.
C++ Вывести текст в виде таблицы подскажите пожалуйста как сделать таблицу! это моя шапка таблицы void baza::output_izdelie() { cout<<" -----------------------------------------------------------------------------"<<endl; cout<<" |Nazvanie Izdeliya|Kod izdeliya|Proba izdeliya|Razmer izdeliya|Cena izdeliya|"<<endl; cout<<" -----------------------------------------------------------------------------"<<endl; ... подробнее

Показать сообщение отдельно
ummkz
6 / 6 / 2
Регистрация: 22.03.2011
Сообщений: 49

перевод из pascal в си++ - C++

08.12.2011, 20:39. Просмотров 263. Ответов 0
Метки (Все метки)

Собственно код на паскале:
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
uses crt;
function Sov(x:longint):boolean;
var j,k:longint;
begin
k:=0;
for j:=1 to x div 2 do
if x mod j=0 then k:=k+j;
if k=x then Sov:=true else Sov:=false;
end;
var a:array[1..100] of integer;
    n,i,max,k,j:integer;
begin
clrscr;
write('n=');readln(n);
writeln('Введите последовательность из ',n,' чисел:');
for i:=1 to n do
  begin
    write('a[',i,']=');
    readln(a[i]);
  end;
clrscr;
writeln('Massiv:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
writeln('Последовательности совершенных чисел:');
max:=0;
i:=1;
while i<=n do
if Sov(a[i])then
 begin
  k:=1;j:=i;
  while Sov(a[j])and(j<=n)do
   begin
    write(a[j],' ');
    j:=j+1;
    k:=k+1;
   end;
  writeln;
  if k>max then max:=k-1;
  i:=i+k;
 end
else i:=i+1;
if max=0 then write('В массиве нет совершенных чисел!')
else write('Максимальная длина последовательности=',max);
readln
end.
кто нибудь может перевести в си++?
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru