Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] написание программы используя оператор if

Автор: madjaheda 18.3.2010, 22:39

Люди помогите сделать програмку.
Если сумма трех попарно разных действительных чисел x,y,z меньше единици, тогда меншее с этих трех чисел заменить полусумой двух других; в другом случае заменить меншее с х и у полусуммой двух значений, которые остались.
Всех за ранее благодарю!

Автор: cardinal 18.3.2010, 23:13

Ничем помочь не могу (пожалуйста не пишите мне в ПМ; представляете что будет если каждый участник форума будет делать?).

Автор: kemiisto 18.3.2010, 23:25

M
kemiisto

Для домашних заданий, курсовых и т.п. существует \"Центр Помощи\".

Тема перенесена.

Автор: madjaheda 19.3.2010, 01:04

пытался крутить вертеть но безрезультатно

program ifo4;
uses crt;
var x,y,z:real;
function Min(x,y:integer):integer;
begin;
clrscr;
{if (x+y+x)<1 then}
{begin
{function Min(x,y:integer):integer;
begin
if x<y then
      Min:=x
    else
      Min:=y
end;
begin
var x,y,z:integer;
readln(x,y,z);
writeln(Min(x,Min(y,z)));
end;
begin}
if (x+y+x)<1 then
begin
if x=Min(x  then x:=(y+z)/2
else
begin y:=Min then y:=(x+z)/2
       else  z:=(x+y)/2
end;
end;
else
begin
if x<y then x:=(y+z)/2
else y:=(x+z)/2
writeln('x=',x);
writeln('y=',y);
writeln('z=',z);
end;
end.

Автор: Dancer 19.3.2010, 17:18

Код


program ifo4;
uses crt;
var x,y,z:real;

BEGIN
ClrScr;

  readln(x,y,z);
  if(x + y + z) < 1 then
    begin
      if (x < y) AND (x < z) then
      begin
        x:=(y+z)/2;
      end
      else
      begin
        if (y < x) AND (y < z) then begin y:= (x+z)/2; end
        else z := (x+y)/2;
      end;
    end
  else
    begin
      if (x < y) then begin x := (y+z)/2; end
      else begin y := (x + z)/2; end;
    end;

  writeln('x=',x:5:2);
  writeln('y=',y:5:2);
  writeln('z=',z:5:2);
  readln;
END.

Автор: madjaheda 20.3.2010, 00:43

спасибо огромное, точно так же зделал сегодня....жаль что раньше никто не посказал