нулевой вариант практической работы

 Подготовка к практической работе

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

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 написать программу для рисования 8 различных прямоугольников 

//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
var  i, s :integer;
begin
   for  i:=1  to  100  do
    s:= s+i;
   writeln('сумма', s);
end.

//фам 5 подсчитать сумму нечетных чисел
var i, pr :integer;
begin
pr:=0;
for i:=1 to 100 do if i mod 2 = 1 then
 pr:=pr+i;
writeln('сумма = ',pr);
end.

//фам 6 подсчитать произведение четных чисел
var i, pr :integer;
begin
pr:=1;
for i:=1 to 7 do if i mod 2 =     then
 pr:=pr*i;
writeln('сумма = ',pr);
end.

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

var a,b: integer;
begin
Writeln('введите числа');
read(a,b) ;
if a > b
  then
    Writeln('a больше b')
  else
    Writeln('a не больше b');
end.

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

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

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

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

иначе

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

 var i, pr :integer;

begin
pr:=0;
for i:=1 to 100 do if i mod 2 = 1 then
 pr:=pr+i;
writeln('сумма = ',pr);
end.

урок 12 и 13 января.

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

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 написать программу для рисования 8 различных прямоугольников 

//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.

//фам 3Подсчитать чему равен Y на интервале от 2 до 17

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

  writeln(‘х = ’, х , ‘y = ’,y);

//фам 4 Подсчитать сумму чисел от 1 до 100
var  i, s :integer;


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

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

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

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

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

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

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

иначе

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

Домашняя работа 22-23 декабря

 ВСЕМ решить в тетрадь и выучить 3 задачи

• Подсчитать сумму четных чисел от 10 до 20
• Подчсчитась сумму чисел от -30 до 50
• Подсчитать сумму нечетных чисел  и  кратных 7 от 10 до 200

 тест по домашней работе ссылка

урок 15 и 16 декабря

•  8д пишет работу на листиках и тест по домашней работе
• 8г тест по домашней работе
• 8ж тест по домашней работе
• 8в тест по домашней работе

Кто не писал работу на листиках, тот будет ее писать

Домашняя работа 15 и 16 декабря

СМОТРЕТЬ ВИДЕО ССЫЛКА

 В тетрадь выписать  вопросы и ответы

Задание №1.

Оператор цикла это...... стр 83

Задание №2.  Операторские скобки  имеют вид:

    Begin  <операторы> End;

Задание №3.  Оператор цикла с параметром используется, когда:

   количество шагов в цикле заранее известно;

Задание №4. Метод отладки программы называется:

      трассировкой ;

Задание №5.  Определить, сколько раз выполнится цикл

for  i:=2  to  5  do (2,3,4,5)-4 раза

Задание №7.  Определить, сколько раз выполнится цикл

for  i:=1  to  5  do s:=s+1; 5 раз

Задание №8.  Определить, сколько раз выполнится цикл

for  i:=10  to  25  do s:=s+1; 26 раз

Задание №9.  Определить, сколько раз выполнится цикл

for  i:=2  to  5  do i:=i+1;  2 раза

Задание №9. 

Свой пример с количеством выполнения цикла

________

Задание №10.  Заполните пропуски.

         var  i, pr :integer;

begin

   pr:=0;

   for  i:=1  to  4  do pr:= pr+i*i;

   writeln(‘pr = ’, pr);

end.   

 Данная программа вычисляет ______. Тело цикла выполнится ____ раз. Результатом выполнения программы будет ___