Информатика | 5 - 9 классы
ПОМОГИТЕ нарисовать этот рисунок в паскале!
ОБЯЗАТЕЛЬНО ЧЕРЕЗ ЦИКЛ!
Заранее спасибо.
Задача на цикл for в паскале?
Задача на цикл for в паскале.
Помогите, пожалуйста, со второй!
Помогите запрограммировать в Турбо Паскале))задание на картинке)Зарание спасибо)?
Помогите запрограммировать в Турбо Паскале))
задание на картинке)
Зарание спасибо).
НАРИСОВАТЬ РИСУНОК С ДВУМЯ ЦИКЛАМИ QBASIC?
НАРИСОВАТЬ РИСУНОК С ДВУМЯ ЦИКЛАМИ QBASIC.
ПОМОГИТЕ ПОЖАЛУЙСТА.
Нужно нарисовать рисунок в турбо паскале?
Нужно нарисовать рисунок в турбо паскале.
"9 класс".
Помогите пожалуйсто решить, задачу в паскале?
Помогите пожалуйсто решить, задачу в паскале.
Спасибо большое заранее.
Помогите Паскаль, циклы плз?
Помогите Паскаль, циклы плз.
Нарисовать елку в паскале?
Нарисовать елку в паскале.
Нарисовать любой цветной рисунок в паскале АВС (7 класс)?
Нарисовать любой цветной рисунок в паскале АВС (7 класс).
Помогите пожалуйста с задачей на паскаль 20?
Помогите пожалуйста с задачей на паскаль 20.
2 Заранее спасибо).
На этой странице находится ответ на вопрос ПОМОГИТЕ нарисовать этот рисунок в паскале?, из категории Информатика, соответствующий программе для 5 - 9 классов. Чтобы посмотреть другие ответы воспользуйтесь «умным поиском»: с помощью ключевых слов подберите похожие вопросы и ответы в категории Информатика. Ответ, полностью соответствующий критериям вашего поиска, можно найти с помощью простого интерфейса: нажмите кнопку вверху страницы и сформулируйте вопрос иначе. Обратите внимание на варианты ответов других пользователей, которые можно не только просмотреть, но и прокомментировать.
Uses GraphABC ;
const radius = 70 ;
var i, j, x, y : integer ;
begin for i : = 0 to 2 do for j : = 0 to 2 do begin x : = i * 3 * radius + radius ; y : = j * 2 * radius + radius ; Brush.
Color : = clRed ; FillPie(x, y, radius, 90, - 90) ; Brush.
Color : = clBlue ; FillPie(x, y, radius, 90, 270) ; end ;
end.