9 / 9 / 4
Регистрация: 13.05.2011
Сообщений: 72
1

Нарисовать фигуру 1, в её середине фигуру 2, в которую вписать текст – свою фамилию и инициалы

17.05.2011, 20:44. Показов 2545. Ответов 2
Метки нет (Все метки)

срочно нужно написать программу по следующему условию:
В заданной части графического экрана нарисовать фигуру 1, в её середине фигуру 2, в которую вписать текст – свою фамилию и инициалы. Все элементы рисунка выполнить разными цветами. Замкнутые области залить цветом, отличным от фонового.
Части экрана, типы фигур определяются согласно формул ( I – номер варианта):
N:=18 mod 9 – часть экрана - Верхняя левая четверть
B:=18 mod 5 – Фигура 1 - прямоугольник, фигура 2 - окружность
Помогите пожалуйста, а то я эту тему пропустил и не могу сам понять как решить задание((
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2011, 20:44
Ответы с готовыми решениями:

Нарисовать геометрическую фигуру, контур которой закрашен отличным светом от внутреннего, и записать текст внутри фигуры
Доброго времени суток! :d помогите решить следующие задачки на языке программирования турбо...

В нижней левой четверти графического экрана нарисовать круг, в середине круга-эллипс, а в середине эллипса-текст
В нижней левой четверти графического экрана нарисовать круг,в середине круга-эллипс,а в середине...

Нарисовать фигуру
Всем привет, нужна программа Фигуры

Нарисовать фигуру
необходимо нарисовать картинку... без заливок и прочего... Сори за Paint...

2
25 / 25 / 32
Регистрация: 19.03.2011
Сообщений: 66
17.05.2011, 21:49 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Ну как то так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt,graph;
var gd,gm,i : integer;
begin
gd := Detect;
InitGraph(gd,gm,'');
setbkcolor(red);
setfillstyle(1,white);
bar(0,0,getmaxx div 2,getmaxy div 2);
setfillstyle(1,green);
fillellipse(getmaxx div 4, getmaxy div 4,70,70);
outtextxy((getmaxx div 4)-40, getmaxy div 4,'Фамилия Имя');
readkey;
closegraph;
end.
1
9 / 9 / 4
Регистрация: 13.05.2011
Сообщений: 72
18.05.2011, 17:05  [ТС] 3
Спасибо

Добавлено через 18 часов 54 минуты
Неотображается текст(( точнее он некорректно отображается((
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2011, 17:05

Нарисовать фигуру
нарисовать фигуру

Нарисовать движущуюся фигуру
Здравствуйте скажите пожалуйста как с помощью цикла нарисовать фигуру и чтобы она двигалась слева...

Нарисовать геометрическую фигуру
Мужики, подскажите как решить вот такую задачу: Нарисовать геометрическую фигуру цвета а на фоне...

Нарисовать фигуру с помощью рекурсии
Ребята, помогите пожалуйста, нужно нарисовать с помощью рекурсии вот это


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.