Составить программу (Паскаль) построения на экране n прямоугольников разного цвета, расположенных хаотично.
10-11 класс
|
uses graph;
var n,i,x,y,height,width:integer;
procedure init;
var gd,gm:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph (gd,gm,'');
end;
procedure error;
begin
closegraph;
writeln ('error!');
end;
begin
write ('N = ');
readln (n);
randomize;
init;
if graphresult = 0 then
begin
for i:=1 to n do
begin
setcolor (random(14)+1);
x:=random(640);
y:=random(480);
height:=random(91)+10;
width:=random(101)+20;
rectangle (x,y,x+width,y+height);
end;
end else error;
end.
Другие вопросы из категории
найти номер третьего положительного элемента в потоке из 10 чисел или сообщить,что трех положительных элементов нет. (Решать без массива)
чашечных весах без гирь, чтобы найти фальшивую монету?
Читайте также
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
даёт одну из надписей: «Получите суп», «Получите картошку», «Получите компот», «Оставайтесь голодным». Написать два варианта программы: с использованием условного оператора if и с использованием переключателя.
2.n-1
3.n-2
....
n1.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
подсчитать количество отрицательных элементов
сумму положительных элементов
ВЫВОДИТ НА ЭКРАН НОМЕРА ВСЕХ ЭЛЕМЕНТОВ, ЗНАЧЕНИЯ КОТОРЫХ =0