Практическая работа № 2 «Программирование на языке Pascal. Линейные алгоритмы» Задание №11 Население Москвы равняется а=9000000 жителей. Население Нью-Васюков равняется b=1000 жителей. Напишите программу, которая определяет разницу в числе жителей между двумя городами. Используйте переменные величины. Задание №12 Определите без компьютера, что будет напечатано при выполнении следующих фрагментов программ: 1) a:=100; a:=10*a+1; WriteLn (a) 2) a:=100; a:=-a; WriteLn (a) 3)a:=10; b:=25; a:=b-a; b:=a-b; WriteLn (a,'',b) Задание №13 VAR a,b: Integer; BEGIN a:=(Sqr(2)+1)*(20- Sqr(2*2))-11; b:=11 div (a-4); WriteLn (Sqr(a)+b-1) END. Задание №14 Найдите ошибку в данной программе: VAR a,b,y : Integer; BEGIN a:=10; b:=6; y:= a/b; WriteLn (y) END. Задание №15 Известны размеры спичечной коробки: высота - 12.41 см., ширина - 8 см., толщина - 5 см. Вычислить площадь основания коробки и ее объем. Задание № 16 Написать программы для решения следующих задач: 1) В углу прямоугольного двора размером 50х30 стоит прямоугольный дом размером 20х10. Подсчитать площадь дома, свободную площадь двора и длину забора. Примечание: в углу, где дом, забора нет. 2) Радиус окружности равен 800. Вычислить длину окружности и площадь круга. Результаты печатать с 5 знаками после десятичной точки. 3) Автомобиль 3 часа ехал со скоростью 80 км/час и 2 часа со скоростью 90 км/час. Вычислить среднюю скорость автомобиля (она равна суммарному пути, деленному на суммарное время).

Давайте разберем ваши задания по программированию на языке Pascal и математике по порядку. ### Задание № 11 Для определения разницы в числе жителей между Москвой и Нью-Васюками вы можете использовать следующую программу на языке Pascal: ```pascal PROGRAM PopulationDifference; VAR a, b, difference: Integer; BEGIN a := 9000000; // население Москвы b := 1000; // население Нью-Васюков difference := a - b; // разница в населении WriteLn('Разница в числе жителей: ', difference); END. ``` ### Задание № 12 Решим фрагменты программ без компьютера. 1) `a:=100; a:=10*a+1; WriteLn(a)` - Сначала `a` становится 100. Затем выполняем `10*a + 1`, что будет `10*100 + 1 = 1000 + 1 = 1001`. Значит, будет напечатано `1001`. 2) `a:=100; a:=-a; WriteLn(a)` - Здесь сначала `a` равняется 100, затем `a` присваивается `-a`, то есть `-100`. Значит, будет напечатано `-100`. 3) `a:=10; b:=25; a:=b-a; b:=a-b; WriteLn(a,'',b)` - Сначала `a` становится `25 - 10 = 15`. Затем `b` становится `15 - 25 = -10`. Будет выведено `15 -10`. ### Задание № 13 Давайте выполним вычисления: ```pascal VAR a, b: Integer; BEGIN a := (Sqr(2) + 1) * (20 - Sqr(2 * 2)) - 11; b := 11 div (a - 4); WriteLn(Sqr(a) + b - 1); END. ``` 1. `Sqr(2)` = 4, так что: `(4 + 1) * (20 - 16) - 11` 2. `5 * 4 - 11 = 20 - 11 = 9` 3. `a` будет равно 9. 4. `b = 11 div (9 - 4) = 11 div 5`, здесь при делении по целым `b` станет 2. 5. В итоге: `Sqr(9) + 2 - 1 = 81 + 2 - 1 = 82`. ### Задание № 14 Ошибка в данной программе заключается в том, что вы делите целые числа, и при делении 10 на 6 результат будет округлен. Правильнее будет использовать вещественные числа: ```pascal VAR a, b, y: Real; // измените тип переменной на Real BEGIN a := 10; b := 6; y := a / b; // используйте деление на плавучей запятой WriteLn(y); END. ``` ### Задание № 15 Найдём площадь основания коробки и её объем. - Площадь основания = ширина * толщина = 8 см * 5 см = 40 см². - Объем = высота * ширина * толщина = 12.41 см * 8 см * 5 см = 496.4 см³. ### Задание № 16 1) **Программa для расчета площади и длины забора:** ```pascal VAR areaYard, areaHouse, freeArea, fenceLength: Real; BEGIN areaYard := 50 * 30; // Площадь двора areaHouse := 20 * 10; // Площадь дома freeArea := areaYard - areaHouse; // Свобод