Конспект лекций по программированию для начинающих. Гладков В.П. - 204 стр.

                                      206

      readln(x,n);
      write ('Сумма равна ',y(x,n))
   end.
   Пример 13.2. Найти наименьший член последовательности a(n)=n·n-7·n+1, где n
изменяется от 1 до m.
   Решение. Для поиска минимального элемента используем функцию,
находящую минимальный элемент из двух параметров:
   program task2;
   var        m : integer; {количество элементов последовательности}
              n : integer; {номер текущего элемента последовательности}
              k : real; {минимальный элемент последовательности}

   function min(p1,p2 :real) :real;
   begin      if p1 < p2
              then min := p1
              else min := p2
   end;
   begin
      write('Введите m - количество элементов последовательности');
      readln(m);
      k := 1*1-7*1+1;
      for n := 2 to m do
              k := min(k,n*n-7*n+1);
      write('Минимальный элемент последовательности равен ',k)
   end.
   Пример 13.3. Написать набор процедур для работы с обыкновенными дробями,
обеспечив их сложение, вычитание, умножение, деление.
   Решение. Обыкновенную дробь будем изображать двумя целыми числами:
первое число будет представлять числитель дроби, а второе - знаменатель. В
процессе вычислений требуется сокращать дроби на их наибольший общий
делитель (НОД), для вычисления которого используется алгоритм Евклида. Если
одно из чисел равно нулю, то НОД берем равным 1. Разработаем также отдельные
процедуры для ввода и вывода обыкновенных дробей:
   Var        x,y, {числитель и знаменатель дроби }
              p,q, {числитель и знаменатель дроби }
              s,t:integer; {числитель и знаменатель дроби }

   { Ввод обыкновенной дроби }
   procedure wwod(var a,b:integer);
   begin
      writeln;
      write('Введите целые: числитель и знаменатель обыкновенной дроби ');
      readln(a,b)
   end;

   { Вывод результата }