Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
yarik2550
1 / 1 / 0
Регистрация: 10.02.2016
Сообщений: 43
1

Перевести из PASCAL в С++

21.05.2016, 16:05. Просмотров 72. Ответов 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
Program monetki;
 Const m1=15;
 Type mas=array[1..m1] of longint; 
 Var a:mas;n,sum:longint;
 k,min,i,j,m:integer;
Procedure p;
 var j:integer; begin for j:=0 to 2 do
 begin if i>=m then break; 
 i:=i+1; 
 sum:= sum+j*a[i];
 k:=k+j;
 if (sum=n)and(k<min) then min:=k;
 p; 
 sum:=sum-j*a[i];
 i:=i-1;
 k:=k-(j);
 end;
 end;
Begin
 readln(n,m);
 for i:=1 to m do begin
 read(a[i]);
 sum:=sum+2*a[i];
 end; 
 if sum<n then 
 begin
 writeln(-1);
 exit; end
 else
 for i:=1 to m-1 do 
  for j:=1 to m-1 do
  if a[j]<a[j+1] then 
  begin k:=a[j]; a[j]:=a[j+1]; a[j+1]:=k; end;
  sum:=0; min:=32;k:=0;i:=0; p; 
  if min<32 then 
  writeln(min)
  else writeln(0) ;
 End.
Че-то не получается перевести код на c++.Кто сможет,переведите ,пожалуйста

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2016, 16:05
Ответы с готовыми решениями:

Перевести с Pascal на С++
Нужно перевести начало, хотяб до процедур из Pascal на С++ Я застрял на пункте...

перевести с pascal на c
нужно перевести код с pascal на c++. Заранее спасибо uses crt; const...

Перевести с Pascal на C++
var n:longint;max:integer; begin writeln('n='); readln(n); ...

Перевести c Pascal в C++
Помогите перевести в Си++ uses crt; var st:string; k,i:integer;f:boolean;...

Перевести из Pascal в C++
Нужно перевести код из Паскаля в С++ uses crt; const n=18; var g,s:real; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.05.2016, 16:05

перевести с Pascal на С++
переведите пожалуйста на С++ uses crt; var a,s,x:real; i:integer; ...

Перевести с pascal в C++
Помогите кто знает, вот код program pop; uses crt; label 10; var...

Перевести с Pascal на С++
помогите пожалуйста с переводом на язык с++ Procedure ReadLong(Var A : Tlong);...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

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