Регистрация Спросить otvet5GPT
iavonova15
10.07.2022 14:32
Информатика
Есть ответ 👍

Нарисуйте что нибуть в pascal abc, кроме зайцев, домиков и елок.пож

120
179
Посмотреть ответы 2

Ответы на вопрос:

IslamKapkaev
IslamKapkaev
4,4(41 оценок)
Снежинка типа uses graphabc; var a: array[1..5] of record x,y,x0,y0,g: real; end; i,c: integer; begin setwindowsize(800,600); setpenwidth(2); a[1].x: =400+150*cos(a[1].g/180*pi); a[1].y: =300+150*sin(a[1].g/180*pi); a[1].x0: =a[1].x; a[1].y0: =a[1].y; a[1].g: =a[1].g+1-(trunc(a[1].g) div 360)*360; for i: =2 to 5 do begin a[i].x: =a[i-1].x+150*power(0.65,i)*cos(a[i].g/180*pi); a[i].y: =a[i-1].y+150*power(0.65,i)*sin(a[i].g/180*pi); a[i].x0: =a[i].x; a[i].y0: =a[i].y; a[i].g: =a[i].g+power(10,i-(a[i].g) div 360)*360; end; for c: =1 to 360 do begin a[1].x: =400+150*cos(a[1].g/180*pi); a[1].y: =300+150*sin(a[1].g/180*pi); line(round(a[1].x0),round(a[1].y0),round(a[1].x),round(a[1].y)); a[1].x0: =a[1].x; a[1].y0: =a[1].y; a[1].g: =a[1].g+1-(trunc(a[1].g) div 360)*360; for i: =2 to 5 do begin a[i].x: =a[i-1].x+150*power(0.65,i)*cos(a[i].g/180*pi); a[i].y: =a[i-1].y+150*power(0.65,i)*sin(a[i].g/180*pi); line(round(a[i].x0),round(a[i].y0),round(a[i].x),round(a[i].y)); a[i].x0: =a[i].x; a[i].y0: =a[i].y; a[i].g: =a[i].g+power(10,i-(a[i].g) div 360)*360; end; end; end.
Vikohkamy
Vikohkamy
4,8(47 оценок)
Эта последовательность четных четырехзначных чисел сумма цифр которых равна 4.следующие 4 числа: 1210, 1120, 1102, 1012

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS