практическая работа

 

 //фам№1 написать программу для рисования 11 различных кругов

uses GraphABC;
var x,y,r,i: integer;
begin
SetPenWidth(3);
SetBrushStyle(bsClear);
for  i:= 1 to 10 do
begin
x := random(600);
y := random(400);
R := random(150);
SetPenColor(clRandom);

circle (x, y , r);

end;
end.

//фам№2 написать программу для рисования 5 различных прямоугольников 

//Rectangle(x1,y1, x2,y2 );

uses GraphABC;
var x1,____,r,i: integer;
begin
SetPenWidth(3);
SetBrushStyle(bsClear);
for  i:= 1 to 10 do
begin
x1 := random(600);
y1:= random(400);
______

_______
SetPenColor(clRandom);

_______

end;
end.

//Вывести все значения у для х на интервале от 2 до 17

//   Y=(X+2X)/7

  var x,r,i: integer;

   y :real ;

begin

for  x:= 2 to 17 do  begin

  Y:=(X+2*X)/7;

  writeln('õ = ',x, 'y = ',y);

                     end ;

  end.

//фам 4 Подсчитать сумму чисел от 1 до 100


//фам 5 подсчитать сумму четных чисел

//фам 6 подсчитать произведение нечетных чисел

//фам  7 Составьте программу к задаче. Ввести с клавиатуры целые числа а и b. Написать программу, которая выводит сначала меньшее число, а  затем  большеечисло.

//фам  8 подсчитать сумму четных чисел от6 до 24 и произведение нечетных чисел от 3 до 6. Проверить что больше и выдать сообщение

//фам№9 написать программу: Ввести с клавиатуры число а. Если он больше 0, то  подсчит. сумму четных  чисел от 5 до 10, иначе подсчит. сумму нечетных  чисел от 6 до 13

/фам№10 написать программу: Ввести с клавиатуры число а. Если оно больше 30, то 

•  подсчит. сумму НЕчетных  чисел от 2 до 7
• подсчитать количество НЕчетных  чисел от 2 до 7 ,

иначе

•  подсчит. количество четных  чисел от 2 до 7
• подсчит. произведение  четных  чисел от 2 до 7