Четверг, 30.11.2023, 07:18
Информатика и математика в Плесской школе
Приветствую Вас Гость | RSS
Меню сайта
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » 2017 » Январь » 1 » С новым 2017 годом. Елка программиста...
13:13
С новым 2017 годом. Елка программиста...
С новым годом однако... Это третья версия новогодней елки за сегодняшнее замечательное утро 1 января 2017 года.... Это реплика на https://vk.com/cat_programming?w=wall-63708206_218850 

Исходный код прилагается:
program n1; 
uses crt; 
var x:array[1..30] of integer; 
y:array[1..30] of integer; 
i:integer; 
begin 
TextBackGround(White); 
clrscr; 
TextColor(red); 
gotoxy(40,1); 
writeln('1'); 
TextColor(Green); 
gotoxy(39,2); writeln('000'); 
gotoxy(38,3); writeln('00000'); 
gotoxy(37,4); writeln('0000000'); 
gotoxy(36,5); writeln('000000000'); 
gotoxy(38,6); writeln('00000'); 
gotoxy(37,7); writeln('0000000'); 
gotoxy(36,8); writeln('000000000'); 
gotoxy(35,9); writeln('00000000000'); 
gotoxy(34,10); writeln('0000000000000'); 
gotoxy(33,11); writeln('000000000000000'); 
gotoxy(37,12); writeln('0000000'); 
gotoxy(36,13); writeln('000000000'); 
gotoxy(35,14); writeln('00000000000'); 
gotoxy(34,15); writeln('0000000000000'); 
gotoxy(33,16); writeln('000000000000000'); 
gotoxy(32,17); writeln('00000000000000000'); 
gotoxy(31,18); writeln('0000000000000000000'); 
gotoxy(30,19); writeln('000000000000000000000'); 
gotoxy(29,20); writeln('00000000000000000000000'); 
gotoxy(39,21); writeln('000'); 
gotoxy(39,22); writeln('000'); 
repeat 
for i:=1 to 30 do 
begin 
y[i]:=random(2,20); 
if (y[i]=2) then x[i]:=random(39,41); 
if (y[i]=3) then x[i]:=random(38,42); 
if (y[i]=4) then x[i]:=random(37,43); 
if (y[i]=5) then x[i]:=random(36,44); 
if (y[i]=6) then x[i]:=random(38,42); 
if (y[i]=7) then x[i]:=random(37,43); 
if (y[i]=8) then x[i]:=random(36,44); 
if (y[i]=9) then x[i]:=random(35,45); 
if (y[i]=10) then x[i]:=random(34,46); 
if (y[i]=11) then x[i]:=random(33,47); 
if (y[i]=12) then x[i]:=random(37,43); 
if (y[i]=13) then x[i]:=random(36,44); 
if (y[i]=14) then x[i]:=random(35,45); 
if (y[i]=15) then x[i]:=random(34,46); 
if (y[i]=16) then x[i]:=random(33,47); 
if (y[i]=17) then x[i]:=random(32,48); 
if (y[i]=18) then x[i]:=random(31,49); 
if (y[i]=19) then x[i]:=random(30,50); 
if (y[i]=20) then x[i]:=random(29,51); 
TextColor(random(1,15)); 
gotoxy(x[i],y[i]); writeln('X'); 
end; 
delay(200); 
for i:=1 to 30 do 
begin 
TextColor(Green); 
gotoxy(x [i],y[i]); writeln('0'); 
end; 
until keypressed; 
end.
 
Просмотров: 746 | Добавил: Плесский_житель | Рейтинг: 0.0/0
Всего комментариев: 0
Поиск
Календарь
«  Январь 2017  »
ПнВтСрЧтПтСбВс
      1
2345678
9101112131415
16171819202122
23242526272829
3031
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Учительский портал
    Copyright MyCorp © 2023