получить min (x,y,z)

@spectr · Регистрация: 01.12.2009

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

даны действительные числа x,y и z. получить min (x,y,z).

@Викдон · 13.12.2009, 13:30

Pascal

var x,y,z: real;
 
begin
write('Input x: ');
readln(x);
 
write('Input y: ');
readln(y);
 
write('Input z: ');
readln(z);
 
if x<y then
  if x<z then
    write('min = ',x)
  else 
    write('min = ',z)
 
else
 if y<z then
    write('min = ',y)
  else 
    write('min = ',z)
end.

@Sarmak · 13.12.2009, 13:31

Delphi

var
  x,y,z,min:real;
begin
writeln('Введите x ->'); readln(x);
writeln('Введите y ->'); readln(y);
writeln('Введите z ->'); readln(z);
min:=x;
if y<min then min:=y;
if z<min then min:=z;
writeln('min = ',min:6:2);
readln
end.

@Snoopy · 13.12.2009, 13:31

Pascal

min:=a;
 if (b<a) and (b<c) then min:=b;
 if (c<a) and (c<b) then min:=c;
Writeln(min);

@yanyk1n · 13.12.2009, 13:37

Pascal

uses crt;
var a,b,c:integer;
 
function min(a,b:integer):integer;
begin
 if a<b then min:=a else min:=b;
end;
 
begin
 clrscr;
 readln(a,b,c);
 writeln(min(min(a,b),c));
 readln;
end.

Не по теме:

Конкурс на самое оригинальное решение задачи?)

@Snoopy · 13.12.2009, 13:42

Не по теме:

:D:D

19.04.2011, 18:45

а как сделать чтобы она учитывала когда x=z<>y или x=y<>z или z=y<>x и чтобы не выполнялось когда они равны?

10.10.2012, 07:24

Сообщение от yanyk1n

begin
clrscr;
readln(a,b,c);
writeln(min(min(a,b),c));
readln;
end.

а без функции нельзя примерно так же сделать?
не хочу через ветвление

как-то слишком просто

@spectr 0 / 0 / 0 Регистрация: 01.12.2009 Сообщений: 7
		1
	получить min (x,y,z) 13.12.2009, 13:23. Показов 2342. Ответов 7 Метки нет (Все метки) даны действительные числа x,y и z. получить min (x,y,z). 0

muslimin
	19.04.2011, 18:45	7
	а как сделать чтобы она учитывала когда x=z<>y или x=y<>z или z=y<>x и чтобы не выполнялось когда они равны?

eternel_moteur
	10.10.2012, 07:24	8
	Сообщение от yanyk1n begin clrscr; readln(a,b,c); writeln(min(min(a,b),c)); readln; end. а без функции нельзя примерно так же сделать? не хочу через ветвление как-то слишком просто

Опции темы