РЕШИТЬ ТЕСТ
Задание 1
Какие из приведённых утверждений верны?
Выберите несколько из 4 вариантов ответа:
1) a % b = b // a 2) math.cos (1) = math.cos (1 + 2 * math.pi)
3) a % b = a - (a // b) * b 4) math.sin (1) = math.sin (1 + 180)
Задание 2
Установите соответствие между функциями и их значениями, если x = 1.69.
Укажите соответствие для всех 4 вариантов ответа:
1) 1 __ sqrt (x)
2) 1.69 __ abs (x)
3) 1.3 __ int (x)
4) 2 __ round (x)
Задание 3
Функция abs (x) вернула значение 4. Укажите возможные значения x.
Выберите несколько из 4 вариантов ответа:
1) 2 2) 4 3) -4 4) 16
Задание 4
Установите соответствие между данными и их типом?
Укажите соответствие для всех 6 вариантов ответа:
1) int __ int (4 / 3)
2) float __ round (2.3)
__ 2 / 2
__ abs (6 / 3)
__ 6 % 4 / 2
__ 3 // 2
Задание 5
Сопоставьте значения данных и их типы.
Укажите соответствие для всех 6 вариантов ответа:
1) int __ -10
2) float __ 4 / 2
__ 0.2e+01
__ 3 + 2
__ 0
__ 2
Задание 6
Запишите результат операции -9 // 5.
Задание 7
Как называются алгоритмы, в которых команды выполняются последовательно в том порядке, в котором они записаны?
Выберите один из 4 вариантов ответа:
1) Рекурсивные 2) Линейные 3) Разветвляющиеся 4) Циклические
Задание 8
В каком модуле описано большинство математических функций?
Выберите один из 4 вариантов ответа:
1) random 2) sys 3) math 4) qt
Задание 9
Как называются модуль, в котором описаны функции генерации случайных чисел?
Составьте слово из букв:
RNMADO ->
Задание 10
Запишите вызов функции квадратного корня от переменной a при условии, что ранее была записана инструкция import math. ответ запишите без пробелов.
Program yravnenie;
Var
a,b,c,D,x1,x2,p,q:Real;
Begin
Repeat
Write('a= ');
Readln(a);
if a=0 then writeln('Error: a=0. Enter another value');
Until a<>0;
Write('b= ');
Readln(b);
Write('c= ');
Readln(c);
p:=b/a;
q:=c/a;
D:=Sqr(p/2)-q;
If D>0 then
begin
Writeln('x1 = ',-p/2-Sqrt(D):0:5);
Writeln('x2 = ',-p/2+Sqrt(D):0:5);
end
else
If D=0 then
Writeln('x1 = x2 = ',-p/2:0:5)
else
begin
Writeln('x1 = ',-p/2:0:5,'-i*',Sqrt(-D):0:5);
Writeln('x2 = ',-p/2:0:5,'+i*',Sqrt(-D):0:5);
end;
Readln;
End.
Во всех программах у меня будет использоваться процедура swap:
procedure swap(a: ^real; b: ^real);
var
t: real;
begin
t := a^;
a^ := b^;
b^ := t;
end;
swap(x,y) - меняет местами значения x и y.
1.
var
A: array[1..100] of real;
i, j, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for j := 1 to (N div 2) - 1 do
for i := 1 to (N div 2) - j do
swap(A[i], A[i + 1]);
for j := 1 to (N div 2) - 1 do
for i := (N div 2) + 1 to N - j do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.
2.
var
A: array[1..100] of real;
i, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for i := 1 to N - 1 do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.
3.
var
A: array[1..100] of real;
i, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for i := N downto 2 do
swap(A[i], A[i - 1]);
for i := 1 to N do
writeln(A[i])
end.