сервис вопросов и ответовПрошу помогите, задача должна быть на языке ПАСКАЛЬ, Составить программу рисования 18 прямоугольников синего цвета, координаты которых определяется случайн
5-9 класс|
|
ым образом, а стороны равны а=140, b=40.
Integra376
19 мая 2014 г., 3:33:19 (9 лет назад)
Геката
19 мая 2014 г., 6:22:16 (9 лет назад)
uses GraphABC;
CONST a=140; b=40; n=18;
var
x1,x2,y1,y2,i:integer;
procedure Paint;
begin
x1:= random(WindowWidth-a);
x2:= x1+a;
y1:= random(WindowHeight-b);
y2:= y1+b;
SetBrushColor(clblue);
rectangle(x1,y1,x2,y2);
end;
begin
randomize;
for i:=1 to n do Paint;
end.
Вроде вот так, если есть какие-то замечания, то пиши - исправим ;-)
Ответить
Другие вопросы из категории
Читайте также
1. найти сумму первых 10 чисел, кратных 7;
2. вывести на экран 11 первых чисел кратных 5;
3. составить программу рисования 18 прямоугольников синего цвета, координаты которых определяется случайным образом, а стороны равны а=140, b=40.
Помогите, пожалуйста, очень нужно! Срочно!:( 1) Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
Плиз срочно надо.1)Найдите правильную на языке паскаль запись выражения
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
ПОМОГИТЕ ПОЖАЛУЙСТА!
На языке паскаль составить программу , выводящую на экран наименьшее из трех чисел.Программа должна выводить на экран результат в виде:Наименьшее из данных трех чисел=Значение.
Вы находитесь на странице вопроса "Прошу помогите, задача должна быть на языке ПАСКАЛЬ, Составить программу рисования 18 прямоугольников синего цвета, координаты которых определяется случайн", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.