Основные алгоритмические конструкции

Алгоритм — конечная последовательность точных действий, формальное выполнение которых позволяет получить решение задачи для любого допустимого набора исходных данных.

Исполнитель — человек, группа людей или техническое устройство, которые способны правильно выполнять команды алгоритмов.

Набор команд одного исполнителя называют системой команд исполнителя.

Все команды исполнителя делят на группы:

1. Команды, которые непосредственно выполняет исполнитель.

2. Команды, изменяющие порядок выполнения других команд исполнителя.

1. Алгоритмическая конструкция следование

Алгоритмическая конструкция следование — последовательность команд алгоритма, которые выполняются в том порядке, в котором они записаны.

2. Циклы

1) Цикл с параметром

For var i:=1 to N do

begin

команда1;

команда2;

...

end;

2) Цикл с предусловием

While <условие> do

begin

команда1;

команда2;

...

end;

3. Команда ветвления

if <условие>

then begin

команда1;

...

end

else begin

команда2;

...

end;

Для ввода данных предназначена команда read().

Для вывода данных используют команду write().

Пример 13.4

var x,y,a: real;

begin

write('Введите x =');

read(x);

write('Введите y =');

read(y);

a:= 2 * x * (x-y)/(7 + y * y);

writeln('a =',a);

End.

Упражнения

writeln(ꞌa = ꞌ,a);

write(ꞌВведите значение x = ꞌ);

End.

Var x,y,a: real;

Begin

a: = 2 * x/(x * x+4);

read(x);

Расставьте комментарии к программе:

// Описание переменных

// Конец программы

// Ввод значения

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

// Начало программы

// Вычисление значения искомой величины

//1. y: = sqrt(a – 4)/16;

//2. z: = sqr(3 * a + 2);

//3. a: = abs(a – 4.2);

//4. d: = x mod 2;

//5. y: = int(a);

//6. y: = trunc(a);

//7. y: = frac(a);

//8. s: = sin(3.14 * r).

var x, y, z1, z2:integer;

begin

write(ꞌВведите x =ꞌ);

read(x);

write(ꞌВведите y =ꞌ);

read(y);

z1:= int(x/y);

z2:= frac(x/y);

write(ꞌЦелая часть =ꞌ,z1);

write(ꞌДробная часть =ꞌ,z2);

end.

var x, y, z1, z2:real;

begin

write(ꞌВведите x =ꞌ);

read(x);

write(ꞌВведите y =ꞌ);

read(y);

z1:=x div y;

z2:=x mod y;

write(ꞌЦелая часть =ꞌ,z1);

write(ꞌОстаток =ꞌ,z2);

end.