8_Тест «Общие сведение о языке программирования Паскаль»
Вариант 1
1. Какие из следующих последовательностей символов можно считать операторами присваивания?
б) a+3:=5
в) a:=2a
г) b:=b+3
д) k:=k+1
2. Укажите ложное высказывание:
б) Нельзя присваивать программам имена зарезервированных языком программирования слов (begin, end, program)
в) Имя программы может содержать любое количество любых символов
3. Условия, состоящие из одной операции сравнения, называются …
б) линейными
в) простыми
г) сложными
4. Как можно представить структуру программы на языке Паскаль?
Program
Begin
End
б) Program
End
Begin
в) Begin
Program
End
5. Какое из перечисленных слов не относится к служебным словам языка
программирования Паскаль?
б) Or
в) Begin
г) Read
6. Какие символы можно использовать при записи программы на языке Паскаль?
б) *
в) F
г) Г
д) ы
7. Алгоритм, записанный на языке программирования, называется …
б) задачей
в) программой
г) моделью
8. Кто является разработчиком языка программирования Паскаль?
б) Блез Паскаль
в) Чарльз Бэббидж
г) Никлаус Вирт
9. Укажите допустимые имена в языке Паскаль:
б) sUmmA
в) _F
г) ЗЖ2
д)end
10. Установите соответствие:
А) -32 768 … 32 768
1. char
Б) true и false
2. boolean
В) Произвольный символ алфавита
3. string
Г) Последовательность не более чем из 255 символов
4. integer
1. (A+B+C)&(неA&B&неC)= A&неA&B&неC+B&неA&B&неC+C&неA&B&неC=0+неA&B&неC+0=неA&B&неC
2. (A+B)&(неB+A)&(неC+B)=(A&неB+A&A+B&неB+B&A)&(неC+B)= (A&неB+A+0+B&A)&(неC+B)= (A&неB+A+B&A)&(неC+B)=A&неB&неC+A&неB&B+A&неC+A&B+B&A&неC+B&A*B= A&неB&неC+0+A&неC+B&A&неC+A&B+A&B=A&неB&неC+A&неC+B&A&неC+A&B=A&неC(B+1)+ A&B&(неC+1)=A&неC+A&B= A&(неC+B)
3. (1+(A+B))+((A+C)&1)=1+((A+C)&1)= 1+(A&1+c&1)= 1+A+C=1
4. (A&B&неC)+(A&B&C)+не(A+B)= (A&B&неC)+(A&B&C)+неA&неB= (A&B)&(неC+C)+неA&неB=A&B+неA&неB= A~B
5. (A+B+C)&не(A+неB+C)= (A+B+C)&неA&B&неC=A&неA&B&неC+B&неA&B&неC+C&неA&B&неC=0+неA&B&неC+0=неA&B&неC
1)
var a,b,c,d:real;
begin
read(a,b);
c:=(a+b)/2;
d:=2*a*b;
if a>b then begin
a:=d;
b:=c;
end;
if a<b then begin
a:=c;
b:=d;
end;
writeln(a,' ',b);
end.
2)
var a,b:integer;
begin
read(a,b);
if (a<1) or (a>31) then writeln(' день введен неправильно');
if (b<1) or (b>12) then writeln(' месяц введен неправильно');
end.
3)
var a,b,c:real;
begin
read(a,b,c);
if (a>b)and(a>c)then writeln(a);
if (b>a)and(b>c)then writeln(b);
if (c>b)and(c>a)then writeln(c);
end.