4. Решение вычислительных задач.
1. Комната.
Комната имеет форму параллелепипеда.
Даны длина, ширина и высота комнаты (L, W, H).
Требуется найти объем, площадь пола, площадь стен, максимальное количество компьютеров, которые можно разместить в комнате (на один компьютер полагается не менее 6 квадратных метров пола).
Решение задачи.
Введем обозначения:
V - объем, Sp- площадь пола, Ss- площадь стен, n- число компьютеров.
Тогда:
V=L*W*H, Sp=L*W, Ss=2*H*(L+W), n=целая часть(Sp/6)
Программа:
|
Program Kom; Var L,W,H,V,Sp,Ss:Real; n:Integer; Begin Write(‘L W H=’);ReadLn(L,W,H); V:=L*W*H; Sp:=L*W; Ss:=2*H*(L+W); n:=Trunc(Sp/6); WriteLn(‘V=’,V:8:4); WriteLn(‘Sp=’,Sp:8:4); WriteLn(‘Ss=’,Ss:8:4); WriteLn(‘n=’,n); Readln; End. |
Имя программе придумываем сами. Объявляем все переменные вещественного типа и одну переменную целого типа.
Осуществляем ввод данных Вычисляем объем Вычисляем площадь пола Вычисляем площадь стен Вычисляем число компьютеров (целое) Выводим на экран значение объема Выводим на экран площадь пола Выводим на экран площадь стен Выводим на экран число компьютеров Пауза |
Запускаем программу <Ctrl>+F9
|
L,W,H=5 5 3<Enter> V= 75.0000 Sp= 25.0000 Ss= 60.0000 n=4 <Enter> |
L,W,H=3.5 4.8 2.7<Enter> V= 45.3600 Sp= 16.8000 Ss= 44.8200 n=2 <Enter> |
2. Треугольник.
Даны длины трех сторон треугольника (a, b, c).
Найти периметр, площадь, все высоты, радиус описанной окружности, радиус вписанной окружности и все углы. Углы вычислить в радианах и в градусах. Углы в градусах округлить до целого значения.
3. Давление воздуха.
Даны высоты над уровнем моря (0, 300, 1000, 8848 метров)
Найти нормальное давление воздуха на этих высотах в мм ртутного столба
4. Полет камня.
Камень бросили под углом к горизонту. Известен угол бросания и начальная скорость. Угол бросания вводить в градусах и пересчитывать в радианы.
Найти дальность полета, максимальную высоту траектории, время полета.
5. Целые числа.
Даны два целых числа.
Найти целое частное и остаток от деления первого числа на второе.
6. Выделение цифр.
Дано целое четырехзначное число.
Найти все четыре цифры, а также сумму и произведение всех цифр.
7. Секунды.
Дана длительность периода времени в секундах (например, 10 000 сек).
Выразить этот же промежуток времени в часах, минутах и секундах.
Например, 7272 секунд это 2 часа 1 минута и 12 секунд.
8. Правильный многоугольник.
Дано число сторон правильного многоугольника и радиус вписанной окружности.
Найти площадь окружности и площадь многоугольника.
9. Цифры.
Даны два целых числа.
Найти вещественное частное от деления первого числа на второе, а также младшую цифру целой части и старшую цифру дробной части.
Например, 121 и 7. Ответы: 17.2857, 7, 2.
10. Биты.
Дано количество информации в битах.
Выразить это количество через килобайты, байты и биты.
Например, 10 005 бит – это 1 кбайт, 226 байт и 5 бит