Вопрос по информатике:
4.52. Вася пытается высунуть голову в форточку размерами a и b см. Приняв ус-
ловно, что его голова — круглая диаметром d см, определить, сможет ли Вася
сделать это. Для прохождения головы в форточку необходим зазор в 1 см
с каждой стороны.
4.53. Даны вещественные положительные числа a, b, c, x, y. Выяснить, пройдет ли
кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x и y. Про-
совывать кирпич в отверстие разрешается только так, чтобы каждое из его ре-
бер было параллельно или перпендикулярно каждой из сторон отверстия.
4.54. Пассажир должен был сдать в камеру хранения пустой чемодан в форме па-
раллелепипеда размерами
1a , 2 a
и
3a
см и коробку размерами
1b , 2b
и
3b
см.
Оплачивать нужно каждый размещаемый предмет. Определить, сможет ли
пассажир сэкономить на оплате, поместив коробку в чемодан так, что стороны
чемодана и коробки будут параллельны либо перпендикулярны друг другу.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.08.2015 21:17
- Информатика
- remove_red_eye 1645
- thumb_up 9
Ответы и объяснения 1
Program p452;
var
a,b,m,d:integer;
begin
Write('Введите размеры форточки (а,b) в см: ');
Read(a,b);
Write('Введите диаметр головы Васи в см: ');
Read(d);
if a { +2 - это зазор по 1 см с обоих сторон }
if d<=m then Writeln('Голова проходит')
else Writeln('Голова не проходит')
end.
Тестовое решение:
Введите размеры форточки (а,b) в см: 25 40
введите диаметр головы Васи в см: 23
Голова проходит
program p453;
var
a,b,c,x,y,m1,m2,n1,n2:integer;
begin
Write('Введите размеры кирпича в см (a,b,c): ');
Read(a,b,c);
Write('Введите размеры отверстия в см (x,y): ');
Read(x,y);
if a if a
if b
else begin m1:=c; m2:=a end
else
if b
if a
else begin m1:=c; m2:=b end;
if x
if (m1<=n1) and (m2<=n2) then Writeln('Кирпич пройдет в отверстие')
else Writeln('Кирпич не пройдет в отверстие')
end.
Тестовое решение:
Введите размеры кирпича в см (a,b,c): 10 4 12
Введите размеры отверстия в см (x,y): 5 9
Кирпич не пройдет в отверстие
program p454;
var
a,b:integer;
begin
Write('Введите значения а и b: '); Read(a,b);
Writeln('Размеры чемодана ',3*a,'x',2*a,'x',a);
Writeln('Размеры коробки ',3*b,'x',2*b,'x',b);
if b else Writeln('Коробка не поместится в чемодан')
end.
Тестовое решение:
Введите значения а и b: 18 16
Размеры чемодана 54x36x18
Размеры коробки 48x32x16
Коробка поместится в чемодан
- 11.08.2015 13:09
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.