Практическая работа № 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 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. Затем `a` становится `10*100 + 1`, что равно 1001. Поэтому будет напечатано `1001`. 2. `a:=100; a:=-a; WriteLn (a)` - `a` становится `-100`. Поэтому будет напечатано `-100`. 3. `a:=10; b:=25; a:=b-a; b:=a-b; WriteLn (a,'',b)` - Сначала `a` равно 10, `b` равно 25. Затем `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, поэтому `a`: - `(4 + 1) * (20 - 16) - 11 = 5 * 4 - 11 = 20 - 11 = 9`. 2. Теперь `b`: - `11 div (9 - 4) = 11 div 5`, что равно 2 (целочисленное деление). 3. Теперь `Sqr(a) + b - 1`: - `Sqr(9) + 2 - 1 = 81 + 2 - 1 = 82`. Таким образом, программа напечатает `82`. ### Задание №14 В данной программе ошибка связана с делением целых чисел и нецелочисленным результатом. Чтобы исправить, вам нужно использовать `real` переменную для `y`: ```pascal VAR a, b: Integer; y: Real; BEGIN a := 10; b := 6; y := a / b; // используем деление с плавающей запятой WriteLn(y); END. ``` ### Задание №15 Вычислим площадь основания и объем спичечной коробки. 1. Площадь основания (ширина * толщина): - Площадь основания = 8 см * 5 см = 40 см². 2. Объем (высота * ширина * толщина): - Объем = 12.41 см * 8 см * 5 см = 496.4 см³. ### Задание №16 1. Для задачи с домом и двором: - Площадь двора = 50 * 30 = 1500 м². - Площадь дома = 20 * 10 = 200 м². - Свободная площадь = Площадь двора - Площадь дома = 1500 - 200 = 1300 м². - Периметр забора (по контуру двора, без одной стороны) = 2*(50 + 30) - 20 = 90 м. 2. Для окружности: - Длина окружности = 2 * π * r = 2 * 3.14159 * 800 ≈ 5026.5480. - Площадь круга = π * r² = 3.14159 * 800² ≈ 2010617.1774. 3. Для автомобильной задачи: - Расстояние = 80 * 3 + 90 * 2 = 240 + 180 = 420 км. - Время = 3 + 2 = 5 часов. - Средняя скорость = 420 / 5 = 84 км/ч. Если у вас возникнут дополнительные вопросы или нужно прояснить какие-то моменты, не стесняйтесь обращаться! Удачи в изучении!