Цветовая схема:
C C C C
Шрифт
Arial Times New Roman
Размер шрифта
A A A
Кернинг
1 2 3
Изображения:
  • ХМАО - Югра, г. Нижневартовск
  • +7 (904) 483-50-68
  • sammitportal@mail.ru

10 класс: ДЗ "Символьная графика"

На протяжении почти полувека остаётся актуальной и востребованной символьная графика (ASCII-графика). Для создания произведений в этой области не требуется специального программного обеспечения, достаточно иметь фантазию, пространственное мышление и усидчивость. Примеры простых символьных изображений приведены ниже...

1.gif

... хотя в сети можно найти и более сложные примеры.

[spoiler]

s1200.jpg 1.jpg

Предлагаю учащимся 10А класса создать в Паскале свои образцы символьной графики. При отсутствии собственной фантазии можно почерпнуть ее в поисковых системах с запросом "Символьная графика". В комментариях к посту жду тексты ваших программ (в теме укажите фамилию, имя и класс). Лицензионный Паскаль можно скачать ЗДЕСЬ.
PS чтобы оставить комментарий необходимо зарегистрироваться на сайте.
Нравится0
30.09.2019 07:19:02
Оформление ваших домашних работ
Уважаемые 10-классники!
Отвечаю на вопрос "Как оформить ДЗ в комментариях?"
Кстати в комменты вы вставляете текст своей программы (не файл или картинку).
Вставив текст программы выделите его и примените к фрагменту на панели инструментов команду <...> (Оформление текста в виде кода). Не забудьте в Теме указать фамилию, имя и класс. Наличие аватара приветствуется.

Так выглядит пример программы без оформления:
var n,i,k,a:integer;
begin
writeln('введите количество чисел');
readln(n);
a:=0;
for i:=1 to n do
begin
                writeln('введите ',i:1,'-е число');
                readln(a);
                if a mod 2=0 then k:=k+1;
                end;
writeln('кол-во четных чисел ',k);
readln;
end.

Так выглядит пример программы оформленный в виде кода:
var n,i,k,a:integer;
begin
writeln('введите количество чисел');
readln(n);
a:=0;
for i:=1 to n do begin
                 writeln('введите ',i:1,'-е число');
                 readln(a);
                 if a mod 2=0 then k:=k+1;
                 end;
writeln('кол-во четных чисел ',k);
readln;
end.
Ссылка Нравится0