Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.72/18: Рейтинг темы: голосов - 18, средняя оценка - 4.72
julayshach
1

Составить программу, которая рисует домик. Радиус ввести с клавиатуры.Сделать заливку фигур

21.04.2014, 19:55. Показов 3578. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program PROG2;
uses GraphABC;
const 
w=5;
begin
SetWindowSize(256,256);
SetPenColor(rgb(0,0,255));
SetPenWidth(w);
Line(50,400,400,110);
SetPenColor(clSkyBlue);
Line(400,110,800,400);
SetPenColor(clBlue);
SetPenColor(clPink);
Line(725,350,725,700);
SetPenColor(clPink);
Line(725,700,110,700);
SetPenColor(clPink);
Line(115,350,110,700);
SetPenColor(clPink);
Line(725,350,115,350);
SetPenColor(clGreen);
Ellipse(250,450,600,580);
end.

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.04.2014, 19:55
Ответы с готовыми решениями:

Составить программу, которая рисует на экране круги смещенные один относительно другого
Составить программу с помощью которой можно нарисовать на экране круги, центры которых смещены один...

Составить программу, которая находит радиус описанной окружности и угол
В треугольнике известны три стороны а, b и с. Составить программу, которая находит радиус описанной...

Составте программу,которая рисует одну из пространственных фигур
Составте программу,которая рисует одну из пространственных фигур-куб

Составить программу, которая читает построчно текст другой программы (ввести с клавиатуры) на языке C (10 строк)
строки написать в паскале программу которая читает построчно текст другой программы (ввести с...

2
7 / 7 / 3
Регистрация: 19.07.2010
Сообщений: 37
22.04.2014, 07:12 2
Там где рисовал линии координаты задай зависимостью, ну например X*100 где Х число которое вводишь с клавиатуры, только координаты подгони нормально, а то черти что получишь
0
51 / 51 / 26
Регистрация: 13.11.2013
Сообщений: 217
Записей в блоге: 1
22.04.2014, 15:35 3
вот прога для рисования дома,всё сделано через константы.и использование модуля abcHouse
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses abcHouse,GraphABC;
const w=400;h=200;heightCrisha=20;PW=6;
var a:abcHouse.HouseABC;
procedure crisha(x1,y1,x2,y2,x3,y3:integer);
begin
SetPenColor(clgreen);
SetPenWidth(pw);
Line(x1,y1,x2,y2);
Line(x2,y2,x3,y3);
FloodFill(x1+pw*4,y1-pw,clgreen);
end;
begin
a:=new HouseABC(Window.Width div 2-W div 2,Window.Height div 2-h div 2,w,h,GraphABC.clGreen);
crisha(Window.Width div 2-W div 2,Window.Height div 2-h div 2,Window.Width div 2,HeightCrisha,Window.Width div 2+w div 2,Window.Height div 2-h div 2);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2014, 15:35

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Составить программу, которая определяет, принадлежит ли точка с ко-ординатами (х , у) заштрихованной области. Координаты точки ввести с клавиатуры
Составить программу, которая определяет, принадлежит ли точка с ко-ординатами (х , у)...

Составить программу, которая позволяет ввести с клавиатуры шестнадцатеричное число и записать его в переменную a, выполнить требуемую проверку.
Составить программу, которая позволяет ввести с клавиатуры шестнадцатеричное число и записать его в...

Составить программу с использованием функции.Которая рисует 80 звёздочек
Помогите,почему то не работает. #include < iostream.h> //Прототип функции line ...

Составить программу которая рисует прямоугольник с разноцветными сторонами
Составить программу которая рисует прямоугольник с разноцветными сторонами. помогите пожалуйста!


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

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

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