Составьте программу рисования окружностей с центром в точке(200,200) и радиусами 10,20,30,40,50 ( примените команду "for")!!!
5-9 класс
|
uses
GraphABC;
var
i: integer;
begin
for i := 10 to 50 do
if (i mod 10 = 0) then
DrawCircle(200, 200, i);
end.
Другие вопросы из категории
и 5 в интервале от 300 до 1000.
заранее спасибо)
т.е. A[0] = 6; A[1] = 9 и т.д.
Определите значение переменной c после выполнения следующего фрагмента программы.
c := 0;
for i := 1 to 9 do
if A[i - 1] < A[i] then begin
c := c + 1;
t := A[i];
A[i] := A[i - 1];
A[i - 1] := t
end;
рассуждения, кодирование, структурирование, поиск) будет производиться
при выполнении следующих действий:
а)
Радист записывает на русском языке сообщение, полученное с помощью азбуки Морзе
б)
Читайте также
ОКРУЖНОСТЕЙ С ЦЕНТРОМ В ТОЧКЕ (200,200) И РАДИУСОМ 10, 20, 30, 40, 50 (ПРИМЕНИТЕ КОМАНДУ 'For') 8 КЛАСС!!!
сообщение:"Принадлежит" либо "Не принадлежит".
принадлежит ли точка с координатами (x,y) окружности с радиусом R и центром в точке (x1,y1).
3)дан одномерный числовой массиф В(16). Необходимо вывести на экран индексы элементов значения, которых равны числу P.
cрочно надо на языке паскаль составить плиз)
Составьте программу рисования 12 окружностей радиусом 25, с координатами центров окружностей: (25,100), (75,100),(125,100), (175,100), (575,100).
Номер 2