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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
ummkz
6 / 6 / 2
Регистрация: 22.03.2011
Сообщений: 49
#1

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

08.12.2011, 20:39. Просмотров 262. Ответов 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.
кто нибудь может перевести в си++?
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 20:39     перевод из pascal в си++
Посмотрите здесь:

Перевод с Pascal на C++ - C++
Вечер добрый. Перевожу с pascal на c++. Подскажите или отредактируйте код, что не так? program z1; var a,b:real; begin; ...

Перевод из Pascal в С++ - C++
Помогите пожалуйста перевести программу из Паскали в С++ var k,n: integer; d: char; procedure AddDigit(s: string); var ...

Перевод из Pascal на C++ - C++
Помогите перевести программу из Pascal на С++ program lab; const N=30; var A:array of real; i,k:integer; S:real; begin ...

перевод из Pascal в C++ - C++
Здравствуйте!Задача: Прямоугольный садовый участок шириной N и длиной M метров разбит на квадраты со стороной 1 метр. На этом участке...

Перевод из Pascal в C++ - C++
Помогите,пожалуйста, с переводом программы из паскаля в C++ uses crt; function F(x:real):real; begin F:=1+x-x*x*x; ...

Перевод с pascal на c++ - C++
привет всем , помогите ПОЖАЛУЙСТА перевести с pascal на c++. пытался перевести, но с++ сложноват , на изучение языка времени...

Перевод с Pascal на Си++ - C++
Помогите, пожаалуйста перевести код программы с Паскаля на Си++. Очень прошу, помогите. Var S:String; W,Wrd:Array of String; ...

Перевод из Pascal в C++ - C++
Перевод из Pascal в C++ Здравствуйте, помогите пожалуйста с переводом, сам нисколько не знаю паскаль, только в этом году начал...

Перевод с Pascal на C++ - C++
Код на паскале, помогите его переписать в С ++ . Очень нужно ребят . Последняя задача. const mi = 100; type matrix = array of...

Перевод с Pascal на С++ - C++
Type predpr=Array of longint; rasp=Array of longint; На языке С++, как это будет выглядеть?


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru