Уважаемые 10-классники! Нам пора завершать изучение темы "Вложенные циклы", поэтому давайте"потворим" по этому поводу...
Задание "Узоры на окне"
Возьмём на себя функции Деда Мороза и создадим узор из снежинок на окне.
Образцы узоров:
- полуёлка
- ёлка
- лесенка
- пирамидка
Требования к работе:
- Допускается рисование любого узора, но не уступающего по сложности приведённым образцам;
- Обязательно использовать систему вложенных циклов;
- Количество циклов не ограничено;
- Допускается возможность использования If...Then...Else;
- Запрещается в процедуре Write использовать больше одной "снежинки" (Write('*')).
Program Sneg_Uzor;
var x,y,z: integer;
begin
For x:=1 to 5 do
For y:=1 to x do
begin
Write ('*':y);
For z:=2 to (y mod 5) do Write ('*');
Writeln;
end;
Readln;
end.
|
- Фамилия - фамилия автора работы,
- Класс - класс с литерой,
-
Группа - номер группы.
Внимание! Скриншоты кадрируем по узору, в противном случае оценка за работу будет снижена. (Кстати, а за наличие у вас аватара - повышена!)