Задать вопрос
4 апреля, 10:52

Нарисовать N концентрических окружностей с минимальны радиусом r и максимальным радиусом R c центром с координатами X и Y. N, r, R, X, Y вводятся с клавиатуры. pascal abc

+2
Ответы (1)
  1. 4 апреля, 12:05
    0
    Program Krugi;

    Uses Crt, GraphABC;

    var i, X, Y, RMax, RMin, N:integer;

    begin

    clrscr;

    write ('Количество окружностей:') ;

    readln (N) ;

    write ('Введите X:') ;

    readln (X) ;

    write ('Введите Y:') ;

    readln (Y) ;

    write ('Введите Максимальный радиус:') ;

    readln (RMax) ;

    write ('Введите Минимальный радиус:') ;

    readln (RMin) ;

    SetWindowSize (800,600) ;

    for i:=RMax downto RMin do

    begin

    if n=0 then break;

    if (n=1) then circle (X, Y, RMin) else

    circle (X, Y, i) ;

    i:=i-5;

    n:=n-1;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Нарисовать N концентрических окружностей с минимальны радиусом r и максимальным радиусом R c центром с координатами X и Y. N, r, R, X, Y ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы