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

[Кристина4543]

1/Ввести с клавиатуры длину и ширину прямоугольной двери.
Кроме того, ввести длину, ширину и высоту шкафа – прямоугольного параллелепипеда.
Выяснить, можно ли пронести шкаф через дверь, не разбирая его.
2. Ввести три вещественных числа с клавиатуры. Выдать на экран сумму положительных
чисел и сумму отрицательных чисел.

[Alar]

язык какой.

2. Ввести три вещественных числа с клавиатуры. Выдать на экран сумму положительных
чисел и сумму отрицательных чисел.

решений подобныз задач уже сотни на форуме. используйте поиск в правом верхнем углу.

[newerow1989]

var l,h,a,b,c:integer;
    d:boolean;
begin
   Write('Dlina dveri      = '); Readln(l);
   Write('Wysota dveri     = '); Readln(h);
   Write('Dlina schkafa    = '); Readln(a);
   Write('Schirina schkafa = '); Readln(b);
   Write('Wysota schkafa   = '); Readln(c);
   d:=(l>=a) and (h>=b);
   If not d then
      d:=(l>=a) and (h>=c);
   If not d then
      d:=(l>=b) and (h>=a);
   If not d then
      d:=(l>=b) and (h>=c);
   If not d then
      d:=(l>=c) and (h>=a);
   If not d then
      d:=(l>=c) and (h>=b);
   If d then
      Writeln('yes') else
      Writeln('no');
   Readln;
end.

var a,b,c,sp,so:real;
begin
   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   Write('c = '); Readln(c);
   sp:=0;
   so:=0;
   If a>0 then
      sp:=sp+a else
      so:=so+a;
   If b>0 then
      sp:=sp+b else
      so:=so+b;
   If c>0 then
      sp:=sp+c else
      so:=so+c;
   Writeln('sp = ',sp:8:5);
   Writeln('so = ',so:8:5);
   Readln;
end.

[Arigato]

А если шкаф пронести по диагонали?

[Alar]

Arigato, это задачка студенческая, а не научная работа ))

[Аватар]

это задачка студенческая, а не научная работа

ну конечно, синус-косинус не доступен студентам для понимания. очень большая наука ))

[Alar]

Вот что меня больше напрягает

Кристина4543 Кристина4543 вне форума
Новичок

Отправить сообщение
Списки
Замечания (0)
Редактировать профиль

Последняя активность: Вчера 18:45