0 / 0 / 0
Регистрация: 13.01.2016
Сообщений: 1
1

Перевести программу из Pascal в C++

13.01.2016, 17:15. Показов 454. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток!
В С++ я совсем слаб, так что хотелось бы попросить помощи в переводе данной программки в C++.

Код
Type
  om = array [2..3] of Integer;

Var i,ost,n3,n2,N:integer;
     max,P:Real;
     A:om;

Function power (A:om):real;
var i:Integer;
     x,y:Real;
begin
 x:=1;
 for i:=1 to A[3] do
    x:=x*3;
 y:=1;
 for i:=1 to A[2] do
    y:=y*2;
 power:=x*y;
end;

Begin
 Assign (input, 'input.txt');
 Reset (input);
 ReadLn (N);
 A[3]:=0;
 A[2]:=0;
 n3:=N div 3;
 A[3]:=n3;
 ost:=N-3*n3;
 n2:=ost div 2;
 A[2]:=n2;
 P:=power(A);
 max:=P;
 for i:=1 to n3 do
 begin
   Dec (n3);
   A[3]:=n3;
   ost:=N-n3*3;
   n2:=ost div 2;
   A[2]:=n2;
   P:=power(A);
   if P>max then
      max:=P;
 end;

 Assign (output, 'output.txt');
 ReWrite (output);
 Write (max:0:0);
End.
Заранее благодарю
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2016, 17:15
Ответы с готовыми решениями:

Из Pascal в C++ программу перевести
Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то...

Перевести программу из pascal в С++
Найти: Среднее арифметическое S элементов, не превышающих 15 по абсолютному значению и их...

Перевести программу из Pascal в С++
Перевести программу из Pascal в С++ Есть такая программа на паскале в каждом слове заменяет все...

Перевести программу с Pascal на С++
нужно код с паскаля подогнать под код с++ var a,s:integer; begin clrscr; write('vvedite...

0
13.01.2016, 17:15
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2016, 17:15
Помогаю со студенческими работами здесь

Перевести программу с Pascal на С++
нужно код с паскаля подогнать под код с++ var first, second: string; chars: set of...

Перевести программу с Pascal на С++
Program SumCuba; var x, {пробное число} n, {последняя цифра} p, {число без последней цыфры} ...

Перевести программу с Pascal на С++
uses crt; var f:text; {переменная для текстового файла} s:string; i:byte; begin...

Можете перевести программу из Pascal в c++
Помогите пожалуйста :3 Известна заработная плата, полученная 5 сотрудниками отдела в течение года....

Нужно Перевести программу с Turbo pascal на C++
Помогите пожалуйста! Нужно Перевести программу с Turbo pascal на C++ вот этот код: uses crt;...

Как программу на Turbo Pascal перевести на C++?Выручите)
const N=3; var X,Y:array of real;Z:array of real;max,min:real;m,p,i,j,k:integer; Begin for i:=1...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru