Pascal ABC
Код:
var
a: array [1..3] of string;
i, j, k: integer;
begin
readln(a[1],a[2],a[3]);
for i := 1 to 3 do
for j := 1 to 3 do
for k := 1 to 3 do
if (i <> j) and (i <> k) and (j <> k) then
writeln(a[i], ' ', a[j], ' ', a[k]);
end.
Пример работы:
Ввод:
КРАСНЫЕ
ЛАНДЫШИ
ЦВЕТУТ
Вывод:
КРАСНЫЕ ЛАНДЫШИ ЦВЕТУТ
КРАСНЫЕ ЦВЕТУТ ЛАНДЫШИ
ЛАНДЫШИ КРАСНЫЕ ЦВЕТУТ
ЛАНДЫШИ ЦВЕТУТ КРАСНЫЕ
ЦВЕТУТ КРАСНЫЕ ЛАНДЫШИ
ЦВЕТУТ ЛАНДЫШИ КРАСНЫЕ
Объяснение:
1) линейный, разветвляющийся, циклический
2) эллипс-начало и конец алгоритма
прямоугольник- выполнение действий
параллелограмм- ввод и вывод данных
ромб-принятие решений
3) во не понятен, но вероятнее всего : цикл "всегда"- не даёт скрипту закончить самому свою работу
цикл"повторить... раз" повторяет вложенные в него команды определенное количество раз
4) в зависимости от условия выполняется либо одна либо другая последовательность
5) нет определения где(пусть будет в скретч): всегда, когда щёлкнут по флажку; когда я получу, передать сообщение, касается; идти ... шагов; повернуться в направлении; скрыть переменную; показать переменную; когда клавиша ... нажата
6) цикл с предусловием, цикл с постусловием
7) ждать, повторить, всегда, есть... то, иначе, ждать до..., повторять пока не..., стоп