Font size
WorksheetsПрактикум(11ИМП)
Total questions: 24
Worksheet time: 14mins
Каким из перечисленных ключевых слов языка Паскаль обозначается целочисленный тип данных?
Integer
Real
Char
Boolean
Как можно обозначить в программе, написанной на языке Паскаль, переменную вещественного типа?
Longint
Boolean
Real
Integer
Определите, к какому типу относится значение ‘ ’.
Целочисленному
Логическому
Символьному
Вещественному
Что будет в результате?
print (Hello world!)
Hello world!
SyntaxError(ошибка)
Hello world
print(Hello world!)
var s, t: integer;
begin
readln(s);
readln(t);
if (s > 4) and (t > 4)
then writeln('YES')
else writeln('NO')
end.
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(10, 6); (7, 6); (–4, 3); (2, 9); (12, 7); (–11, 4); (–8, 13); (10, 9); (6, 5).
Сколько было запусков, при которых программа напечатала «NO»?
(a)
var s, t: integer;
begin
readln(s);
readln(t);
if (s > 8) and (t > 8)
then writeln('YES')
else writeln('NO')
end.
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(9, 10); (11, 5); (–2, 8); (9, 9); (2, 8); (–1, 3); (–4, 5); (10, 9); (4, –3).
Сколько было запусков, при которых программа напечатала «YES»?
(a)
var s, t: integer;
begin
readln(s);
readln(t);
if (s > 2) and (t < 5)
then writeln('YES')
else writeln('NO')
end.
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(–2, 3); (2, 5); (0, 3); (5, –3); (5, 4); (11, 4); (8, –6); (1, 7); (9, 1).
Сколько было запусков, при которых программа напечатала «NO»?
(a)
var s, t: integer;
begin
readln(s);
readln(t);
if (s > 3) or (t < 7)
then writeln('YES')
else writeln('NO')
end.
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(–1, 6); (2, 8); (0, 3); (9, –9); (4, 4); (2, 7); (8, –2); (7, 7); (4, 1).
Сколько было запусков, при которых программа напечатала «YES»?
(a)
var s, t: integer;
begin
readln(s);
readln(t);
if (s < 5) or (t > 5)
then writeln('YES')
else writeln('NO')
end.
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(2, 5); (5, 2); (4, 4); (2, –2); (3, 1); (8, 3); (9, –7); (7, 7); (4, 6).
Сколько было запусков, при которых программа напечатала «YES»?
(a)
var s, t: integer;
begin
readln(s);
readln(t);
if (s < 7) or (t > 5)
then writeln('YES')
else writeln('NO')
end.
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(9, 5); (11, 2); (4, 5); (7, –2); (4, 4); (7, 7); (1, –1); (3, 9); (2, 2).
Сколько было запусков, при которых программа напечатала «NO»?
(a)
var s,k: integer;
begin
readln(s);
readln(t);
if (s < 1) and (t < 2)
then
writeln ('YES')
else
writeln ('NO')
end.
Было выведено 9 запусков программы, при которых в качестве значений переменных вводились следующие пары чисел (s, t):
(3, 5); (4, 3); (4, −5); (0, 7); (0, −2); (−2, 1); (−2, 5); (−2, −4); (1, 2).
Сколько было запусков, при которых программа напечатала «YES»?
(a)
Дана программа на языке Паскаль
var a, b, c, min: real;
Begin
writeln ('Введите три числа');
readln (a, b, c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln ('min=', min);
end.
Что будет напечатано в результате выполнения программы при вводе чисел: 10, 15, 1?
min=1
1
ошибка
min=min
Дана программа на языке Паскаль
var a, b, c, min: real;
Begin
writeln ('Введите три числа');
readln (a, b, c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln ('min=', min);
end.
Что будет напечатано в результате выполнения программы при вводе чисел: 2, 10, 15?
min=2
2
ошибка
min=min
Дана программа на языке Паскаль
var a, b, c, min: real;
Begin
writeln ('Введите три числа');
readln (a, b, c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln ('min=', min);
end.
Какая блок-схема соответствует программе?
Определите, что будет напечатано в результате выполнения программы, записанной ниже на разных языках программирования.
180
240
210
7
Запишите подряд без пробелов и разделителей все числа, которые будут показаны на экране при выполнении вызова F(1). Числа должны быть записаны в том же порядке, в котором они выводятся на экран.
(a)
Определите, что будет напечатано в результате выполнения программы
150
140
160
170
Определите, что будет напечатано в результате выполнения программы
18
19
20
21
Определите, что будет напечатано в результате выполнения программы
4
16
5
32
Var s,k: integer;
Begin
s := 0;
for k := 3 to 7 do
s := s + 6;
writeln(s);
End.
Как на языке Паскаль будет записано условие: "число кратно 3 и не кратное 4"
(a mod 3 = 0) and (a mod 4 = 0)
(a mod 3 = 0) and (a mod 4<> 0)
(a mod 3 = 0) or (a mod 4 = 0)
(a div 3 = 0) and (a div 4 <> 0)
число больше 20 и заканчивается на 7
(a > 20) and (a mod 7 = 0)
(a > 20) or (a mod 10 = 7)
(a > 20) and (a mod 10 = 7)
(a < 20) and (a mod 10 = 7)
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while s < 80 do begin
s:=s+2*k;
k:=k+4;
end;
write(s);
end.
90
80
20
64
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while k < 12 do begin
s:=s+2*k;
k:=k+3;
end;
write(s);
end.
12
15
36
39
