Создаем первую программу на Free Pascal

Задача. Найти площадь прямоугольника по двум данным сторонам

1<a, b<200. a, b – целые числа.

Решение:

  1. Определим количество переменных и их тип.

1 сторона – a. 2 сторона – b. Площадь – s. (Всего три переменных). a, b – целые (по условию). S = a*b. Произведение двух целых чисел является целым числом. s – целое.

2. Составим блок схему.

%d1%81%d0%ba%d1%80%d0%b8%d0%bd%d1%88%d0%be%d1%82-11-12-2016-191034

3. Описываем переменные в разделе описания переменных (var)

var a, b, s: integer; //переменные a, b и c - целые числа

4. Заполняем раздел операторов (begin – end.)

begin
readln(a, b); //считываем с экрана обе стороны
s:=a*b;  //находим площадь (S)
write('Площадь прямоугольника = ', s);  //Выводим S
readln;
end.

5. Итог

var a, b, s: integer;
begin
readln(a, b);
s:=a*b;
write('Площадь прямоугольника = ', s);
readln;
end.