помогите пожалуйста)желательно в виде рисунка) заранее спасибо)
10-11 класс
|
![](https://avatar.neparsya.net/avatar/12113.gif)
![](https://avatar.neparsya.net/avatar/13489.gif)
program Picture;
uses Graph;
const
PathToDriver = 'D:\BP\bgi'; {подставьте свой путь к каталогу с файлами *.bgi}
var Gd,Gm : Integer;
begin
DetectGraph(Gd, Gm); {определим драйвер и режим}
InitGraph(Gd, Gm, PathToDriver); {проинициализируем графику}
if GraphResult <> grok then Halt(1); {если ошибка, завершим работу}
SetViewPort(0,0,639,349,ClipOn); {установим область рисования}
ClearViewPort; {очистим область рисования}
{для рисования используем следующие процедуры}
{Circle(X,Y,R) - рисует окружность}
{MoveTo(X,Y) - перемещает указатель в заданную точку}
{LineTo(X,Y) - проводит линию от указателя до заданной точки,}
{ указатель перемещает в конец линии}
{Rectangle(X1,Y1,X2,Y2) - рисует прямоугольник}
{PutPixel(X,Y,Color) - ставит точку в позиции с заданным цветом}
{человечек}
Circle(170, 225, 5);
MoveTo(170, 230);
LineTo(170, 260);
MoveTo(160, 240);
LineTo(170, 250);
LineTo(180, 240);
MoveTo(160, 270);
LineTo(170, 260);
LineTo(180, 270);
{домик}
MoveTo(230, 270);
LineTo(230, 320);
LineTo(290, 320);
LineTo(290, 270);
LineTo(260, 220);
LineTo(230, 270);
LineTo(290, 270);
MoveTo(250, 320);
LineTo(250, 290);
LineTo(270, 290);
LineTo(270, 320);
PutPixel(265, 305, White);
{дерево}
Circle(345, 175, 45);
Rectangle(340, 220, 350, 320);
ReadLn; {задердка для просмотра}
CloseGraph; {выход из графического режима}
end.
Другие вопросы из категории
Читайте также
градусов. напишите решение и еще рисунок заранее спасибо) ПОЖАЛУЙСТА ПОМОГИТЕ!!!
точке О.
Найдите число k такое, что:
a) (вектор) AB=k* (вектор) CD
б) (вектор) AC1= k* (вектор) AO
в) (вектор) OB1=k* (вектор) B1D
2) Вычислите угол между векторами:
а) (вектор) а(2; -2; 0) и (вектор) b(3; 0; -3)
б) (вектор) а(0; 5; 0) и (вектор) b(0; корень из 3; 1)
в) (вектор) а(-2; 5; 2; 5; 0) и (вектор) b(-5; 5; 5; корень из2)
помогите пожалуйста, последние 2 вопроса осталось в геометрии, не могу их сделать. спасибо большое кто поможет********
основания. Если существует, то обязательно прикладывайте рисунок, как он выглядит, а то я что-то никак не разберусь. Заранее спасибо!
пирамиды.
2. Основанием прямой призмы является равнобедренный треугольник с основанием 6 см и углом при основании 45 градусов. Диагональ боковой грани, содержащей боковую сторону треугольника, наклонена к плоскости основания под углом 45 градусов. Найдите объем цилиндра, вписанного в призму. ( пожалуйста напишите подробного решение, что из чего вытекает, заранее спасибо)