Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

помогите в PASCAL ABC написать программу рисования этой картинки

5-9 класс

Missdysira 24 авг. 2015 г., 13:03:28 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Galyak7
24 авг. 2015 г., 14:27:32 (8 лет назад)

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

Чтобы поменять размер изображения, измените значение константы n. Чтобы добавить сетку, уберите фигурные скобки.

uses graphabc;
{var i: integer;}
const n=30; w=16; h=15;
begin
setwindowsize(w*n,h*n);
setpencolor(clgray);
{for i:=0 to w do line(i*n,0,i*n,h*n);
for i:=0 to h do line(0,i*n,w*n,i*n);}
setpencolor(clblack);
setbrushcolor(clwhite);
arc(n*3,n*11-n div 4,n*3+n div 4,-158,-22);
line(0,n*12,n*2,n*12);
line(n*3,n*12,n*6,n*12);
arc(n*2+n div 2,n*12,n div 2,180,0);
circle(n*4-n div 4,n*13,n div 4);
circle(n*3-n div 8,n*13+n div 2,n div 8);
arc(n*12,3*n,n*3, 270, 180);
arc(n*12,3*n,n,270,180);
setbrushcolor(clblack);
circle(n*12,3*n,n div 15);
arc(n*6,n*2-n div 4,n*3+n div 4,-90,-18);
circle(n*9,4*n,n div 10);
line(n*6,n*5,n*8,n*6);
line(n*8,n*6,n*9,n*6);
arc(n*9,n*5,n,270,0);
line(n*9,n*6,n*9,n*8);
arc(21*n div 2, n*10, 5*n div 2, 127, 180);
line(n*8,n*10,n*9,n*9);
line(n*9,n*9,n*9,n*12);
line(n*9,n*12,n*8,n*12);
arc(11*n div 2+2, n*12, 5*n div 2, -53, 0);
line(n*7,n*14,n*7,n*15);
arc(n*7,n*13,n*2,270,0);
line(n*9,n*13,n*11,n*13);
arc (13*n, 23*n div 2, 5*n div 2, -142,-89);
line(n*13,n*14,n*13,n*15);
line(n*13,n*15,n*14,n*13);
line(n*14,n*13,n*12,n*13);
line(n*12,n*13,n*13,n*12);
line(n*13,n*12,n*13,n*10);
line(n*13,n*10,n*12,n*6);
line(n*13,n*12,n*15,n*11);
line(n*15,n*11,n*16,n*6);
end.

+ 0 -
DashaMahnewa
24 авг. 2015 г., 16:32:16 (8 лет назад)

интересная картинка)

+ 0 -
Ak97
24 авг. 2015 г., 18:45:43 (8 лет назад)

но сложная :с

+ 0 -
Zaionchkovskaya
24 авг. 2015 г., 20:33:32 (8 лет назад)

Откуда вообще такое задание? В школе вряд ли такое задают.

+ 0 -
Evtodeva1999
24 авг. 2015 г., 23:22:10 (8 лет назад)

я не знаюююю...

Ответить

Читайте также

Пожалуйста помогите решить желательно все или хотя бы одну (P.S. программа для программы Turbo Pascal) 1.Написать программу, которая предлагает

ввести 3 значное число и находит сумму его цифр.

2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)

3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.

Помогите плиз срочно 1)Написать программу,которая спрашивает"Который час?" и,в зависимости от введенного времени,выводит приветствие:"Доброе

утро","Добрый день","Добрый вечер", "Спокойной ночи". 2)Написать программу,которая определяет,принадлежит ли точка с координатами (x,y)Заштрихованной области,ограниченной точками(x1,y1)(x2,y2).

Пожалуйста помогите создать какую нибудь полезную программу на паскаль , срочно нужно до понедельника, чтобы в этой программе были все темы за 8 класс,

read.writeln.else.to.if и тд которые сможете
Вот пример идеи для программы, в академию поступают какое то количество учеников, нужно написать сколько учеников сдали документы, сколько пришли на экзамен, и сколько учеников кто прошло и не прошло
возможно не возможно создать программу на этой идее, тогда прделагайте свои со своими программами , пожалуйста помогите!

помогите пожалуйста..очень надо....что нибудь из этих задач..1)написать программу которая поменяет местами первую и последнюю букву в слове. 2)написать

программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел

5-9 класс информатика ответов нет
Паскаль ABC 1.Написать программу рисующую вертикальную цепочку из 7 кругов 2.Написать программу рисующую цепочку из 5 кругов

расположденных по диагонали

3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий

Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..

Заранее спасибо)



Вы находитесь на странице вопроса "помогите в PASCAL ABC написать программу рисования этой картинки", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.