Составьте программу которая рисует 10 окружностей разного цвета разных радиусов с одним центром?

Linocha29 7 окт. 2020 г., 21:30:39

Uses graphabc ;

var i, j : integer ; ar : array[1.

10]of integer ; b : boolean ;

label l1 ;

begin b : = false ; for i : = 1 to 10 do ar[i] : = random(10, 300) ; l1 : b : = false ; for i : = 1 to 10 do for j : = 1 to 10 do

if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < ; 10)) and (i < ; > ; j) then begin b : = true ; ar[i] : = random(30, 300) ; end ; if b = true then goto l1 ; window.

Init(0, 0, 800, 600, clwhite) ; window.

IsFixedSize : = true ; randomize ; lockdrawing ; pen.

Width : = 5 ; for i : = 1 to 10 do begin pen.

Color : = rgb(random(0, 255), random(0, 255), random(0, 255)) ; drawcircle(400, 300, ar[i]) ; redraw ;

end ;

end.

22012006 4 янв. 2020 г., 17:16:34 | 5 - 9 классы

Написать программу которая рисует треугольник у которого все стороны разного цвета?

Написать программу которая рисует треугольник у которого все стороны разного цвета.

Allastels 22 мар. 2020 г., 08:45:52 | 10 - 11 классы

Составить программу (Паскаль) построения на экране n прямоугольников разного цвета, расположенных хаотично?

Составить программу (Паскаль) построения на экране n прямоугольников разного цвета, расположенных хаотично.

Alevtina08 1 апр. 2020 г., 20:22:36 | 5 - 9 классы

Составить программу которая рисует 5 окружностей голубого цвета с центром в точке (200, 200) и радиусами 30, 40, 50, 60, 70?

Составить программу которая рисует 5 окружностей голубого цвета с центром в точке (200, 200) и радиусами 30, 40, 50, 60, 70.

Sacho 9 июл. 2020 г., 17:17:23 | 5 - 9 классы

Составе программу которая рисует 5 окружностей голубого цвета , с центром в точке (200, 200) радиусами 30, 40 , 50 , 60 , 70 ?

Составе программу которая рисует 5 окружностей голубого цвета , с центром в точке (200, 200) радиусами 30, 40 , 50 , 60 , 70 .

Pascal ABC.

15hocleist 5 мая 2020 г., 09:42:25 | 10 - 11 классы

Pascal ABC?

Pascal ABC.

Составьте программу, которая рисует деталь в виде кольца внешним радиусом 150 и внутренним радиусом 50, в котором вырезаны отверстия радиусом 30.

Их центры находятся на расстоянии 100 от центра кольца (число отверстий n вводится с клавиатуры).

2< ; n< ; 8.

Sak510 29 сент. 2020 г., 07:24:09 | 10 - 11 классы

Составьте программу вычисления длины окружности и площади круга по заданному радиусу?

Составьте программу вычисления длины окружности и площади круга по заданному радиусу.

Yu0l2chibbAlayC 10 окт. 2020 г., 12:37:12 | 10 - 11 классы

Составьте программу, осуществляющую поиск фамилий двух людей, живущих в разных городах по одному адресу?

Составьте программу, осуществляющую поиск фамилий двух людей, живущих в разных городах по одному адресу.

Parfumkosmetik 18 апр. 2020 г., 21:57:24 | 5 - 9 классы

Задание по программированию 8 класс?

Задание по программированию 8 класс.

Pascal.

По холсту перемещаются два шарика разного цвета и разного радиуса, один - слева направо, второй - сверху вниз.

Скорости движения шариков разные.

Разработайте программу для выполнения этой анимации.

Нннн47 30 мая 2020 г., 11:12:19 | 5 - 9 классы

1)составьте программу рисования на экране 20 окружностей, координаты центра и радиуса которых выбираются случайным образом?

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

На языке бейсик.

2)Составьте программу построения на экране ломаной линии, координаты точек которой выбираются случайным образом.

Gyyy1h 9 окт. 2020 г., 03:19:03 | 5 - 9 классы

Составьте программу рисования 8 окружностей радиусом 40 с координтами центров окружностей : (40, 180), (120, 189), (200, 180)?

Составьте программу рисования 8 окружностей радиусом 40 с координтами центров окружностей : (40, 180), (120, 189), (200, 180).