Простой пример линейного алгоритма таков :
1.Выкопать в земле ямку
2.Опустить в ямку саженец
3.Засыпать ямку с саженцем землей
4.Полить саженец водой
Простой пример циклического алгоритма таков :
1.Смотрю телевизор
2.Уже ночь ?
3(а)Да , то 4.Ложусь спать 3(б)Нет , то 1.Смотрю телевизор
<span>и вновь проверка условия до тех пор пока не настанет ночь
Просто пример </span><span>разветвляющего алгоритма таков :
</span>
1.Я встречу друга ?
2(а).Да ,то 3. Расскажу историю
2(б) Нет ,то *конец алгоритма*
<u>Примеры данных алгоритмов в виде блок-схем ниже</u>
В одном килобайте 1024 байтов- 1/2 килобайта-512 байтов, в 1 байте 8 битов. 512*8=4096 бит
<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=Arr('первое', 'второе','третье','четвертое','пятое');
var p,r:real;
var c:char;
Write('Введите первое число: '); Readln(r);
for var i:=0 to 3 do begin
Write('Выберите ',s[i], ' действие (a) сложить, b) вычесть,');
Write('c) умножить, d) разделить): '); Readln(c);
Write('Введите ',s[i+1],' число: '); Readln(p);
case c of
'a':r+=p;
'b':r-=p;
'c':r*=p;
'd':r/=p;
end;
Writeln('Результат: ',r)
end
end.
Var n,a,h,m,s:integer;
begin
writeln('Введите кол-во дней');
read(n);
if n>1 then begin
writeln('В ', n ,' сутках:');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд')
end;
if n=1 then begin
writeln('В ',n,' дне');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд');
end;<span>
end.
</span>