Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.02.2017, 18:20   #1
Кристина4543
Новичок
Джуниор
 
Регистрация: 27.02.2017
Сообщений: 1
Восклицание Выяснить, можно ли пронести шкаф через дверь, не разбирая его.

1/Ввести с клавиатуры длину и ширину прямоугольной двери.
Кроме того, ввести длину, ширину и высоту шкафа – прямоугольного параллелепипеда.
Выяснить, можно ли пронести шкаф через дверь, не разбирая его.
2. Ввести три вещественных числа с клавиатуры. Выдать на экран сумму положительных
чисел и сумму отрицательных чисел.
Кристина4543 вне форума Ответить с цитированием
Старый 27.02.2017, 18:23   #2
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

язык какой.

Цитата:
2. Ввести три вещественных числа с клавиатуры. Выдать на экран сумму положительных
чисел и сумму отрицательных чисел.
решений подобныз задач уже сотни на форуме. используйте поиск в правом верхнем углу.
Alar вне форума Ответить с цитированием
Старый 28.02.2017, 05:28   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
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.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 28.02.2017, 10:21   #4
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,220
По умолчанию

А если шкаф пронести по диагонали?
Arigato вне форума Ответить с цитированием
Старый 28.02.2017, 10:33   #5
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

Arigato, это задачка студенческая, а не научная работа ))
Alar вне форума Ответить с цитированием
Старый 28.02.2017, 11:23   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
это задачка студенческая, а не научная работа
ну конечно, синус-косинус не доступен студентам для понимания. очень большая наука ))
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 28.02.2017, 15:35   #7
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

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

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

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

Последняя активность: Вчера 18:45
Alar вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Предупреждение о несанкционированном доступе в шкаф. redman_bigman Компьютерное железо 32 02.04.2015 22:49
Помогите, захлопнулась дверь Бертругер Свободное общение 16 07.12.2013 09:57
Даны длины отрезков a,b,c,d,e.Выяснить,можно ли построить треугольник со сторонами {a,b,c},{b,c,d},{c,d,e}?Если да,то найдите пло kazbek1 Паскаль, Turbo Pascal, PascalABC.NET 6 18.05.2012 21:15