Для «дружественного» ввода данных наиболее предпочтительно использовать операторы
(*ответ*) Write ('Введите значения a b= ');Readln(a,b)
Write ('Введите значения a b=');Read (a,b)
Write('Введите значения a,b=');Read (a,b)
Write ('Введите значения a,b=');Readln (a,b)
Для «дружественного» ввода значений двумерного массива используются вложенные циклы с параметрами i и j, телом которых является совокупность операторов
(*ответ*) Write ('Введите значение A[',i,',',j,']=');Readln (A[i,j])
Write ('Введите значения A[,'i, j', ]=');Readln (A[i,j])
Write ('Введите значения A[,.i,',',j' ]=');Readln (A[i,j])
Write ('Введите значения A[',i,j, ']='); Read (A[i,j])
Для выполнения функции ReadKey следует включить в программу стандартный модуль
(*ответ*) CRT (USES CRT)
SYSTEM (USES SYSTEM)
STRINGS (USES STRINGS)
DOS (USES DOS)
Для досрочного выхода из процедуры надо использовать
(*ответ*) команду EXIT
оператор END.(с точкой)
оператор IF<условие> THEN GOTO <метка вне процедуры>
оператор GOTO <метка>
Для использования стандартных функций COS(x), SIN(x), LN(x), EXP(x) и др. необходимо подключить стандартный модуль
(*ответ*) не надо подключать
CRT
DOS
SISTEM
Если в заголовке описания процедуры имеется параметр-переменная, то при вызове процедуры на ее место может подставляться: 1) процедура; 2) константа; 3) простая переменная; 4) массив
(*ответ*) 3, 4
2, 3
2, 4
1, 3
Заголовком процедуры, в котором имеются ошибки, является
(*ответ*) PROCEDURE PRIMER1(A:Real;R:REAL:L:Integer;VAR A,C:Real)
PROCEDURE PROCEDUR1(A1:Real:VAR B1,S:Integer;VAR C:Real)
PROCEDURE PRIM_PROCEDUR1_(A1:Real;GERL:Integer;VAR C:Real)
PROCEDURE PRIM_P_R13 (A1,ZB1:Real;L:Integer;VAR C:Real)
Заголовком процедуры, не имеющим ошибок, является
(*ответ*) PROCEDURE PRIM_PROC1(A1A,B1:Real;L:Integer;VAR A,C:Real)
PROCEDURE PRIM_PROC1(A1:Real:B1:Real;L:Integer;VAR C:Real)
PROCEDURE_PRIM_PROC1(A1:Real;BZ:Real;L:Integer;VAR C:Real)
PROCEDURE PRIM_PROC1(A1,ZBURA1;Real;L:Integer;VAR C:Real)
Заголовком функции, не имеющим ошибок, является
(*ответ*) FUNCTION F1(N,M,L:INTEGER;S:REAL;K:INTEGER):STRING
FUNCTION FA(N:INTEGER;S:REAL:P;K;J:INTEGER):INTEGER
FUNCTION FA(N:INTEGER:S:REAL:P,K,J:INTEGER):CHAR
FUNCTION FA(N:INTEGER;S:REAL:P,K,J:INTEGER):REAL
Заголовок процедуры имеет вид: PROCEDURE PRIMER_A_B (A,B,C:Real; Var X,Y:Real); Правильный вызов процедуры имеет вид
(*ответ*) PRIMER_A_B (28.9,12.3,46.7,X0,Y0)
PRIMER_A_B (A1,A2,A3,X0,Y0:Real)
PRIMER_A_B (A1;B1;C1,X1,Y1)
PRIMER_A_B (44.3,30.1,65.8;X0,Y0)
Заголовок процедуры имеет вид: PROCEDURE PRIMER_SUM (I,J,K:Integer;Var X,Y:Real); Вызов процедуры, не содержащий ошибок, имеет вид
(*ответ*) PRIMER_SUM (28,12,46,X0,Y0)
PRIMER_SUM (31,52,3,0,20)
PRIMER_SUM (4.2,1,12,I1,J1)
PRIMER_SUM (44,30,65;X0,Y0)
Заголовок процедуры имеет вид: PROCEDURE PRIMER_SUMMA (I,J,K:Real;Var X,Y:Real); Корректный вызов процедуры - это
(*ответ*) PRIMER SUMMA (2.8,12,46.5,A,B)
D) PRIMER_SUMMA (A1,A2,A3,1.2,3.9)
PRIMER_SUMMA (X1,Y1,Z1;I1,J1)
PRIMER SUMMA (44,30,B5,X0,10)