Алгоритмом называется точное и понятное предписаниe исполнителю совершить последовательность действий, направленных на решение поставленной задачи.При всем многообразии алгоритмов решения задач в них можно выделить три основных вида вычислительных процессов:
линейный;
ветвящийся;
циклический.
Компьютер
Python, JavaScript,C++
Пример программы на языке программирования Паскаль:
PROGRAM RR;
VAR A,B,C, max: INTEGER;
BEGIN
WRITE(‘ ВВЕДИТЕ A, B, C');
READLN(A,B,C);
IF A>B THEN max:=A
ELSE max:=B;
IF C>max THEN max:=C;
WRITELN(max);
END.
Алгоритм — конечная совокупность точно заданных правил решения произвольного класса задач или набор инструкций, описывающих порядок действий исполнителя для решения некоторой задачи.
Первый тип — линейный алгоритм; такой, в котором все действия выполняются в строгом порядке, последовательно, одно за другим.
Второй тип — разветвляющийся алгоритм; такой, в котором выполняются те или иные действия в зависимости от выполнения или невыполнения некоего условия.
Третий тип — циклический алгоритм; такой, в котором присутствуют повторяющиеся действия с какой-либо изменяющейся величиной, так называемым параметром.
Компьютер - машина, выполняющая алгоритмы.
Basic, C++, Java, Python, Pascal.
Алгоритм, записанный на «понятном» компьютеру языке программирования, называется программой.
program Rand1;
var
A: array [1..5] of Integer;
i: Integer;
begin
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (3) - 1;
WriteLn (A [i] :3)
end;
ReadLn;
end.
program Rand2;
var
A: array [1..7] of Double;
i: Integer;
begin
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (100001) / 100000 + 3;
WriteLn (A [i] :8 :2)
end;
ReadLn;
end.
program Rand3;
var
A: array [1..10] of Integer;
i: Integer;
begin
Randomize;
for i := 1 to 10 do begin
A [i] := Random (21) + 20;
WriteLn (A [i], ' ');
end;
ReadLn;
end.
program Read4;
var
A: array [1..7] of Integer;
i: Integer;
begin
for i := Low (A) to High (A) do begin
Write ('Введите ', i, ' число: ');
ReadLn (A [i]);
end;
for i := High (A) downto Low (A) do
Write (A [i], ' ');
ReadLn;
end.