Плохая масштабируемость, большой размер файлов.
Линейный
Жили-были дед да баба.
Была у них курочка ряба.
Снесла курочка яичко, не простое, золотое.
Дед бил, бил – не разбил.
Баба била, била – не разбила.
Мышка бежала, хвостиком махнула.
Яичко упало и разбилось.
Дед и баба плачут.
Курочка кудахчет.
с ветвлением
«Гуси-лебеди»
Начало
Девочка просит печку помочь.
Если съешь моего пирожка,
то помогу,
иначе не помогу
Конец
Любишь кататься, люби и саночки возить
Начало
если любишь кататься,
то люби и саночки возить
Конец
Циклический алгоритм
«Собирай по ягодке, наберешь кузовок»
Сказка о рыбаке и рыбке:
- раз старик закинул невод, пришел невод с одною тиной
второй раз старик закинул невод... .
Всего 126 чисел
2^6 < 121 < 2^7 ---> 7 бит для кодировки одного числа
7*70 =490 бит= 490 /8 байт =61,25 байт =62 байта
ответ 62 байта
Var A,B:real;
C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
Begin
Write('Введите два числа: ');
ReadLn(A,B);
Write('Ответ: ');
Case C of
1:WriteLn(A+B);
2:WriteLn(A-B);
3:WriteLn(A*B);
4:WriteLn(A/B);
End;
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
End;
WriteLn('Пока!');
End.
Вывод результат, точно как в условии:
Var A,B:real;
C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
Begin
Write('Введите два числа: ');
ReadLn(A,B);
Write('Ответ: ');
Case C of
1:
if B < 0 then WriteLn(A,B,'=',A+B)
else WriteLn(A,'+',B,'=',A+B);
2:
if B < 0 then WriteLn(A,'+',-B,'=',A-B)
else WriteLn(A,B,'=',A-B);
3:
if B < 0 then WriteLn(A,'*(',B,')=',A*B)
else WriteLn(A,'*',B,'=',A*B);
4:
if B < 0 then WriteLn(A,':(',B,')=',A/B)
else WriteLn(A,':',B,'=',A/B);
End;
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
End;
WriteLn('Пока!');
End.
Пример:
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
4
Введите два числа: 4
-2.5
Ответ: 4:(-2.5)=-1.6
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
1
Введите два числа: -3
-6
Ответ: -3-6=-9
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
0
Пока!