Презентация "Линейный алгоритм на Pascal"

Линейный алгоритм

Пример

Алгоритм решения линейных задач

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

Условие задачи

Написать программу, вычисляющую площадь и периметр прямоугольника при любых значениях его сторон A и B.

начало

Блок-схема

Выводим надпись

“ Вычисление площади прямоугольника”

Выводим надпись (подсказку для ввода)

“ Введите длины сторон прямоугольника”

“ Введите длины сторон прямоугольника”

Организуем ввод длин сторон прямоугольника в переменные a и b

Ввод

a, b

Вычисляем площадь прямоугольника и помещаем результат в переменную S

Вычисляем периметр прямоугольника и помещаем результат в переменную P

S=a*b

Выводим значение площади прямоугольника на экран

P=(a+b)*2

“ Площадь прямоугольника со сторонами”, a, “ и “, b, “ равна “, S

Выводим значение периметра прямоугольника на экран

“ Периметр равен”, P

конец

Программа

var a, b, s, p: Real;

begin

WriteLn(‘Вычисление площади и периметра прямоугольника’);

WriteLn(‘Введите длины сторон прямоугольника’);

ReadLn(a, b);

s := a * b;

p := (a +b)*2;

WriteLn(‘Площадь прямоугольника со сторонами ‘, a, ‘ и ‘, b, ‘ равна ‘, s);

WriteLn(‘Периметр равен’, p );

end.