Перевод кода с Паскаля на C++

13.01.2021, 16:12. Показов 929. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

переведите данный код из паскаля в с++

Pascal

uses crt;
function max(x,y,z:real):real;
var m:real;
begin
if x>y then m:=x else m:=y;
if z>m then m:=z;
max:=m;
end;
function min(x,y,z:real):real;
var m:real;
begin
if x<y then m:=x else m:=y;
if z<m then m:=z;
min:=m;
end;
var x,y,z,mx,mn,u:real;
begin
clrscr;
writeln('Введите значения x,y,z');
readln(x,y,z);
mx:=max(x,y,z);
mn:=min(x,y,z);
if mx=-mn then write('Значение u не определено, деление на 0')
else
 begin
  u:=sqr(mx)-sqr(mn)/sqr(mx+mn);
  write('u=',u:0:2);
 end;
readln
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

13.01.2021, 16:12

Ответы с готовыми решениями:

Перевод кода из Паскаля в С++
Я в С++ не бум бум, написал прогу на паскале а нуно на Си++ помогите перевести Задача : Назовем...

Перевод кода с паскаля на С++
Нужно перевести на С++ program dvumerniu; uses crt; const m=2; n=4; type ...

перевод кода с паскаля на с++
помогите перевести код uses crt; var t1:boolean; a, b, c: integer; begin

Перевод кода из Паскаля на С++
Я еще не обладаю достаточными знаниями работы с файлами на С++ поэтому помогите перевести код ...

	13.01.2021, 16:12

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

13.01.2021, 16:12

Помогаю со студенческими работами здесь

Перевод кода с Паскаля на C++
Помогите пожалуйста перевести код программы из паскаля в с++ Uses crt; Var ...

Перевод кода с Паскаля на С++
Помогите плиз перевести код с Паскаля на С++, компилятор DEV C++. Буду вам очень благодарен. Код...

Перевод кода из паскаля в c++
Собственно надо перевести этот код из паскаля в c++, чтобы программа выдавала такие же данные и тот...

Перевод кода из Паскаля в C++
помогите пожалуйста перевести код в c++ integer procedure F2(ref(position) p,integer...

Перевод кода из Паскаля в С++
uses crt,graph; type TPoint=record x,y:integer; end; var...

Перевод кода с Паскаля на С++
Помогите перевести код с Паскаля на С++: Var s,s1,s2:string; j,k,n:integer; Begin ...

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

Или воспользуйтесь поиском по форуму:

Наверх