Lazarus: ПР12 Проеки з циклами | Тест з інформатики

Запитання 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 і n. m і n - вхідні дані – визначає користувач. Алгоритм Евкліда.

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

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

Запитання 15

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

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

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

Запитання 16

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

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

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