Ms dos qbasic 1.0: cls randomize timer input "k = ", k input "l = ", l dim x! (k, l) for i = 1 to k for j = 1 to l x(i, j) = rnd * 21 - 10 print using "###"; x(i, j); print ; " "; next j print next i for i = 1 to l * 4 - 1 print ; "_"; next i print for n = 1 to l for i = 1 to l - n - 1 if x(i, 2) < x(i + 1, 2) then b = x(i, 2) x(i, 2) = x(i + 1, 2) x(i + 1, 2) = b end if next i next n for i = 1 to k for j = 1 to l print using "###"; x(i, j); print " "; next j print next i end
Алгоритм приготовления гречневой каши обыкновенной. )
1. Поставить кастрюлю на стол
2. поставить стакан на стол
3. Поставить упаковку с гречкой на стол
4. поставить графин с водой на стол
5. насыпать полный стакан гречки
6. пересыпать гечку в кастрюлю
7. выполнить 2 раза
7.1 налить полный стакан воды
7.2. перелить стакан воды в кастрюлю
8. зажечь огонь на плите
9. поставить кастрюлю с гречкой на огонь
10. Выполнять пока не закипит
10.1. Ждать
11. Посолить
12. Накрыть крышкой кастрюлю
13. Пока не мин
13.1. Ждать
14. Выключить огонь.
Гречка готова. )