[kilds]

даны 3 действительных чила (x,y,z) . Найти MIn(x,y,z) Max(x,y,z)
вот мой варинт . Нужно написать в консоли

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
x,y,z,max:real;
funcion max(a,b:real):real;
begin
if a>b then max:=a else max:=b;
end;
funcion min (a,b:real):real;
begin
if a<b then min:a else min:=b;
end;
begin
readln (x,y,z);
writeln ('max=',max(max(x,y),max(y,z)));
writeln ('min=',(min(x,y),min(y,z)));
End.

Админ: Пользуемся тегами для оформления кода!

кто знает как написать более коротко помогите )

[Ildar-tsr]

Код:

funcion max(a,b,c:real):real;
begin
if (a>b) and (a>c) then
  result:= a
else
  if b>c then result:= b
  else result:= c;
end;

writeln ('max=',max(x,y,z));

min по аналогии

[dr. F.I.N.]

а не проще?
Минимум = ФункцияМинимум(x, ФункцияМинимум(y, z))
Максимум = ФункцияМаксимум(x, ФункцияМаксимум(y, z))

[kilds]

Сообщение от dr. F.I.N.

а не проще?
Минимум = ФункцияМинимум(x, ФункцияМинимум(y, z))
Максимум = ФункцияМаксимум(x, ФункцияМаксимум(y, z))

можно пожалуста командами , просто я не силён в програмировании

[kilds]

Сообщение от Ildar-tsr

Код:

funcion max(a,b,c:real):real;
begin
if (a>b) and (a>c) then
  result:= a
else
  if b>c then result:= b
  else result:= c;
end;

writeln ('max=',max(x,y,z));

min по аналогии

выдаёт ошибки
[Error] Project1.dpr(8): Invalid compiler directive: 'funcion'
[Error] Project1.dpr(8): ',' or ':' expected but '(' found
[Error] Project1.dpr(8): ';' expected but ':' found
[Error] Project1.dpr(9): Type expected but 'BEGIN' found
[Error] Project1.dpr(11): Undeclared identifier: 'result'

[Pyro]

если надо короче, можно удалить обе

PHP код:

function 


а в uses добавить math;

[kilds]

спасибо всем ) плучилось вот так
program Project1;

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils,math;
var
x,y,z:real;
function max(a,b:real):real;
begin
if a>b then max:=a else max:=b;
end;
function  min (a,b:real):real;
begin
if a<b then min:=a else min:=b;
end;
begin
readln (x,y,z);
writeln ('max=',max(max(x,y),max(y,z)));
writeln ('min=',min(min(x,y),min(y,z)));
End.

Админ: Не забываем про теги! При рецедиве последуют санкции!
осталось только остановить программу в конце.....

[Konrad]

Жесть...
Перевелись уже прогеры...

PHP код:

if a>b then 
max:=a 
else 
max:=b;

if max<c then 
max:=c; 


[chainik]

уж если использовать модуль Math то наверное так:

Код:

program FindMaxMin;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;
var
x,y,z:real;
begin
readln (x,y,z);
writeln ('max=',max(max(x,y),z));
writeln ('min=',min(min(x,y),z));
readln;
End.

ну а если их больше трех- то на этот случай есть
функции Max и Min которые могут работать с массивом

Код:

function MinValue(const Data: array of Double): Double;
function MaxValue(const Data: array of Double): Double;

Вот только устроит ли такое решение твоего препода?

[kilds]

моему преподу по барабану как лиш бы правильно

[chainik]

классный у тебя препод!!!!!!!!!!!
мне бы такого в свое время...

Хотя лучше не надо.

[kilds]

ну он дядька суровый , щас только начали изучать программирование , думаю дальше будет сурово поверять