Lazarus: ПР12 Проеки з циклами

Додано: 27 травня
Предмет: Інформатика, 8 клас
16 запитань
Запитання 1

Цикл - це алгоритмічна структура при якій

варіанти відповідей

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

послідовність дій виконується в залежності від виконання умови

дії виконуються одна за одною без пропусків та повторень

Фрагмент алгоритму, у якому одна або декілька команд можуть виконуватися більше, ніж один раз

Запитання 2

Види циклів?

варіанти відповідей

з лічильником

з передумовою

з післяумовою

з повторенням

з розгалудженням

з умовою

Запитання 3

Коли в тілі циклу можна опустити операторні дужки begin .... end;

варіанти відповідей

коли в тілі циклу лише одна команда

коли в тілі циклу 2- і більше команди

будь коли, вони не мають значення

ніколи

Запитання 4

Цикл, тіло циклу якого виконується доти, доки виконується умова, називається ...

варіанти відповідей

цикл з умовою

цикл з післяумовою

цикл

цикл з передумовою

Запитання 5

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


варіанти відповідей

цикли з умовою

цикли з лічильником

цикли з передумовою

цикли з післяумовою

Запитання 6

Оператор циклу з післяумовою

варіанти відповідей

While <умова> do <оператор>;

Repeat  <тіло циклу> until <умова>;

For I : = N to K do <оператор>;

if <умова> then <оператор>;  

Запитання 7

Оператор циклу з передумовою

варіанти відповідей

While <умова> do <оператор>;

Repeat  <тіло циклу> until <умова>;

For I : = N to K do <оператор>;

if <умова> then <оператор>;  

Запитання 8

Який оператор є оператором циклу з параметром в Lazarus?

варіанти відповідей

 For-to-do

 While-do

 Repeat-until

 If-Then-else

Запитання 9

Обчислити вираз, де початкове та кінцеве натуральне число під коренем визначає користувач.

Який із наведених кодів проектів реалізує розвязання задачі?

варіанти відповідей

procedure TForm1.Button1Click(Sender: TObject);

  var a,b,c,e:real;

  function f(x:real):real; begin  f:=…………..; end;

begin

   a:=strtofloat(edit1.Text); b:=strtofloat(edit2.Text);

   e:=strtofloat(edit3.Text);

   while b-a>e do begin c:=(a+b)/2;

   if  f(a)*f(c)>0 then a:=c else b:=c;  end;

   label5.Caption:=label5.Caption+floattostrf(c,fffixed,7,3);

end;

procedure TForm1.Button1Click(Sender: TObject);

   var m,n:integer;

begin

   m:=strtoint(edit1.Text);

   n:=strtoint(edit3.Text);

   repeat if m>n then m:=m-n else n:=n-m;

   until m=n;

   label3.Caption:=label3.Caption+inttostr(m);

end;  

procedure TForm1.Button1Click(Sender: TObject);

   var x,y,a,b,h: real; n,i:integer; s:string;

begin

   n:=strtoint(edit1.Text);   a:=strtofloat(edit2.Text);

   b:=strtofloat(edit3.Text);     h:=(b-a)/n; x:=a;

   for i:=1 to n do begin   y:=……………;

     s:=floattostrf(x,fffixed,6,2)+'  '+ floattostrf(y,fffixed,6,2);

     label5.Caption:=label5.Caption+chr(13)+s;

     x:=x+h; end;

end;  

procedure TForm1.Button1Click(Sender: TObject);

   var s: real; n,k,i:integer; f:string;

begin

   n:=strtoint(edit1.Text);   k:=strtoint(edit2.Text);   s:=0;

   for i:=n to k do s:=s+sqrt(i);

   label3.Caption:=’Cума=’+floattostrf(s, fffixed,7,2);

 end;  

Запитання 10

Знаходження НСД(m,n) – найбілшого спілного дільника 2х натуральних чисел m і n.  m і n - вхідні дані – визначає користувач. Алгоритм Евкліда.

Який із наведених кодів проектів реалізує розвязання задачі?

варіанти відповідей

procedure TForm1.Button1Click(Sender: TObject);

  var a,b,c,e:real;

  function f(x:real):real; begin  f:=…………..; end;

begin

   a:=strtofloat(edit1.Text); b:=strtofloat(edit2.Text);

   e:=strtofloat(edit3.Text);

   while b-a>e do begin c:=(a+b)/2;

   if  f(a)*f(c)>0 then a:=c else b:=c;  end;

   label5.Caption:=label5.Caption+floattostrf(c,fffixed,7,3);

end;

procedure TForm1.Button1Click(Sender: TObject);

   var m,n:integer;

begin

   m:=strtoint(edit1.Text);

   n:=strtoint(edit3.Text);

   repeat if m>n then m:=m-n else n:=n-m;

   until m=n;

   label3.Caption:=label3.Caption+inttostr(m);

end;  

procedure TForm1.Button1Click(Sender: TObject);

   var x,y,a,b,h: real; n,i:integer; s:string;

begin

   n:=strtoint(edit1.Text);   a:=strtofloat(edit2.Text);

   b:=strtofloat(edit3.Text);     h:=(b-a)/n; x:=a;

   for i:=1 to n do begin   y:=……………;

     s:=floattostrf(x,fffixed,6,2)+'  '+ floattostrf(y,fffixed,6,2);

     label5.Caption:=label5.Caption+chr(13)+s;

     x:=x+h; end;

end;  

procedure TForm1.Button1Click(Sender: TObject);

   var s: real; n,k,i:integer; f:string;

begin

   n:=strtoint(edit1.Text);   k:=strtoint(edit2.Text);   s:=0;

   for i:=n to k do s:=s+sqrt(i);

   label3.Caption:=’Cума=’+floattostrf(s, fffixed,7,2);

 end;  

Запитання 11

Для функції y=f(x) знайти n значень x і y для xÎ[a,b]. n, a, b –вхідні дані – визначає користувач.

Який із наведених кодів проектів реалізує розвязання задачі?

варіанти відповідей

procedure TForm1.Button1Click(Sender: TObject);

  var a,b,c,e:real;

  function f(x:real):real; begin  f:=…………..; end;

begin

   a:=strtofloat(edit1.Text); b:=strtofloat(edit2.Text);

   e:=strtofloat(edit3.Text);

   while b-a>e do begin c:=(a+b)/2;

   if  f(a)*f(c)>0 then a:=c else b:=c;  end;

   label5.Caption:=label5.Caption+floattostrf(c,fffixed,7,3);

end;

procedure TForm1.Button1Click(Sender: TObject);

   var m,n:integer;

begin

   m:=strtoint(edit1.Text);

   n:=strtoint(edit3.Text);

   repeat if m>n then m:=m-n else n:=n-m;

   until m=n;

   label3.Caption:=label3.Caption+inttostr(m);

end;  

procedure TForm1.Button1Click(Sender: TObject);

   var x,y,a,b,h: real; n,i:integer; s:string;

begin

   n:=strtoint(edit1.Text);   a:=strtofloat(edit2.Text);

   b:=strtofloat(edit3.Text);     h:=(b-a)/n; x:=a;

   for i:=1 to n do begin   y:=……………;

     s:=floattostrf(x,fffixed,6,2)+'  '+ floattostrf(y,fffixed,6,2);

     label5.Caption:=label5.Caption+chr(13)+s;

     x:=x+h; end;

end;  

procedure TForm1.Button1Click(Sender: TObject);

   var s: real; n,k,i:integer; f:string;

begin

   n:=strtoint(edit1.Text);   k:=strtoint(edit2.Text);   s:=0;

   for i:=n to k do s:=s+sqrt(i);

   label3.Caption:=’Cума=’+floattostrf(s, fffixed,7,2);

 end;  

Запитання 12

Маємо рівняння f(x)=0, відомо що корень рівняння знаходиться в інтервалі x∈[a,b]. Треба знайти корень з точністю е.

Який із наведених кодів проектів реалізує розвязання задачі?

варіанти відповідей

procedure TForm1.Button1Click(Sender: TObject);

  var a,b,c,e:real;

  function f(x:real):real; begin  f:=…………..; end;

begin

   a:=strtofloat(edit1.Text); b:=strtofloat(edit2.Text);

   e:=strtofloat(edit3.Text);

   while b-a>e do begin c:=(a+b)/2;

   if  f(a)*f(c)>0 then a:=c else b:=c;  end;

   label5.Caption:=label5.Caption+floattostrf(c,fffixed,7,3);

end;

procedure TForm1.Button1Click(Sender: TObject);

   var m,n:integer;

begin

   m:=strtoint(edit1.Text);

   n:=strtoint(edit3.Text);

   repeat if m>n then m:=m-n else n:=n-m;

   until m=n;

   label3.Caption:=label3.Caption+inttostr(m);

end;  

procedure TForm1.Button1Click(Sender: TObject);

   var x,y,a,b,h: real; n,i:integer; s:string;

begin

   n:=strtoint(edit1.Text);   a:=strtofloat(edit2.Text);

   b:=strtofloat(edit3.Text);     h:=(b-a)/n; x:=a;

   for i:=1 to n do begin   y:=……………;

     s:=floattostrf(x,fffixed,6,2)+'  '+ floattostrf(y,fffixed,6,2);

     label5.Caption:=label5.Caption+chr(13)+s;

     x:=x+h; end;

end;  

procedure TForm1.Button1Click(Sender: TObject);

   var s: real; n,k,i:integer; f:string;

begin

   n:=strtoint(edit1.Text);   k:=strtoint(edit2.Text);   s:=0;

   for i:=n to k do s:=s+sqrt(i);

   label3.Caption:=’Cума=’+floattostrf(s, fffixed,7,2);

 end;  

Запитання 13

Обчислити вираз, де початкове та кінцеве натуральне число під коренем визначає користувач.

Яке з приведених вікон відповідає інтерфейсу розвязання задачі?

варіанти відповідей
Запитання 14

Знаходження НСД(m,n) – найбілшого спілного дільника 2х натуральних чисел m і nm і n - вхідні дані – визначає користувач. Алгоритм Евкліда.

Яке з приведених вікон відповідає інтерфейсу розвязання задачі?

варіанти відповідей
Запитання 15

Для функції y=f(x) знайти n значень x і y для x∈[a,b]. n, a, b –вхідні дані – визначає користувач.

Яке з приведених вікон відповідає інтерфейсу розвязання задачі?

варіанти відповідей
Запитання 16

Маємо рівняння f(x)=0, відомо що корень рівняння знаходиться в інтервалі x∈[a,b]. Треба знайти корень з точністю е.

Яке з приведених вікон відповідає інтерфейсу розвязання задачі?

варіанти відповідей

Створюйте онлайн-тести
для контролю знань і залучення учнів
до активної роботи у класі та вдома

Створити тест