Задачи по Turbo Pascal!!!

Turbo Pascal – это популярный язык программирования, который широко использовался в 80-х и 90-х годах прошлого века. Этот язык был разработан компанией Borland и использовался для обучения программированию, а также для создания различных приложений.

В данной статье мы рассмотрим несколько задач по Turbo Pascal, которые помогут вам улучшить навыки программирования и более глубоко изучить этот язык.

1. Задача на вычисление среднего

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

program calc_average;
var
  n, sum, i: integer;
  num: real;
begin
  sum := 0;
  
  write('Введите количество чисел: ');
  readln(n);
  
  for i := 1 to n do
  begin
    write('Введите число ', i, ': ');
    readln(num);
    sum := sum + num;
  end;
  
  writeln('Среднее арифметическое: ', sum / n);
end.

2. Задача на поиск максимального значения

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

program find_max;
var
  n, i: integer;
  max, num: real;
begin
  max := 0;
  
  write('Введите количество чисел: ');
  readln(n);
  
  for i := 1 to n do
  begin
    write('Введите число ', i, ': ');
    readln(num);
    
    if num > max then
      max := num;
  end;
  
  writeln('Максимальное значение: ', max);
end.

3. Задача на вычисление факториала

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

program factorial;
function calcFactorial(x: integer): integer;
begin
  if (x = 0) or (x = 1) then
    calcFactorial := 1
  else
    calcFactorial := x * calcFactorial(x - 1);
end;

var
  n: integer;
begin
  write('Введите число: ');
  readln(n);
  
  writeln('Факториал числа ', n, ': ', calcFactorial(n));
end.

Выше приведены всего лишь некоторые задачи, которые можно решить с помощью Turbo Pascal. Однако этот язык программирования имеет множество других возможностей и может использоваться для создания разнообразных программ.

Теперь, имея некоторое представление о задачах по Turbo Pascal, вы можете приступить к их решению и развитию своих навыков программирования!