Алгоритм это четкая последовательность действий для достижение результата.
Напрмер алгоритм для робота. Задача забить гвоздь.
1.выяснить куда забивать гвоздь
1.1 Выяснить на какую глубину.
2.Поставить метку где будет забит гвоздь
3.Выбрать гвоздь.
4.Выбрать молоток. (тут можно добавить оптимизацию, например выбирать только определенный молоток под определенный гвоздь)
5.Приставить острие гвоздя к месту куда будет забиваться гвоздь.
6.Зафиксировать гвоздь в этом положении
7.Ударить молотком по шляпке гвоздя
8.Повторять п.7 до тех пор пока гвоздь не будет забит до нужного состояния согласно п1.1.
9.Убрать молоток туда откуда был взят
Конец
Const
n=5;
var
m:array[1..n] of byte;
function Itog():real;
var
i,max,min,s:byte;
begin
s:=m[1]; max:=s; min:=s;
for i:=2 to n do begin
s:=s+m[i];
if max<m[i] then max:=m[i]
else
if min>m[i] then min:=m[i]
end;
s:=s-max-min;
Itog:=s/(n-2)
end;
var
i:byte;
begin
Writeln('Введите экспертные оценки');
for i:=1 to n do Read(m[i]);
Writeln('Итоговый балл равен ',Itog:4:2)
end.
<em><u>Тестовое решение:</u></em>
Введите экспертные оценки
4 4 5 3 5
Итоговый балл равен 4.33
Var g1, g2, g3: real;
begin
writeln('Введи три числа: ');
readln(g1, g2, g3);
if not ((g1 = 9.8) or (g2 = 9.8) or (g3 = 9.8)) then Writeln('Нет среди этих чисел ускорения на Земле') else begin
if g1 = 9.8 then Writeln('Первое - ускорение на Земле');
if g2 = 9.8 then Writeln('Второе - ускорение на Земле');
if g3 = 9.8 then Writeln('Третье - ускорение на Земле');
end;
<span>end.</span>
Ответ:
a
Объяснение:
в інших випадках стрілочки розміри не завжди потрібні
30 : 2 = 15 Остаток 0
15 : 2 = 7 Остаток 1
7 : 2 = 3 Остаток 1
3 : 2 = 1 Остаток 1
Записываем оставшуюся единичку и далее все остатки в обратном порядке:
11110. Это и будет число 30, переведенное из десятичной системы счисления в двоичную