• 30 November 2011
    • Английский язык
    • Автор: Gerasimowa55

    Нужен какойнибудь рисунок на языке турбо-паскаль,)произвольный рисунок,)помогите пожалуйста,желательно с обьяснением)заранее спасибо)ну только рисунок чтобы был не какой нибудь сложный,а простой типо обезьяны)благодарю)

    • 30 November 2011
    • Ответ оставил: Rituzik

    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.

    Оцени ответ
    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
    На сегодняшний день (25.01.2022) наш сайт содержит 244786 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.
  • Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

    Ответить на вопрос

Последние опубликованные вопросы

Почему сокращается численность Казахстанских козерогов?​ Why did people stay in their homes as much as possible?                A. The weather was cold B. There were many thievesC. There were police officers​ Use of English/ Task 4. Read and choose. 1. I enjoy to swim/ swimming. 2. I want to eat/ eating. 3. I hate to work/working on Sunday. 4. I want to learn/ learning Spanish. помогить, соч последнее ... B) Write sentences use Past Simple and Past Continuous 1)When/Alice/wake up /it/rain 2) Her/mother/make/breakfast/ when /she/come /home​ Topic 2. Write an article to a newspaper (120-150 words) describing the last Sport Competition where you or your friends participated (in a country or abroad) using Past tenses. Try to mention thes... сүт қоректілердің не жатады ​ Что делает человек, чтобы хорошо учиться в школе? Выбери и выпиши глаголы в форме прошедшего времени.1) Did he lived / live with his parents?2) She goed / went to the cinema last weekend.3) We didnt met / meet them at the station.​ Помогите срочно! Rewrite the sentences in reported speech 1. Saule said, "I have never been to Nursultan. I think I will go there next year." 2. Mother said to us, "Did you go to the museum this ... Написать эссе на тему «Преимущества и недостатки игры подростков в компьютерные игры» Кол-во-(90-100 слов) Даю 20 баллов... ​ Упражнения на отработку be going to, will, Present Continuous or Present Simple. Выражения будущего времени. 7 классTask 1I. Complete these sentences using be going to, will, Present Continuous or ... Пожалуйста срочно плис плюс 80 балов 2 Find "hedgehog" in the Wordlist.Найдите значение слова “hedgehog”в словаре.​
*{ message }*
Наверх
К началу