вторник, 27 января 2026 г.

Урок 4 февраля дз

 Выписать в тетрадь правила ввода текста стр 111-112. Выучить будет тест по этой теме

вторник, 13 января 2026 г.

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

 

 //фам№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 


Шаблон

 var i, pr :integer;

pr:=1;
pr:=0;
for i:=1 to 100 do if i mod 2 = 1 then
if ( a mod 2 = 0 )  and  ( a mod 34 = 0   )

for i:=1 to 100 do if i mod 2 = 01 then

 pr:=pr+i;

writeln('сумма = ',pr);
end.
begin
var a, b, c :real;
read(a, b);
read(c);

   y :real ;

for  x:= 2 to 17 do  begin   end ;
  Y:=(X+2*X)/7;
  writeln('x = ',x, 'y = ',y);
                  
  end.

понедельник, 5 января 2026 г.

урок 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 

понедельник, 15 декабря 2025 г.

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

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

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

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

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

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


Подписаться на: Комментарии (Atom)