Вопрос задан 02.11.2026 в 20:39. Предмет Информатика. Спрашивает Елеева Алана.

1) Найти наибольшее из пяти заданных чисел, используя вспомогательный алгоритм нахождения большего из двух.
2) Подсчитать количество слов в тексте, используя алгоритм нахождения пробелов в строке.
3) Составить программу для вычисления значения выражения a в степени b.
4) Найти площадь круга с использованием процедуры, которая производит только вычисления, но не отображает результата на экране.

Перейти к ответам

Отвечу на вопрос мгновенно! Нейросеть ChatGPT. Жми!

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

Отвечает Паршина Анжела.

1. Найти наибольшее из пяти заданных чисел, используя вспомогательный алгоритм нахождения большего из двух

Для решения задачи необходимо создать вспомогательный алгоритм (функцию), который сравнивает два числа и возвращает большее из них. Затем эту функцию используем для последовательного сравнения пяти заданных чисел.

Программа на языке Pascal:

pascal
program MaxOfFive;

var
  a, b, c, d, e, max: integer;

function MaxTwo(x, y: integer): integer;
begin
  if x > y then
    MaxTwo := x
  else
    MaxTwo := y;
end;

begin
  writeln('Введите пять чисел:');
  readln(a, b, c, d, e);

  max := MaxTwo(a, b);
  max := MaxTwo(max, c);
  max := MaxTwo(max, d);
  max := MaxTwo(max, e);

  writeln('Наибольшее число: ', max);
end.

Объяснение алгоритма:

Пользователь вводит пять целых чисел.
Функция MaxTwo сравнивает два числа и возвращает большее.
Сначала сравниваются первые два числа.
Полученный результат сравнивается с третьим, затем с четвёртым и пятым числами.
В итоге переменная max содержит наибольшее из пяти чисел.

2. Подсчитать количество слов в тексте, используя алгоритм нахождения пробелов в строке

Количество слов в строке можно определить по количеству пробелов между ними. Если слова разделены одиночными пробелами, количество слов равно количеству пробелов плюс один. Однако для правильной работы программы необходимо учитывать несколько пробелов подряд и пробелы в начале и конце строки.

Программа на языке Pascal:

pascal
program CountWords;

var
  s: string;
  i, count: integer;

begin
  writeln('Введите текст:');
  readln(s);

  count := 0;

  for i := 1 to length(s) do
  begin
    if (s[i] <> ' ') and
       ((i = 1) or (s[i-1] = ' ')) then
      count := count + 1;
  end;

  writeln('Количество слов: ', count);
end.

Объяснение алгоритма:

Пользователь вводит текстовую строку.
Переменной count присваивается начальное значение 0.
С помощью цикла for программа последовательно проверяет каждый символ строки.
Если текущий символ не является пробелом, а предыдущий символ является пробелом или текущий символ первый в строке, значит, начинается новое слово.
При обнаружении нового слова счётчик увеличивается на единицу.
После проверки всей строки программа выводит количество слов.

Например, для текста «Я изучаю язык программирования» программа определит 4 слова.

3. Составить программу для вычисления значения выражения a в степени b

Для вычисления степени числа можно использовать цикл. Число a умножается само на себя b раз. Для этого создаётся переменная result, которой сначала присваивается значение 1.

Программа на языке Pascal:

pascal
program PowerNumber;

var
  a: real;
  b, i: integer;
  result: real;

begin
  writeln('Введите основание степени a:');
  readln(a);

  writeln('Введите показатель степени b:');
  readln(b);

  result := 1;

  if b >= 0 then
  begin
    for i := 1 to b do
      result := result * a;

    writeln('Результат: ', result:0:4);
  end
  else
    if a <> 0 then
    begin
      for i := 1 to -b do
        result := result * a;

      result := 1 / result;
      writeln('Результат: ', result:0:4);
    end
    else
      writeln('Ошибка: ноль нельзя возвести в отрицательную степень.');
end.

Объяснение алгоритма:

Вводятся основание степени a и показатель степени b.
Переменной result присваивается значение 1.
Если показатель степени положительный или равен нулю, выполняется цикл умножения числа a на себя.
Если показатель отрицательный, сначала вычисляется соответствующая положительная степень, а затем берётся обратное значение.
Если основание равно нулю, а показатель отрицательный, программа выводит сообщение об ошибке.
В конце программа выводит полученный результат.

Например, при a = 2 и b = 3 результат будет равен 8.

4. Найти площадь круга с использованием процедуры, которая производит только вычисления, но не отображает результата на экране

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

Формула для вычисления площади круга:

S = \pi \cdot r^2

где:

S — площадь круга;
r — радиус круга;
π — математическая константа, приблизительно равная 3,14159.

Программа на языке Pascal:

pascal
program CircleArea;

var
  r, s: real;

procedure CalculateArea(radius: real; var area: real);
begin
  area := Pi * radius * radius;
end;

begin
  writeln('Введите радиус круга:');
  readln(r);

  CalculateArea(r, s);