Поделитесь своими знаниями, ответьте на вопрос:
Язык программирования Паскаль 2 вариант 1. Использование writeln устанавливает курсор в… 1) … конец строки 2) … начало следующей строки 3) … конец выведенного текста 4) … начало текущей строки 2. Каждое предложение программы заканчивается… 1) … новой строкой 2) … точкой с запятой 3) … оператором stop 4) … запятой 3. Написать фрагмент программы, выводящий следующее: 1 2 3 4 5 6 7 8 9 10 1) for loop := 1 to 10 do write( loop, ' ' ); 2) for loop := 1 to 10 do write( 'loop ' ); 3) for loop := 1 to 9 do write( loop, ' ' ); 4) for loop = 1 to 10 do write( loop, ' ' ); 4. Какое ключевое слово не относится к циклической программе? 1) If 2) While 3) For 4) Until 5. Какой оператор цикла с предпроверкой условия? 1) Repeat 2) While 3) For 4) Until 6. Написать предложение, определяющее числовой массив из целых чисел в количестве 20. 1) type numbers = ARRAY[1..20] of int; 2) type numbers = ARRAY[1..20] of integer; 3) type numbers := ARRAY[1..20] of integer; 4) var numbers = ARRAY[0..19] of int; 7. Написать предложение, присваивающее число 20 четвертому элементу массива mynumbers. 1) mynumbers[3] = 20; 2) mynumbers[20] := 4; 3) mynumbers[4] = 20; 4) mynumbers[4] := 20; 8. Как обозначается массив? 1) Array 2) Dim 3) Procedure 4) Set 9. Процедуры и функции – это: 1) операторы 2) подпрограммы 3) имена 4) переменные 10. Оператор ввода в Паскале: 1) INPUT 2) PRINT 3) READ 4) WRITE 11. Когда используется выражение, которое начинается со слова IF, то обязательно применяется слово: 1) GOTO 2) THEN 3) THAN 4) ELSE 12. Функция арктангенса в Паскале обозначается: 1) ATG(X) 2) ATAN(X) 3) ARCTAN(X) 4) ATN(X) 13. Какое по типу выражение вычисляется в условии оператора if? 1) числовое выражение 2) неравенство 3) равенство 4) логическое выражение 14. Что вычисляет функция SQR в Паскале? 1) остаток от деления 2) квадратный корень 3) квадрат числа 4) модуль числа 15. Разветвляющийся алгоритм – это: 1) многократное исполнение одних и тех же действий 2) присутствие в алгоритме хотя бы одного условия 3) набор команд, которые выполняются друг за другом 4) вс алгоритм для дополнительных функций 16. В представленном фрагменте программы тело цикла выполнится … d:=46 b:=11 WHILE d >= b DO d:= d - b 1) 4 раза 2) 3 раза 3) 2 раза 4) 1 раз
program n_1;
type
m= array [1..5] of integer;
var
a,a1,a2,a3,a4,a5,a6,a7,a8,a9: integer;
b,b1,b2,b3,b4,b5,b6,b7,b8,b9: m;
c,c1,c2,c3,c4,c5,c6,c7,c8,c9: m;
d,d,d2,d3,d4,d5,d6,d7,d8,d8: m;
begin
randomize;
b,b1,b2,b3,b4,b5,b6,b7,b8,b9:= random;
c,c1,c2,c3,c4,c5,c6,c7,c8,c9:= random;
d,d,,d2,d3,d4,d5,d6,d7,d8,d8:= random;
a:= (b+c+d) div 3;
a1:= (b1+c1+d1) div 3;
a2:= (b2+c2+d2) div 3;
a3:= (b3+c3+d3) div 3;
a4:= (b4+c4+d4) div 3;
a4:= (b5+c5+d5) div 3;
a6:= (b6+c6+d6) div 3;
a7:= (b7+7c+d7) div 3;
a8:= (b8+c8+d8) div 3;
a9:= (b9+c9+d9) div 3;
writeln ('Ученик-', a);
writeln ('Ученик 1-', a1);
writeln ('Ученик 2-', a2);
writeln ('Ученик 3-', a3);
writeln ('Ученик 4-', a4);
writeln ('Ученик 5-', a5);
writeln ('Ученик 6-', a6);
writeln ('Ученик 7-', a7);
writeln ('Ученик 8-', a8);
writeln ('Ученик 9-', a9)
end.