Урок 19. Обобщающее повторение по теме “Основные алгоритмические конструкции”

Цель урока: обобщить знания по теме, повторить линейные, разветвляющиеся и циклические алгоритмы.

Пример 1. Напишите программу на языке Pascal, которая находит периметр треугольника. Стороны a, b и с вводятся с клавиатуры.

Var P,a,b,c: real;
begin
  writeln('Введите стороны треугольника: ');
  readln(a,b,c);
  P:=a+b+c;
  writeln('Периметр = ', P);
end.

Результат работы программы:

Пример 2. Задано двузначное число. Вывести на экран частное первой и второй цифр числа.

var
  a, a1, a2: integer;
begin
  write('Введите двухзначное число a =');
  readln(a);
  {Выделение первой цифры}
  a1 := a div 10;
  {Выделение последней цифры}
  a2 := a mod 10;
  write('Частное = ', a1 / a2);
end.

Результат работы программы: