- Написать программу, которая закрашивает фон экрана произвольным цветом
- Выводит строку “Brave World” два раза разными шрифтами: внизу экрана горизонтально и слева от рисунка с 3 задачи вертикально
- Рисует белого снеговика (далее в отдельной программе, если я правильно понял)
- Выводит оси координат y=x+2 зеленым цветом
- Выводит черными точками график функции y=f(x)=kx+10k, k=7 (координат.оригин?)
Код написал, но не уверен в правильности. Кидаю на проверку!) Пока что написал. Другую часть попробую чуть позже выложить
- uses graphABC begin Setwindowsize(800,600); ///ширина и высота 800 точек на 600 clearwindow(clPink); ///фон
- SetFontColor(clGold); //цвет шрифта Texout(370,600,‘Brave World’); //Итого текст должно находится снизу экрана посередине горизонтально. Теперь надо вывести текст слева от рисунка вертикально. Думаю написать ТекстОут несколько раз, изменяя высоту от предыдущего символа на -10 или -30. Может через for получится, попробую так for i:=1 to 10 do textout(a,b-30);
- SetPenColor (clWhite); SetPenWidth(3); Circle (200,300,75); Circle (200,175,50); Circle (200,100,25); FloodFill (200,100,clGray); FloodFill (200,175,clGray); FloodFill (200,300,clGray); SetPenColor (clBlack); SetPenWidth(5); Line (125,225,175,175); Line (250,175,300,175); SetPenColor (clBlack); Circle (190,95,5); FloodFill (190,95,clBlack); Circle (210,95,4); FloodFill (210,95,clBlack); Line (195,100,205,100); FloodFill (205,105,clBrown); end.