Вот пример последовательного алгоритма.
Алгоритм приготовления бутерброда
Отрезать ломтик хлеба.Намазать хлеб маслом.Отрезать ломтик сыра.Положить сыр на хлеб.Однако в окружающем нас мире очень многие события и явления повторяются. День сменяет ночь, после ночи вновь наступает день; из года в год чередуются весна, лето, осень и зима; в песнях повторяются припевы. Человеку тоже очень часто приходится выполнять повторяющиеся действия. Например, ходьба — это повторение движений ног: шаг правой — шаг левой. Чистка картофеля, мытье тарелок, затачивание карандашей предполагают повторение одних и тех же действий.
Если в алгоритме можно выделить последовательность действий, которая выполняется несколько раз подряд, то такой алгоритм называют циклическим.
В графических изображениях часто можно увидеть одинаковые элементы. Однако нарисовать две абсолютно одинаковые фигуры очень сложно, поэтому в графическом редакторе существует возможность сделать копию повторяющегося фрагмента, а затем вставить ее в рисунок столько раз, сколько потребуется.
// Внимание! Если программа не работает, обновите версию!
procedure Love(n:integer);
begin
Writeln(n*('Я люблю ПАСКАЛЬ'+NewLine))
end;
begin
Love(ReadInteger('n='))
end.
Пример
n= 5
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
procedure LinEqu(a,b:real);
begin
if a=0 then
if b=0 then Writeln('Решений бесконечно много')
else Writeln('решений нет')
else Writeln('x=',-b/a)
end;
begin
var a,b:real;
Write('Введите а и b: '); Read(a,b);
LinEqu(a,b)
end.
Пример
Введите а и b: 18.45 -12
x=0.650406504065041