Помогите пожалуйста нарисовать в Паскале. Решение.. пожалуйста
10-11 класс
|
Сразу предупрездаю - это Чернобыльский Волк и поэтому у него такой хвост ;))
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.
Другие вопросы из категории
((X < 5)→(X < 3)) Ù ((X < 2)→(X < 1))
1) 1 2) 2 3) 3 4) 4
2)Для какого имени истинно высказывание:
¬ (Первая буква имени гласная → Четвертая буква имени согласная)?
1) ЕЛЕНА 2) ВАДИМ 3) АНТОН 4) ФЕДОР
внутри пары скобок вложенных нет
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Читайте также
Нужно выдать число, которое отличается от других равных, при этом, используя ровно две операции сравнения. Я пытался решить эту задачу и через максимум-минимум, и через условия, но везде натыкался на грабли. Помогите, пожалуйста, разобраться. Заранее благодарю! Перед выставлением решения, рассмотрите следующие варианты: "2 4 4 4", "2 3 2 2 ", "-3 -3 -2 -3", "-4 -4 -4 -5".
"Подсчитайте кол-во операций в приведенном алгоритме (Ответ приведите в виде функции от параметра n)." Подсчитать кол-во операций самому - это возможно, а как привести ответ в виде функции от параметра n - я не знаю. Помогите, пожалуйста, понять это задание. Заранее благодарен!
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)
.................................................................................................................................
Возьмите прайс лист любого компьютерного магазина или скачайте в интернете;
Составьте конфигурацию компьютера для специалиста вашей профессии;
Подберите программное обеспечение, поясните, для каких целей будут служить данные программы;
Посчитайте общую стоимость данной конфигурации по прайс листу
....................................................................................................................................
Учусь я на бухгалтера-экономиста.
Давайте думать вместе) Допустим, "специалист вашей профессии" - это бухгалтер. Я беру прайс лист (т.е. лист, где написаны наименования и цены всех товаров). Что такое конфигурация? Как её составить по этому прайс листу, если там и так всего цена и наименования известны...?)))) ПО подобрать, допустим, это будет ;MS Office Excel; для создания таблиц, а для данной задачи для подсчёта общей стоимости конфигурации; и ;MS Office World; для писания отчётов. Что же такое эти "конфигурации"?)))
Помогите, пожалуйста) не пропускайте вопрос)
посчитать сколько нечетных цифр в н - значном числе! (паскаль)