ЖО ІТЬ БУДЬ ЛАСКА 1) Де знаходиться початок відліку координатної площини для малювання графічних примітивів?
в центрі форми
в нижньому лівому куті форми
в лівому верхньому куті форми
в правому нижньому куті форми
2) Яку властивість форми використовують для малювання на ній?
Caption
Canvas
Width
Name
3) Яку команду використовують для малювання точки заданого кольору?
Canvas.Pen.Color := clанглійська назва кольору;
Canvas.Pixels[x, y] := clанглійська назва кольору;
Canvas.Brush.Color := clанглійська назва кольору;
Canvas.MoveTo (x, y);
4) Графічні примітиви в проектах Lazarus можна створювати також, використавши компонент ...
Shape
Standart
Aditional
Button
5) Яку команду використовують для малювання прямокутника?
Canvas.Pie (x1, y1, x2, y2, x3, y3, x4, y4);
Canvas.LineTo (x, y);
Canvas.Rectangle (x1, y1, x2, y2);
Canvas.MoveTo (x, y);
6) Яку команду використовують для малювання еліпса?
Canvas.Pie (x1, y1, x2, y2, x3, y3, x4, y4);
Canvas.Line (x1, y1, x2, y2);
Canvas.Rectangle (x1, y1, x2, y2);
Canvas.Ellipse (x1, y1, x2, y2);
7) Яку команду використовують для малювання відрізка?
Canvas.Rectangle (x1, y1, x2, y2);
Canvas.LineTo (x, y);
Canvas.Line (x1, y1, x2, y2);
Canvas.MoveTo (x, y);
8) Яку команду використовують для малювання сектора еліпса?
Canvas.Ellipse (x1, y1, x2, y2);
Canvas.Rectangle (x1, y1, x2, y2);
Canvas.Pie (x1, y1, x2, y2, x3, y3, x4, y4);
Canvas.Line (x1, y1, x2, y2);
9) Яка команда задає координати точки, з якої буде розпочато малювання лінії?
Canvas.LineTo (x, y);
Canvas.MoveTo (x, y);
Canvas.Pixels[x, y]
Canvas.Pen.Style
10) Яка властивість форми встановлює колір контуру графічного примітива?
Canvas.Brush.Color
Canvas.Pen.Color
Canvas.Pen.Style
Canvas.Pen.Width
11) Яка властивість форми встановлює колір заливки внутрішньої області графічного примітива?
Canvas.Brush.Color
Canvas.Brush.Style
Canvas.Pen.Color
Canvas.Pen.Width
12) Яка властивість форми встановлює товщину лінії контуру графічного примітива?
Canvas.Pen.Color
Canvas.Pen.Width
Canvas.Pen.Style
Canvas.Line (x1, y1, x2, y2);
13) Яка властивість форми встановлює стиль лінії контуру графічного примітива?
Canvas.Brush.Style
Canvas.LineTo (x, y);
Canvas.Pen.Style
Canvas.MoveTo (x, y);
14) Яка властивість форми встановлює стиль заливки внутрішньої області графічного примітива?
Canvas.Pen.Style
Canvas.Brush.Style
Canvas.Rectangle (x1, y1, x2, y2);
Canvas.Brush.Color
15) Shape - це
крива
лінія
точка
компонент для створення фігур
16) Picture - це
графічне зображення, яке відображається в полі компонента
стиль лінії контуру
колір лінії контуру
стиль заливки
17) Властивість компонента Image, яка відповідає за розмір зображення?
Picture
Width, Height
Visible
Canvas
18) Для вставлення контейнера, до якого додають малюнок із файла, на формі розміщують компонент ...
Image
Shape
Picture
Strech
19) Очистити вміст елемента Image1 можна таким
uses JPEG;
Image1.Picture:= nil;
LoadFromFile
Image1.Picture:= False;
20) Для чого призначена команда?Canvas.Pen.Color:=clGreen;
Колір заливки зелений
Колір контуру зелений
Колір зображення зелений
Колір прямокутника зелений
21) Компоненти для розміщення графічних об'єктів містяться на панелі компонентів ...
Additional (Додаткова)
Standart
Common
Controls
22) Щоб вивести зображення в полі компонента Image під час роботи програми, потрібно до властивості Picture застосувати метод ...
c:\temp\bart.bmp
LoadFromFile
uses JPEG;
MouseMove
23) Для чого призначено полотно Canvas?
Для того щоб установити для точки деякий колір
Для малювання на формі
Щоб розмістити фігуру на формі
Щоб відобразити зображення, що міститься в зовнішніх файлах
24) Для чого призначений компонент Область зображення (T Image)?
Для відображення зображення, що містяться в зовнішніх файлах
Для розміщення фігури на формі
Для малювання на формі
Для установлення кольору деякої точки
var i,j,n:longint;
f:boolean;
begin
writeln('Введите число');
readln(n);
if n<2 then writeln('Простых делителей нет')
else
begin
write('Число ',n,' ','= 1');
for i:=2 to n do
if n mod i=0 then
begin
f:=true;
j:=2;
while f and(j<=round(sqrt(i/2)))do
begin
if i mod j=0 then f:=false
else j:=j+1;
end;
if f then write('*',i);
end;
end;
end.
Тестовое решение:
Введите число
2345
Число 2345 = 1*5*7*35*67
1) выписываем остатки (те что в скобках 1 или 0 с последнего числа полученного при делении )
104 / 2 = 52 остаток (0)
52 / 2 = 26 остаток (0)
26 / 2 = 13 остаток (0)
13 / 2 = 6 остаток (1)
6 / 2 = 3 остаток (0)
3 / 2 = 1 (<== начинаем выписывать с этого числа) остаток (1) <= следующее
ответ: 1101000
2)
510 / 2 = 255 остаток (0)
255 / 2 = 127 остаток (1)
127 / 2 = 63 остаток (1)
63 / 2 = 31 остаток (1)
31 / 2 = 15 остаток (1)
15 / 2 = 7 остаток (1)
7 / 2 = 3 остаток (1)
3 / 2 = 1(<== первое число) остаток (1)
ответ : 111111110
3)
634 / 2 = 317 остаток (0)
317 / 2 = 158 остаток (1)
158 / 2 = 79 остаток (0)
79 / 2 = 39 остаток (1)
39 / 2 = 19 остаток (1)
19 / 2 = 9 остаток (1)
9 / 2 = 4 остаток (1)
4 / 2 = 2 остаток (0)
2/ 2 = 1 (<== первое число)остаток (1)
ответ : 1101111010
4) число 731 попробуйте сделать сами для понимания
II)
1)
10111 нумеруем все цифры с права налево (первый номер-0)
1(4) 0(3) 1(2) 1(1) 1(0)
далее схема такая 1*2 в четвёртой степени(4) + 0 * 2 в третьей(3)+1*2 во второй(2) + 1*2 в первой(1) +1*2 в нулевой (0)
и так мы получаем 16+0+4+2+1=23
2) 110011 нумеруем 1(5) 1(4) 0(3) 0(2) 1(1) 1(0)
1*2 в пятой +1*2 в четвёртой +1*0 в третьей +1*0 во второй +1*2 первой +1*2 в нулевой=32+16+0+0+2+1=51
два других сделайте сами для тренировки