1. Відмітьте ознаки циклу Repeat…Untіl. *
Оператори тіла циклу виконуються доти, доки умова істинна
Якщо умова набуває значення True, керування переходить до оператора, що йде безпосередньо за оператором Until <умова>
Оператори тіла циклу виконуються мінімум один раз. Умова починає перевірятися лише після першого проходження циклу
Оператори тіла циклу виконуються доти, доки умова хибна
2. Цикл з післяумовою починається з оператора *
for
repeat
while
begin
Інше:
3. Яке значення набуває змінна А у фрагменті програми:Randomize;A:=random(10). *
випадкове дійсне число від 0,0 включно до 1,0
випадкове ціле число від 0 включно до 10
випадкове ціле число від а до b включно
4. Скільки разів виконається цикл, якщо початкове значення Х=7? Repeat X := X+1 untіl X>10? *
2
4
6
Жодного
5. Визначте, який оператор реалізує дію:Збільшувати значення змінної А на 2 доти, доки А<20 *
Whіle A<20 do A := A+2;
If A < 20 Then A := A+2;
Repeat A := A+2 Untіl A<20;
Repeat A := A+2 Untіl A >= 20.
Інше:
6.Чому дорівнює S після виконання циклу: S := 0; For і := 5 To 7 Do S := S+1? *
4
3
7
5
Інше:
7. Чому дорівнює S після виконання циклу: S := 0; For і := 10 DownТo 6 Do S := S+1? *
4
3
7
5
Інше:
8. В яких із наведених операторів циклу тіло циклу не виконається жодного разу? *
Х:=5; Whіle Х <5 do X := X+1;
Х := 10; Whіle Х <= 10 do X := X+1;
For A := 10 To 0 Do S = S + A;
Repeat A := A+1 Untіl A >= 5;
9. Цикл з лічильником починається з оператора *
while
for
begin
end
10. В операторі циклу з лічильником зміна значень лічильника відбувається *
автоматично
вручну
не змінюється
Інше:
11. Яка властивість надає доступ до рядків? *
Name
Left
Items
ParentColor
11.01| 101
|
| 0.10100110011001100110011001100110011001100110011001
11
-- не делится, добавляем 0 (в частное целые 0)
110
101
--- делится (в частное десятые 1)
--- остаток 1, сносим 1 - мало, (в частное 0 - сотые), сносим 0
110
101
делится (в частное тысячные 1)
остаток 1,сносим 0-мало,(в частное 0),сносим 0-мало,(в частное 0), сносим 0
1000
101
делится (в частное 1)
остаток 11,сносим 0
110
101
--- делится (в частное 1)
--- остаток 1,сносим 0-мало,(в частное 0),сносим 0-мало,(в частное 0),сносим 0
1000
101
делится (в частное 1)
остаток 11,сносим 0
11
и т д
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,x,y,r:Integer;
begin
Randomize;
Image1.Picture := nil;
Image1.Canvas.Brush.Color:=clBlack;
Image1.Canvas.Rectangle (0,0,Image1.Width,Image1.Height);
Image1.Canvas.Brush.Color:=clWhite;
for a:=1 to RandomRange(9,20) do
begin
x:=RandomRange(50,1000);
r:=RandomRange(1,15);
y:=RandomRange(50,550);
Image1.canvas.Ellipse(x-r,y-r,x+r,y+r);
end;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
end;
end.
на форме image и кнопка
(если тебе нужна просто программа(как я думал изначально) напиши в почту, просто уважаемые админы удаляют мои посты :( )