VPF::[Pascal] написание программы используя оператор if

madjaheda

Дата 18.3.2010, 22:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 13.3.2010

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) madjaheda - 18.3.2010, 22:44

cardinal

Дата 18.3.2010, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 15
Всего: 99

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

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

kemiisto

Дата 18.3.2010, 23:25 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 16
Всего: 160

M
kemiisto

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

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

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

madjaheda

Дата 19.3.2010, 01:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 13.3.2010

Репутация: нет
Всего: нет

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

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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 537
Регистрация: 29.4.2005
Где: Nizhniy Novgorod

Репутация: 4
Всего: 37

Код


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.

--------------------

У программистов есть великая тайна: всё, что только можно, было давно кем-то когда-то написано. Разработчику только нужно знать в какое место кода какие строчки вставить! smile

madjaheda

Дата 20.3.2010, 00:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 13.3.2010

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »