с информатикой
А1. Что из нижеперечисленного не входит в алфавит языка Паскаль?
1) латинские строчные и прописные буквы,
2) арабские цифры,
3) русские строчные и прописные буквы,
4) знак подчёркивания.
А2. Какая последовательность символов может служить именем программы в языке Паскаль?
1) _test, 2) nos_56, 3) 56_ttt, 4)Игорь78.
А3. Обозначение целочисленного типа данных в языке Паскаль.
1) integer, 2) real, 3) char, 4) string.
А4. В результате выполнения фрагмента программы:
a:=3,14;
writeln (frac(a));
на печать будет выведено:
1) 14, 2) 3.14, 3) 3, 4) 3,14.
А5. В каком из условных операторов допущена ошибка?
1) if b=0 then writeln ( ‘Деление не возможно‘);
2) if a
3) if a>b then max:=a else max:=b;
4) if (a>b) and (b>0) then c:=a+b.
А6. В результате выполнения фрагмента программы
a:=5;
b:=20;
a:=a-b/2;
if a>b then c:=a+b else c:=b-a;
переменная с примет значение:
1) 25, 2) 14,5, 3) -15, 4) -14,5.
А7. Цикл во фрагменте программы :
a:=0.5;
s:=0;
i:=0;
repeat i:=i+1; b:=1/i; s:=s+a; until b
выполнится
1) 0 раз, 2) 2 раза, 3) 1 раз, 4) 4 раза.
А8. С оператора while в языке Паскаль программируется:
1) цикл - ПОКА, 2) цикл с параметром, 3) цикл – ДО, 4) все вышеперечисленные.
В заданиях группы Б представить полное решение или записать ответ.
Б1. Определите значение переменной b после выполнения фрагмента программы:
a:=4;
b:=3;
a:=12/a*b;
b:=a+b*2.
16/2=8 (Остаток 0)
8/2=4 (Ос. 0)
4/2=2 (ост 0)
2/2=1(ост. 0)
32(10)=100000(2)
53/2=26(остаток 1)
26/2=13(остаток 0)
13/2=6(осаток 1)
6/2=3(Остаток 0)
3/2=1(остаток)1
53(10)=110101(2)
80/2=40(остаток 0)
40/2=20(остаток 0)
20/2=10(остаток 0)
10/2=5(остаток 0)
5/2=2(остаток 1)
2/2=1 (остаток 0)
80(10)=1010000(2)
96/2=48(остаток 0)
48/2=24(остаток 0)
24/2=12(остаток 0)
12/2=6(остаток 0)
6/2=3(остаток 0)
3/2=1(остаток 1)
96(10)=1100000
128/2=64(остаток 0)
64/2=32(остаток 0)
32/2=16(остаток 0)
16/2=8(Остаток 0)
8/2=4(остаток 0)
4/2=2(остаток 0)
2/2=1(остаток 0)
128(10)=10000000(2)
var
r,x,y:real;
c:string;
begin
Write('Введите R: '); Read(r);
Write('Введите координаты x и y: '); Read(x,y);
if sqr(x)+sqr(y)=sqr(r) then c:='Точка лежит на окружности'
else c:='Точка не лежит на окружности';
Writeln(c)
end.
Тестовые решения:
Введите R: 2
Введите координаты x и y: 0 2
Точка лежит на окружности
Введите R: 2
Введите координаты x и y: -1.5 0.7
Точка не лежит на окружности
Введите R: 2
Введите координаты x и y: 1 1
Точка не лежит на окружности
Введите R: 2
Введите координаты x и y: 3 0
Точка не лежит на окружности
Блок-схема во вложении