Люди добрые! Молю о помощи!!! 11 класс, никогда информатику не учила, а тут пришел злющий препод и права качает! Пришлось браться за изучение паскаля. Что-то получается, но до нужного уровня еще не догоняю...
Задача очень простая! Нужно нарисовать дом(квадрат, на нем треугольник - крыша), квадрат закрашен плюсиками, в нем маленькое окошко с рамой. Крыша, т.е. треугольник закрашен диагональными черточками. К тому же сбоку домика есть лестница. Дополнительно: труба, забор...
Для меня самое главное алгоритм! Начало программы, где нужно код заливки вставлять, где код фигур и т.п.
Заранее спасибо!!!
мисс_граффити
8.10.2007 2:01
Давай сначала решим один вопрос: ты хочешь РАЗОБРАТЬСЯ или сдать программку и забыть о ней? Буду писать, ориентируясь на первый вариант.
Сначала просто нарисуем прямоугольничек, чтобы разобраться с частями программы.
program domik; //зарезервированное слово program и название нашей программки uses graph,crt; //модули, которые мы используем. graph - собственно, для графики. из crt берем лишь readkey (см. ниже) var gd,gr,err: integer; //переменные понадобятся для инициализации графического режима
begin //определяем параметры инициализации графического режима gd:=detect; gr:=VGAHi; InitGraph(gd,gr,''); //инициализируем графический режим err:=GraphResult; //смотрим, не возникло ли ошибки if err=grOk then //если ошибки не возникло begin Rectangle(10,10,100,100); //рисуем прямоугольник. //первые два числа - координаты верхнего левого угла, вторые - правого нижнего (х и y соответственно) readkey; //ждем, пока пользователь что-нибудь нажмет closegraph; //закрываем графический режим end; end. //вот и все
попробуй набрать (только не скопировать, а именно набрать... чтобы самой почувствовать каждую строчку) все кроме комментариев. и запустить...
по идее, нарисовался белый незакрашенный прямоугольничек. теперь зададим цвет линий и стиль/цвет заливки. Для этого непосредственно перед рисованием прямоугольника вставим такие строки:
SetColor(2); //устанавливаем цвет для рисования SetFillStyle(2,4); //задаем стиль (2) и цвет (4) заливки