Помогите пожалуйста?

Информатика | 5 - 9 классы

Помогите пожалуйста!

Срочно нужен не сложный рисунок в Паскале, что то типа домика и дерева!

Надо очень!

Ответить на вопрос
Ответы (1)
Shesterina2015 2 янв. 2020 г., 02:38:01

Давно ещё робота рисовал, код правда можно раз в 100 упростить, но мне лень.

Может пригодится.

Uses crt, graph ;

var

gd, gm : integer ;

begin

gd : = vga ;

gm : = vgahi ;

initgraph (gd, gm, '') ;

if graphresult < ; > ; 0 then closegraph else

begin

setcolor (7) ;

rectangle (300, 60, 340, 100) ;

line (312, 60, 312, 45) ;

line (327, 60, 327, 45) ;

circle (312, 40, 5) ;

circle (327, 40, 5) ;

setcolor (10) ;

rectangle (295, 65, 300, 90) ;

rectangle (340, 65, 345, 90) ;

rectangle (310, 75, 315, 70) ;

rectangle (325, 75, 330, 70) ;

rectangle (310, 85, 330, 90) ;

line (320, 70, 320, 80) ;

line (297, 67, 297, 88) ;

line (342, 67, 342, 88) ;

line (314, 85, 314, 90) ;

line (326, 85, 326, 90) ;

putpixel (312, 72, white) ;

putpixel (327, 72, white) ;

line (310, 100, 310, 110) ;

line (330, 100, 330, 110) ;

line (310, 110, 275, 110) ;

line (330, 110, 365, 110) ;

setcolor (6) ;

line (275, 110, 275, 175) ;

line (275, 175, 280, 185) ;

line (280, 185, 285, 175) ;

line (285, 175, 285, 122) ;

line (285, 122, 294, 122) ;

line (365, 110, 365, 185) ;

line (365, 185, 362, 185) ;

line (362, 185, 362, 178) ;

line (362, 178, 360, 178) ;

line (360, 178, 360, 185) ;

line (360, 185, 356, 185) ;

line (356, 185, 356, 122) ;

line (356, 122, 347, 122) ;

setcolor (3) ;

rectangle (294, 122, 347, 200) ;

line (360, 110, 360, 95) ;

circle (360, 92, 3) ;

line (280, 110, 280, 95) ;

circle (280, 92, 3) ;

rectangle (310, 122, 330, 200) ;

line (310, 140, 330, 140) ;

line (310, 180, 330, 180) ;

setcolor (darkgray) ;

circle (302, 140, 3) ;

circle (302, 180, 3) ;

circle (338, 140, 3) ;

circle (338, 180, 3) ;

setcolor (lightgray) ;

rectangle (278, 122, 280, 160) ;

line (338, 112, 338, 119) ;

line (340, 112, 340, 119) ;

line (342, 112, 342, 119) ;

line (363, 140, 363, 160) ;

line (358, 140, 358, 160) ;

line (347, 200, 347, 210) ;

line (294, 200, 294, 210) ;

line (294, 210, 220, 240) ;

line (347, 210, 421, 240) ;

line (220, 240, 220, 258) ;

line (421, 240, 421, 258) ;

line (220, 240, 421, 240) ;

line (220, 242, 421, 242) ;

arc (225, 256, 180, 270, 5) ;

arc (416, 256, 270, 360, 5) ;

line (225, 261, 416, 261) ;

setcolor (brown) ;

circle (231, 252, 8) ;

circle (231, 252, 2) ;

circle (252, 252, 8) ;

circle (252, 252, 2) ;

circle (272, 252, 8) ;

circle (272, 252, 2) ;

circle (292, 252, 8) ;

circle (292, 252, 2) ;

circle (312, 252, 8) ;

circle (312, 252, 2) ;

circle (332, 252, 8) ;

circle (332, 252, 2) ;

circle (352, 252, 8) ;

circle (352, 252, 2) ;

circle (372, 252, 8) ;

circle (372, 252, 2) ;

circle (392, 252, 8) ;

circle (392, 252, 2) ;

circle (411, 252, 8) ;

circle (411, 252, 2) ;

setlinestyle (0, 0, 3) ;

line (300, 202, 300, 210) ;

line (341, 202, 341, 210) ;

setlinestyle (0, 0, 0) ;

setcolor (white) ;

line (302, 204, 339, 204) ;

line (302, 206, 339, 206) ;

line (302, 208, 339, 208) ;

end ;

readkey ;

end.

Hersgor 4 авг. 2020 г., 07:46:53 | 10 - 11 классы

Нужен любой средней сложности рисунок в Паскале abc с помощью graphABC) помогите))?

Нужен любой средней сложности рисунок в Паскале abc с помощью graphABC) помогите)).

Tatyana0000ta 24 апр. 2020 г., 16:25:22 | 5 - 9 классы

Срочнооо нужен алгоритм и готовый рисунок к исполнителю ЧЕРЕПАХАпомогитееехоть домик, хот ьчто?

Срочнооо нужен алгоритм и готовый рисунок к исполнителю ЧЕРЕПАХА

помогитеее

хоть домик, хот ьчто.

Дерри 24 мая 2020 г., 23:19:12 | 5 - 9 классы

Помогите?

Помогите.

Срочно.

Нужны сложные рисунки в паскале.

Пожалуйста.

Toporik7 13 февр. 2020 г., 17:10:30 | 5 - 9 классы

Даю 20 баллов?

Даю 20 баллов!

Помогите составить рисунок в паскале!

7 класс, можно сложный или средний!

Помогите568 18 янв. 2020 г., 02:37:04 | 10 - 11 классы

ПОЖАЛУЙСТА?

ПОЖАЛУЙСТА.

СРОЧНО.

СЛОЖНО.

На языке Паскаль, вроде, написать надо.

Яна595 16 сент. 2020 г., 07:37:09 | 5 - 9 классы

ДАЮ 30 БАЛЛОВ(СРОЧНО)решите пожалуйста номер два(Паскаль 7 класс, желательно не очень сложно, а то не поверят)?

ДАЮ 30 БАЛЛОВ(СРОЧНО)решите пожалуйста номер два(Паскаль 7 класс, желательно не очень сложно, а то не поверят).

1701alexandral 28 мар. 2020 г., 05:51:38 | 10 - 11 классы

Паскаль, очень срочно?

Паскаль, очень срочно.

Максимка111физика 23 дек. 2020 г., 00:18:57 | 5 - 9 классы

Срочно нужен код на Паскале?

Срочно нужен код на Паскале.

1 и 2 задание.

9002ДС 6 окт. 2020 г., 21:08:45 | 5 - 9 классы

Помогите?

Помогите!

Очень срочно!

Запишите на языке Паскаль.

Katrin700 29 сент. 2020 г., 05:43:07 | 5 - 9 классы

Вычислить Значения Функции Паскаль?

Вычислить Значения Функции Паскаль.

Срочно нужен ответ.

Вы открыли страницу вопроса Помогите пожалуйста?. Он относится к категории Информатика. Уровень сложности вопроса – для учащихся 5 - 9 классов. Удобный и простой интерфейс сайта поможет найти максимально исчерпывающие ответы по интересующей теме. Чтобы получить наиболее развернутый ответ, можно просмотреть другие, похожие вопросы в категории Информатика, воспользовавшись поисковой системой, или ознакомиться с ответами других пользователей. Для расширения границ поиска создайте новый вопрос, используя ключевые слова. Введите его в строку, нажав кнопку вверху.