9 класс Информатика ГДЗ учебник Босова Параграф 2.4

9 класс Информатика ГДЗ учебник Босова Параграф 2.4. Запись вспомогательных алгоритмовна языке Паскаль

Стр.106-107.

Ответы на вопросы

Презентация может дополнить информацию из текста параграфа, предоставляя наглядные примеры кода, схемы блоков процедур и функций, а также пошаговое объяснение выполнения подпрограмм.
Подпрограммы используются для упрощения кода, повторного использования кода, структурирования программы и улучшения её читабельности и поддержки. Они позволяют разбивать сложные задачи на более простые подзадачи.
Основное различие между процедурами и функциями заключается в том, что процедура может возвращать несколько значений через параметры-переменные, тогда как функция возвращает единственное значение, совпадающее с её именем.

Программа для вычисления наименьшего общего кратного (НОК) четырёх чисел с использованием процедуры вычисления наибольшего общего делителя (НОД):

program LCM;
        var
            a, b, c, d, lcm1, lcm2, finalLcm: integer;

        procedure nod(x, y: integer; var g: integer);
        begin
            while x <> y do
                if x > y then
                    x := x - y
                else
                    y := y - x;
            g := x;
        end;

        function nok(x, y: integer): integer;
        var
            g: integer;
        begin
            nod(x, y, g);
            nok := (x * y) div g;
        end;

        begin
            a := 36;
            b := 54;
            c := 18;
            d := 15;
            lcm1 := nok(a, b);
            lcm2 := nok(c, d);
            finalLcm := nok(lcm1, lcm2);
            writeln('LCM: ', finalLcm);
        end.

program LCM;

var

a, b, c, d, lcm1, lcm2, finalLcm: integer;

procedure nod(x, y: integer; var g: integer);

begin

while x <> y do

if x > y then

x := x - y

else

y := y - x;

g := x;

end;

function nok(x, y: integer): integer;

var

g: integer;

begin

nod(x, y, g);

nok := (x * y) div g;

end;

begin

a := 36;

b := 54;

c := 18;

d := 15;

lcm1 := nok(a, b);

lcm2 := nok(c, d);

finalLcm := nok(lcm1, lcm2);

writeln('LCM: ', finalLcm);

end.

Программа перестановки значений переменных a, b, c в порядке возрастания с использованием процедуры swap:

program Sort;
var
a, b, c: integer;
procedure swap(var x, y: integer);
var
m: integer;
begin
  m := x;
  x := y;
  y := m;
end;

begin
readln(a, b, c);
if a > b then swap(a, b);
if b > c then swap(b, c);
if a > b then swap(a, b);
writeln(a, ' ', b, ' ', c);
end.

program Sort;

var

a, b, c: integer;

procedure swap(var x, y: integer);

var

m: integer;

begin

m := x;

x := y;

y := m;

end;

begin

readln(a, b, c);

if a > b then swap(a, b);

if b > c then swap(b, c);

if a > b then swap(a, b);

writeln(a, ' ', b, ' ', c);

end.

Видоизменённая программа сортировки массива выбором с использованием процедуры выбора наибольшего элемента:

program SelectionSort;
const
n = 10;
var
arr: array[1..n] of integer;
i, j, maxIdx, temp: integer;
procedure findMaxIndex(startIdx: integer; var maxIdx: integer);
var
i: integer;
begin
  maxIdx := startIdx;
  for i := startIdx + 1 to n do
    if arr[i] > arr[maxIdx] then
      maxIdx := i;
end;

begin
randomize;
for i := 1 to n do
  arr[i] := random(100);
for i := 1 to n - 1 do
begin
  findMaxIndex(i, maxIdx);
  temp := arr[i];
  arr[i] := arr[maxIdx];
  arr[maxIdx] := temp;
end;
for i := 1 to n do
  write(arr[i], ' ');
end.

program SelectionSort;

const

n = 10;

var

arr: array[1..n] of integer;

i, j, maxIdx, temp: integer;

procedure findMaxIndex(startIdx: integer; var maxIdx: integer);

var

i: integer;

begin

maxIdx := startIdx;

for i := startIdx + 1 to n do

if arr[i] > arr[maxIdx] then

maxIdx := i;

end;

begin

randomize;

for i := 1 to n do

arr[i] := random(100);

for i := 1 to n - 1 do

begin

findMaxIndex(i, maxIdx);

temp := arr[i];

arr[i] := arr[maxIdx];

arr[maxIdx] := temp;

end;

for i := 1 to n do

write(arr[i], ' ');

end.

Программа вычисления суммы факториалов:

program FactorialSum;
var
n, i: integer;
s: longint;
function factorial(x: integer): longint;
var
f, j: integer;
begin
 f := 1;
  for j := 1 to x do
    f := f * j;
 factorial := f;
end;

begin
readln(n);
s := 0;
for i := 1 to n do
  s := s + factorial(i);
writeln('S = ', s);
end.

program FactorialSum;

var

n, i: integer;

s: longint;

function factorial(x: integer): longint;

var

f, j: integer;

begin

f := 1;

for j := 1 to x do

f := f * j;

factorial := f;

end;

begin

readln(n);

s := 0;

for i := 1 to n do

s := s + factorial(i);

writeln('S = ', s);

end.

Программа вычисления выражения:

program Expression;
var
x, n, i, exp: integer;
function power(base, exponent: integer): integer;
var
p, j: integer;
begin
  p := 1;
  for j := 1 to exponent do
    p := p * base;
  power := p;
end;

begin
readln(x, n);
exp := 0;
for i := 3 to n do
  if i mod 2 = 1 then
    exp := exp + power(x, i);
writeln('S = ', exp);
end.

program Expression;

var

x, n, i, exp: integer;

function power(base, exponent: integer): integer;

var

p, j: integer;

begin

p := 1;

for j := 1 to exponent do

p := p * base;

power := p;

end;

begin

readln(x, n);

exp := 0;

for i := 3 to n do

if i mod 2 = 1 then

exp := exp + power(x, i);

writeln('S = ', exp);

end.

Программа вычисления длины отрезка и периметра треугольника:

program TrianglePerimeter;
var
x1, y1, x2, y2, x3, y3: real;
function distance(x1, y1, x2, y2: real): real;
begin
  distance := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
end;

begin
readln(x1, y1, x2, y2, x3, y3);
writeln('Perimeter: ', distance(x1, y1, x2, y2) + distance(x2, y2, x3, y3) + distance(x3, y3, x1, y1):0:2);
end.

program TrianglePerimeter;

var

x1, y1, x2, y2, x3, y3: real;

function distance(x1, y1, x2, y2: real): real;

begin

distance := sqrt(sqr(x2 - x1) + sqr(y2 - y1));

end;

begin

readln(x1, y1, x2, y2, x3, y3);

writeln('Perimeter: ', distance(x1, y1, x2, y2) + distance(x2, y2, x3, y3) + distance(x3, y3, x1, y1):0:2);

end.

Программа вычисления площади треугольника и четырёхугольника:

program Area;
var
x1, y1, x2, y2, x3, y3, x4, y4: integer;
function triangleArea(x1, y1, x2, y2, x3, y3: integer): real;
begin
  triangleArea := abs(x1 * (y2 - y3) + x2 * (y3 - y1) + x3 * (y1 - y2)) / 2;
end;

begin
readln(x1, y1, x2, y2, x3, y3, x4, y4);
writeln('Area of quadrilateral: ', triangleArea(x1, y1, x2, y2, x3, y3) + triangleArea(x1, y1, x3, y3, x4, y4):0:2);
end.

program Area;

var

x1, y1, x2, y2, x3, y3, x4, y4: integer;

function triangleArea(x1, y1, x2, y2, x3, y3: integer): real;

begin

triangleArea := abs(x1 * (y2 - y3) + x2 * (y3 - y1) + x3 * (y1 - y2)) / 2;

end;

begin

readln(x1, y1, x2, y2, x3, y3, x4, y4);

writeln('Area of quadrilateral: ', triangleArea(x1, y1, x2, y2, x3, y3) + triangleArea(x1, y1, x3, y3, x4, y4):0:2);

end.

§ 2.4