Составить программу в Pascal рисующая по границе периметра круги!!! Плиз помогите!!!! даю 50 пк
5-9 класс
|
uses graphabc;
var i,j:integer; x,y:real;
begin
for i:=0 to windowwidth do
for j:=0 to windowheight do
if (j=0) or (i=0) or(j=windowheight) or (i=windowwidth) then circle(i,j,50);
end.
Другие вопросы из категории
обучения детей в школе.Попробуйте сформулировать СКИ для каждого из этих исполнителей
Считая все цифры, специальные символы ( типо $ ) и знаки препинания, в том числе и невидимые.
Читайте также
поверхности, суммы ребер прямоугольного параллелепипеда. 3. Составьте программу вычисления диагоналей ромба по стороне и углу.
2. Составьте программу заполнения массива A(20) датчиком случайных чисел в диапазоне от -50 до 49 включительно.
3*. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б
время работы программы. Ниже представлен рекомендуемый вид диалога во время работы программы. Данные, вводимые пользователем, выделены жирным шрифтом.
Величина вклада (р.) - 25000
Срок вклада (дней) - 30
Годовая процентная ставка (%) - 12
Доход: 252 р. 80 коп.
Сумма по окончании срока вклада: 25252 р. 80 коп.