Практическая работа № 2 «Программирование на языке Pascal. Линейные алгоритмы» Задание №11 Население Москвы равняется а=9000000 жителей. Население Нью-Васюков равняется b=1000…

Давайте разберем ваши задания по программированию на языке 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. Затем выполняем 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

Давайте выполним вычисления:

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 результат будет округлен. Правильнее будет использовать вещественные числа:

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 для расчета площади и длины забора:

VAR
  areaYard, areaHouse, freeArea, fenceLength: Real;
BEGIN
  areaYard := 50 * 30;  // Площадь двора
  areaHouse := 20 * 10; // Площадь дома
  freeArea := areaYard - areaHouse; // Свобод