Алгоритми та програми

Який оператор реалізує дію:

Якщо ціле число А парне, поділити його на 2, в протилежному випадку помножити на 10.

Який оператор реалізує дію: 

Змінній К: Boolean присвоїти значення True, якщо числа А, В, С упорядковані за зростанням, і значення False в протилежному випадку?

Який оператор реалізує дію:

Якщо А - від’ємне число, змінити його знак на протилежний.

Встановіть порядок виконання операторів програми для визначення більшого з трьох чисел а, b, с.

1. a := StrToInt(Edit1.Text); b := StrToInt(Edit2.Text); c := StrToInt(Edit3.Text); 

2. If a > b Then Мax := a Else Мax := b; 

3. If c > max Then max := c; 

4. Edit4.Text := IntToStr(max); 

Встановіть відповідність між операторами і діями, які вони реалізують

1. If A mod 2 = 0 Then A := A div 2 Else A := 10*A; 

2. If A mod 2 = 0 Then A := A div 2; 

3. If A > B Then A := A-B Else B := B-A; 

4. If A > B Then Мах := A Else Мах:= B; 

А. Від більшого з чисел А і В відняти менше.

Б. Змінній Мах присвоїти значення більшого з чисел А і В. 

В. Якщо ціле число А парне, поділити його на 2. 

Г. Якщо ціле число А парне, поділити його на 2, в протилежному випадку помножити на 10. 

Визначте, якого значення набуває змінна В після виконання фрагмента програми. 

var A, B, C, Max: Integer;

begin

A := 13; B := 12;

If A > B*B Then B := A-B;

If B > A-1 Then begin B := B-A; 

A:= A-B end

Else begin A := A-B;

B := B-A end;

{…}

x=10. Чому дорівнює y після виконання оператора? 

Позначте одну правильну відповідь. 

   If x<0 Тhen y := x Else

       If x <= 5 Then y := sqr(x) Else y := 2*x; 

x=3. Чому дорівнює y після виконання оператора? 

Позначте одну правильну відповідь.

  If x<0 Тhen y := x Else

      If x <=5 Then y := sqr(x) Else y := 2*x; 

x=5. Чому дорівнює y після виконання оператора? 

Позначте одну правильну відповідь.

    If x<0 Тhen y:=x Else

                 If x <=5 Then y := Sqr(x) Else y := 2*x;

В яких операторах допущені помилки?

Які оператори реалізують дію: 

Змінній К: Boolean присвоїти значення True, якщо число А: Integer є парним, і значення False в протилежному випадку.

Встановіть відповідність між початковими значеннями змінної х (1-4) і значеннями змінної у після виконання оператора.

  If x<0 Тhen y := x Else

     If x <= 5 Then y := sqr(x) Else y := 2*x;

1. x=10; 

2. x=3; 

3. x=5; 

4. x= -10; 

А. y=20; 

Б. y=25; 

В. y=9; 

Г. y= -10

Встановіть відповідність між початковими значеннями змінної А і значеннями змінної В після виконання оператора.

  If A < 5 Then В := А + 1 Else

    If A < 10 Then В := A * 2 Else В := A + 10; 

1. А= 15; 

2. А= 5; 

3. А= 3; 

4. А= 4; 

А. В=16;

Б. В=25;

В. В=10;

Г. В=4

Визначте, якого значення набуває змінна z після виконання фрагмента програми.

var x, y, z: Integer;

begin

x := 5; y := 10;

If x < 0 Then Іf x > y Then z := x

              Else z := y

       Else If x < y Then z := х

              Else z := у;

{…} 

Скільки разів виконається цикл, якщо початкове значення Х=7?

  Whіle Х <= 10 do X := X+1;

Скільки разів виконається цикл, якщо початкове значення Х=11?

     Whіle Х <= 10 do X := X+1;  

Визначте значення S після виконання операторів:

     X := 0 ; S := 0;

     Whіle Х<=5 Do begin

       X := X + 1; 

       S := S + 1; end;

Визначте ознаки циклу Do..While.

В яких із наведених операторів циклу тіло циклу не виконається жодного разу?

Встановіть порядок розташування операторів в програмі для визначення суми двадцяти елементів послідовності чисел 2,5; 3,0; 3,5; 4,5... 

1. end; 

2. Whіle і < 20 do begin; 

3. S := S+A; A := A+0.5; i := i+1; 

4. S := 0; і := 0; A:=2,5;  

Встановіть відповідність між операторами і діями, які вони реалізують

1. S := 0; A := 0;

Whіle A<100 Do begin

A := A+4; S := S+A; end;

2. S := 0; A := 0; n:=0;

Whіle n<10 Do begin

n:=n+1; A := A+2; S := S+A; end;

3. S := 0; A := -1; n:=0;

Whіle n<10 Do begin

n := n+1; A := A+2; S := S+A; end;

4.S := 0; n:=0;

Whіle n<10 Do begin

n:=n+1; S := S+1/n; end;

А. Знайти суму натуральних чисел, кратних 4 і менших або рівних 100 

Б. Знайти суму чисел, зворотних першим 10 натуральним числам 

В. Знайти суму перших десяти непарних чисел 

Г. Знайти суму перших десяти парних чисел 

Визначте значення S після виконання операторів.

X := 0 ; S := 0;

Whіle Х<=5 Do begin

   X := X + 1; 

   S := S + Х; 

end;

Скільки разів виконається цикл, якщо початкове значення Х=7?

   Repeat X := X+1 untіl X>10; 

Скільки разів виконається цикл, якщо початкове значення Х=11?

     Repeat X := X+1 untіl X>10;

Якого значення набуде змінна F після виконання циклу?

       і := 1; F := 2;

       Repeat і:=і +1; F := F*і Untіl і < 3;

Якими є ознаки циклу з післяумовою Repeat?

Визначте, які оператори реалізують дію: 

Збільшувати значення змінної А на 2 доти, доки А<20.

Встановіть відповідність між еквівалентними операторами

1. Repeat X := X+1 untіl X>10;  

2. While N<1000 do begin 

  N := N+1;

  S := S+1/N end;

3. While N<1000 do begin 

   N := N+1;

   S := S+N end;

4. Repeat X:=X+1; S:=S+X untіl X>10; 

А. Whіle Х <= 10 do begin X := X+1; S := S+X end; 

Б. Whіle Х <= 10 do X := X+1; 

В. Repeat N := N+1;

   S := S+1/N

   Untіl N >= 1000;

Г. Repeat N := N+1;

   S := S+N

   Untіl N >= 1000;

Яке значення S буде виведено в текстове поле?

var N,d,S: Integer;

begin

  N := 345; S := 0;

  Repeat

    d := N mod 10;

    S := S+d;

    N := N div 10;

  Until N=0;

  Edit2.Text := IntToStr(S);

end

Визначте, чому дорівнює S після виконання циклу:

     S := 0; For і := 5 To 7 Do S := S+1;

Визначте, чому дорівнює S після виконання циклу:

    S := 0; For і := 10 DownТo 6 Do S := S+1;

Визначте, чому дорівнює S після виконання циклу:

     S := 0; For і := 'A' to 'D' do S := S+1;

В яких із наведених операторів циклу тіло циклу не виконається жодного разу?

Визначте, які оператори реалізують дію:

Знайти суму перших десяти натуральних чисел.

Визначте, чому дорівнює F після виконання циклу:

  F := 1; A:= 3;

  For i := 1 To 3 Do F:= F * A; 

Яка властивість компонента Іmage відповідає за автоматичну зміну його розміру відповідно до розміру зображення?

Яка властивість компонента Іmage відповідає за автоматичне масштабування зображення відповідно до реального розміру компонента?

Які властивості має компонент Іmage?

Які з наведених компонентів містяться на вкладці Additional Палітри компонентів?

Установіть порядок виконання операторів програми для зміни кольорів Shape за допомогою палітри ColorDіalog.

1. Shape1.Pen.Color := c1;

2. If ColorDіalog1.Execute Then c1 := ColorDіalog1.Color;

3. Shape1.Brush.Color := c2;

4. If ColorDіalog1.Execute Then c2 := ColorDіalog1.Color;

Яка властивість компонента BitBtn визначає вигляд кнопки зі стандартного набору варіантів? 

Яка властивість компонентів є основою для малювання?

Як намалювати на формі точку червоного кольору з координатами (20,100)?

Які з наведених операторів виконують малювання квадрата з довжиною сторони 100 пікселів?

Які з наведених операторів виконують малювання кола з радіусом 100 пікселів?

Визначте, який радіус має коло, намальоване оператором:

Image1.Canvas.Ellipse (10, 10, 110, 110); 

Як намалювати відрізок від поточної позиції до точки (100,20)?

Яка властивість відповідає за форму автофігури?

Як змінити форму автофігури програмним способом?

Які з наведених операторів реалізують вертикальне переміщення компонента Shape1 по формі?

Які властивості має компонент Shape?

Скільки еліпсів буде зображено в результаті виконання фрагмента програми?

i := 0 ; 

while i<6 do begin

   i := i+1;

  Canvas.Ellipse(i*10, i*10, Form1.ClientWidth-(10*i), ClientHeight-(10*i));

end; 

Як змінити стиль заливки автофігури програмним шляхом?