Тестування з теми "Алгоритми на Pascal"

Початковий курс пошукачів різноманітних алгоритмів

1. Який запис мовою Pascal логічна змінна logic1(типу Boolean) – true, якщо дійсна змінна х строго більше 1?

logic1:=(x>=1);
logic1:=frac(x>1);
logic1:=int(x>=1);
logic1:=not(x<=1).

2. Який запис мовою Pascal логічна змінна logic2(типу Boolean) – true, якщо дійсна змінна х знаходиться в строгих межах числового проміжку від 5 до 10?

logic2:=((x>5) and (x<10));
logic2:=((x>5) or (x<10));
logic2:=not((x>5) and (x<10));
logic2:=(not(x>5)) or (not(x<10)).

3. Який запис мовою Pascal логічна змінна logic3(типу Boolean) – true, якщо дійсна змінна х строго більше 8 та дійсна змінна х строго менше -8?

logic3:=((x>8) and (x<(-8)));
logic3:=not((x>8) and (x<(-8)));
logic3:=((x>8) or (x<(-8)));
logic3:=not((x>8) or (x<(-8))).

4. Який запис мовою Pascal логічна змінна logic4(типу Boolean) – true, якщо дійсна змінна х НЕ ДОРІВНЮЄ дійсній змінні у?

logic4:=(x<=>y);
logic4:=(x<>y);
logic4:=(x=|=y);
logic4:= not(x=\=y).

5. Який запис мовою Pascal логічна змінна logic5(типу Boolean) – true, якщо дійсна змінна х менше або дорівнює дійсній змінні у?

logic5:=(x>=y);
logic5:=(x|=y);
logic5:=(x<=y);
logic5:=(x=>y).

6. Який запис мовою Pascal присвоює цілій змінній k цілочисельне ділення n на z?

k:=(n div z);
k:=(n abs z);
k:=(n mod z);
k:=(n odd z).

7. Який запис мовою Pascal присвоює цілій змінній q остачу від ділення цілої змінної g на цілу змінну f?

q:=(g mod f);
q:=(g div f);
q:=(g abs f);
q:=(g int f).

8. Який запис мовою Pascal присвоює дійсній змінній q суму подвоєного квадратa дійсної змінної х з потроєнним квадратним коренем від дійсної змінної у?

q:=2*x+x+3*sqrt(y);
q:=2+x*x+3+sqrt(y);
q:=2+x+x+3+sqrt(y);
q:=2*x*x+3*sqrt(y).

9. Який запис мовою Pascal є циклом з лічильником та кроком -1?

while k<=23 do y:=3*k+n;
if (10*b = 100) and (b + k = 100) then writeln(b);
for t:=200 to 2 downto 1 do d[t]:= d[t-1]+1+2*t;
for t:=2 to 200 do d[t]:= d[t-1]+1+2*t; end.

10. Який запис мовою Pascal є циклом з передумовою та кроком -3?

m:=300; while m<=51 do begin m:=m-3; S:=S+m; end.
for t:=200 to 2 downto 3 do d[t]:= d[t-1]+1+3*t;
m:=72; repeat m:=m-3; S:=S+m; until m>=51;
m:=80; while m<=100 do begin m:=m+3; S:=S+m; end.

11. Який запис мовою Pascal є циклом з післяумовою та кроком -3?

m:=62; repeat m:=m-3; S:=S+m; until m<=51;
m:=62; repeat m:=m+3; S:=S+m; until m>=81;
m:=80; while m<=100 do begin m:=m+3; S:=S+m; end.
m:=80; while m<=51 do begin m:=m-3; S:=S+m; end.

12. Який запис мовою Pascal є повним розгалуженням?

if m>0 repeat d:=random(m) else d:=random(2*m);
if m>0 while d:=random(m) else d:=random(2*m);
if m>0 then d:=random(m) else d:=random(2*m);
if m>0 until d:=random(m) else d:=random(2*m).