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

Помогите пожалуйста нарисовать в Паскале. Решение.. пожалуйста

10-11 класс

Stileman 29 марта 2015 г., 8:17:58 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Anita132003
29 марта 2015 г., 9:13:25 (8 лет назад)

 Сразу предупрездаю - это Чернобыльский Волк и поэтому у него такой хвост ;))

 

 

Program ChernobylWolf; {Волк-Чернобылец}
Uses Crt,GraphABC;
const n=7;
type Point=record
x,y:integer;
end;
poly=array[1..n] of Point;

var a:poly;

begin

SetWindowSize(800,600);

Rectangle(300,300,400,250); // Пузо
Circle(400,200,55); // Голова
Line(265,170,355,170); // Морда
Line(250,220,355,220); // Морда
Line(250,220,250,185);
Arc(250, 172,15 ,0 ,270); // Нос
Line(345,220,255,240); //Нижний Пасть
MoveTo(255,240); // Зубы
LineTo(255,230); // Зубы
LineTo(270,238); // Зубы
LineTo(271,226); // Зубы
LineTo(291,231); // Зубы
LineTo(292,221); // Зубы
LineTo(310,227); // Зубы
LineTo(311,220); // Зубы
LineTo(320,228); // Зубы
Circle(380,175,15); // Глаза
Circle(373,175,8); // Глаза
FloodFill(373,176,clBlack); // Глаза

MoveTo(310,280); // Левая нога
LineTo(290,320); // Левая нога
LineTo(330,320); // Левая нога
LineTo(310,280); // Левая нога

MoveTo(390,280); // Правая Нога
LineTo(370,320); // Правая Нога
LineTo(410,320); // Правая Нога
LineTo(390,280); // Правая Нога

MoveTo(375,150); // Ухи
LineTo(390,120);// Ухи
LineTo(409,146);// Ухи
LineTo(422,146);// Ухи

LineTo(440,120);// Ухи
LineTo(440,162);// Ухи


// Многострадальный хвост Терпения и времени не хватило уже

a[1].x:=300;
a[1].y:=250;
a[2].x:=290;
a[2].y:=275;
a[3].x:=270;
a[3].y:=290;
a[4].x:=250;
a[4].y:=310;
a[5].x:=250;
a[5].y:=275;
a[6].x:=270;
a[6].y:=250;
a[7].x:=300;
a[7].y:=250;
PolyLine(a,7);

end. 

Ответить

Другие вопросы из категории

Объясните по подробнее как решать такие задания 1)Для какого из указанных значений числа X истинно высказывание

((X < 5)→(X < 3)) Ù ((X < 2)→(X < 1))

1) 1 2) 2 3) 3 4) 4

2)Для какого имени истинно высказывание:

¬ (Первая буква имени гласная → Четвертая буква имени согласная)?

1) ЕЛЕНА 2) ВАДИМ 3) АНТОН 4) ФЕДОР

Помогите написать программу по Информатике! Найти произведение двузначных нечетных чисел, кратных

13.

Нужно написать программу на цикле с предусловием, на Паскале.

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

Помогите, пожалуйста, составить алгоритм для следующей задачи: Вводятся четыре числа. Известно, что 3 из них равны, а 4-ое отличается от 3-ех других.

Нужно выдать число, которое отличается от других равных, при этом, используя ровно две операции сравнения. Я пытался решить эту задачу и через максимум-минимум, и через условия, но везде натыкался на грабли. Помогите, пожалуйста, разобраться. Заранее благодарю! Перед выставлением решения, рассмотрите следующие варианты: "2 4 4 4", "2 3 2 2 ", "-3 -3 -2 -3", "-4 -4 -4 -5".

Помогите, пожалуйста, разобраться и составить верный алгоритм. В задаче требовалось написать программу на Паскале и сравнить её с приведенной в учебнике.

"Подсчитайте кол-во операций в приведенном алгоритме (Ответ приведите в виде функции от параметра n)." Подсчитать кол-во операций самому - это возможно, а как привести ответ в виде функции от параметра n - я не знаю. Помогите, пожалуйста, понять это задание. Заранее благодарен!

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

Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)

ПОМОГИТЕ, ПОЖАЛУЙСТА, ПРОСТО РАЗЪЯСНИВ ЗАДАНИЕ. ПЖЛ)))

.................................................................................................................................
Возьмите прайс лист любого компьютерного магазина или скачайте в интернете;
Составьте конфигурацию компьютера для специалиста вашей профессии;
Подберите программное обеспечение, поясните, для каких целей будут служить данные программы;
Посчитайте общую стоимость данной конфигурации по прайс листу
....................................................................................................................................
Учусь я на бухгалтера-экономиста.
Давайте думать вместе) Допустим, "специалист вашей профессии" - это бухгалтер. Я беру прайс лист (т.е. лист, где написаны наименования и цены всех товаров). Что такое конфигурация? Как её составить по этому прайс листу, если там и так всего цена и наименования известны...?)))) ПО подобрать, допустим, это будет ;MS Office Excel; для создания таблиц, а для данной задачи для подсчёта общей стоимости конфигурации; и ;MS Office World; для писания отчётов. Что же такое эти "конфигурации"?)))
Помогите, пожалуйста) не пропускайте вопрос)

Помогите пожалуйста в среде паскаль решить такую задачу:

посчитать сколько нечетных цифр в н - значном числе! (паскаль)



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