8 клас

Контрольній тест з теми " Текстовий процесор MS WORD

Контрольний тест з теми програмування:  https://docs.google.com/forms/d/1J1jT_M9pWD6ZgP52ysNlKGaqw9ei7EIWrQXRMRMkOmA/edit?usp=sharing


Задачі для Pascal ABC.  Підручник Т.П.Караванова 

Задача №86  

Program kover;

Var  a,b,c,S:integer; K,K1,K2   : integer;
Begin
Write ( 'Введіть розміри кімнати   ') ;
Readln(a,b);
Write('Введіть розміри килима ');
readln(c);
If   (c > a)   or   (c > b)
Then writeln( 'Кімнату неможливо накрити такими килимами')
Else
Begin
K1:= a div c;  K2:=b div c;
K:=K1*K2;     S:= a*b - K*c*c;
Writeln( 'Кількість  куплених килимів   ',K);
Writeln('Площа кімнати,   що не накрита килимами  ', S);
 End;

 End.

Задача №45   

program terariym;
var x,y,z : integer; l,l1,l2,l3:real;
begin
writeln('введите колличество гадюк,кобр,гюрз');
readln(x,y,z);
l1:=1;
l2:=1.30;
l3:=1.15;
l:=(x*l1+y*l2+z*l3);
writeln('Общая длинна',l);

end.

Задача № 42 

Program zukerki; 

Var M, N, P : real; 

Begin 

readln(n);

readln(m);

n:= 50;

m:=92; 

  P:= N+N-5-M;

Writeln('Дівчаткам необхідно з’їсти ',P,'кг цукерок.');

readln(p);

End. 

Графіка:

Задача №1 

program robot;

uses graphabc;

begin

setwindowsize(1000,800);

Setpenwidth(3);

Setpencolor(clred);

rectangle(150,400,550,700);

rectangle(250,100,450,300);

line(300,50,350,100);

line(400,50,350,100);

circle(300,150,15);

circle(400,150,15);

line(350,200,320,220);

line(350,200,370,220);

Line(320,220,370,220);

line(300,300,300,400);

line(400,300,400,400);

textout(700,100,'ROBOT');

end.

Задача №2  

program graf_1;

uses graphABC;

begin

  SetWindowSize(300,300);         //установка размера окна

  SetPenColor(clred);                  // установка цвета линий

  SetPenStyle(psdash);               // установка стиля линий

  SetPenWidth(10);                    // установка толщины линий

  Rectangle(50,50,250,250);   // рисование прямоугольника

  Circle(150,150,50);                  // рисование окружности

end.