Есть ответ 👍

Дан массив l(5,3).получить массив с(15),элементы которого вычисляются по правилу с(i)=корень 7-й степени l(i,j) ,распечатать элементы массива с. на языке qbasic,нужна блок-схема и программа

192
434
Посмотреть ответы 1

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

Robobob
4,8(89 оценок)

Данная программа выполнена для pascalabc.net, немного кривая, но полностью рабочая.  uses graphabc; var i: integer; procedure boy(z,w: integer); begin rectangle(z-20,w-30,z+20,w+40); moveto(z-20,w-20); lineto(z-35,w+15); lineto(z-20,w); lineto(z-20,w-20); floodfill(z-25,w,clbrown); moveto(z+20,w-20); lineto(z+35,w+15); lineto(z+20,w); lineto(z+20,w-20); floodfill(z+25,w,clbrown); floodfill(z,w,clblue); moveto(z-10,w+40); lineto(z-10,w+70); lineto(z-3,w+70); lineto(z-3,w+40); lineto(z+3,w+40); lineto(z+3,w+70); lineto(z+10,w+70); lineto(z+10,w+40); lineto(z-10,w+40); floodfill(z-5,w+65,clbrown); floodfill(z+5,w+65,clbrown); circle(z,w-40,20); floodfill(z,w-40,clbrown); end; procedure ball(x,y: integer); begin circle(x,y,15); floodfill(x,y,clred); end; begin lockdrawing; for i: =1 to 20 do begin boy(100,200); ball(100+i*5,200-i*5); ellipse(200,115,250,140); redraw; clearwindow(clwhite); end; for i: =1 to 5 do begin boy(100,200); ball(200+i*5,100+i*5); ellipse(200,115,250,140); redraw; clearwindow(clwhite); end; for i: =1 to 25 do begin boy(100,200); ball(225,125+i*5); ellipse(200,115,250,140); redraw; clearwindow(clwhite); end; end.

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

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

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

Caktus Image

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

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

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

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

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

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

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

GTP TOP NEWS