WWW.DOCX.LIB-I.RU
БЕСПЛАТНАЯ  ИНТЕРНЕТ  БИБЛИОТЕКА - Интернет материалы
 

«Матыбаев Бекен ВТ-212 $$$ 1 A Язык программирования паскаль был создан в каком году A)1970 B)1856 C)1999 D)1698 E)1989 $$$ 2 Е Что не входит в знаки ...»

Матыбаев Бекен ВТ-212

$$$ 1 A

Язык программирования паскаль был создан в каком году

A)1970

B)1856

C)1999

D)1698

E)1989

$$$ 2 Е Что не входит в знаки арифметических операций на языке паскаль

А)+

В)-

С)*

D)/

Е):=

$$$ 3 A

Постоянные величины, значения которых не меняются в процессе выполнения программы, называются

А)константами

В)операторами

С)величинами

D)алгоритмами

Е)массивами

$$$ 4 B

В блок схеме ромб задается

A)заданиеB)условиеC)операторD)дают коментарии

E)выводят результат

$$$ 5 A

В конце подпрограммы обязательно пишется оператор:

А)endВ)stopС)gotoD)returnЕ)repeat-until

$$$ 6 D

Укажите как записывается квадратный корень на языке паскаль

А)ABS(X)

В)SQR(X)

С)EXP(X)

D)SQRT(X)

Е)PRED(X)

$$$ 7 D

Укажите операцию над множествами, результатом которой является первое множество, дополненное недостающими элементами из второго множества

А)Включение

В)Разность

С)Пересечение

D)Объединение

Е)IN

$$$ 8 ЕКакая область памяти используется для хранения локальных переменных и параметров?

А)оперативная память

В)Динамическая память

С)Сегмент данных

D)Внешняя память

Е)Стек

$$$ 9 АЗначениями указателей являются

А)Адреса переменных

В)Переменные

С)Указатели

D)Массивы

Е)Адреса указателей

$$$ 10 А Раздел описания переменных в программе начинается со служебного слова

A)varВ)integer

С)char

D)real

Е)read

$$$ 11 D

Логические переменные имеют значения а:=true и b:=true. Чему равно значение а and bА)зависит от времени выполнения

В)falseС) не определено

D)trueЕ)зависит от реализации компилятора

$$$ 12 В Это оператор служит для вычисления значений выражения и присваивания его переменной, расположенной слева от символа :=. Оператор имеет вид: A:=B

А)оператор ввода

В)оператор присваивания

С)оператор с условием

D)оператор значения

Е)оператор определения

$$$13 АКак произвести случайную выборку числа в диапазоне от «0» до «х»

А)Random(x)

В)Random*(x)

С)Random

D)Randomize(x)

Е)Random-(х)

$$$14 D

Выберите правильный вариант проверки последовательности a1,...an на возрастание (переменной PR присвоить 1, если последовательность возрастающая, в противном случае PR присвоить 0 )А)PR:=1;FOR I:=TO N DO

IF A[I]>A[I+1] THEN break;

В)FOR I:=1 TO N-1 DO

IF A[I]>A[N+1] THEN begin PR:=0; break;end;

С)PR:=1; FOR I:=1 TO N DO

IF A[I]>A[I+1] THEN break;

D)PR:=1; FOR I:=1 TO N DO

IF A[I]>A[I+1] THEN

Begin PR:=0; break;END;

Е)PR:=1; FOR I:=1 TO N DO

IF A[I]>A[I+1] THEN PR:=0;break;

$$$ 15 Е

Что выполняет следующий фрагмент программы?

Var S:char; k:integer;

Repeat

Read (S);

If NOT (S IN[‘*’,’-‘]) then





Begin

If S IN [‘0’..’9’] then k:=k+1;

Write(S);

Until(S=’.’);

А)Выдает на печать количетсво цифр

В)Печатает количество цифр от 0 до 9

С)Подсчитывает количество цифр и выдает на печать все символы

D)Выдает на печать знаки операции и количество цифр

Е)Подсчитывает количество цифр и печатает все символы кроме символов '*','-'.

$$$ 16 D

Операторы обеспечивают программу исходными данными, необходимыми для решения задачи, и осуществляют вывод результатов.

А)операторы ввода

В)операторы вывода

С)операторы начало-конец

D)операторы ввода-вывода

Е)операторы условия-решения

$$$ 17 С

Укажите правильный вариант ответа для решения следующей задачи:

Построить прямоугольник, у которого координаты левого верхнего угла (10,10) и правого нижнего угла (150,100)

А)Rectangle (10,10,100,150)

В) Rectangle (100,10,10,150)

С) Rectangle (10,10,150,100)

D) Rectangle (10,100,10,150)

Е) Rectangle (100,10,150,100)

$$$ 18 ВУкажите правильный вариант ответа при вычислении выражения [5..9,17..20]*[8..18]-[8,9]

А)[5..9]

В)[17,18]

С)[7..9]

D)[15..20]

Е)[5..9,19,20]

$$$ 19 Е

Что будет напечатано следующим фрагментом программы?

Var x,y:^integer;

beginnew(y); y^:=3; y^:=2*y^+sqr(y^); x:=y; write(x^+10); Dispose(x);

End;

A) 0

B) y+10

C) 15

D) x^+10

E) 25

$$$ 20 А

Что будет напечатано следующим фрагментом программы?

Var x,y:^integer;

beginnew(x); x^:=15; y:=x; write(y^); writeln(x^+10);

Dispose(x);

End;

A)15 25

B) y^ x^+10

C)y^25

D)x 25

E)15 x^+10

$$$ 21 С

Что будет напечатано следующим фрагментом программы?

VarF:file of char; I,n:integer; a:char;

Begin

Assign(f,’f.txt’);

Reset (f);

N:=filesize(f);

For i:=n-1 down to 0 do

Begin

Seek(f,i);

Read(f,a);

Write(a);

End;

End.

A)Выдает значение равное а

B)Печатает символы файла

C)Печатает символьный файл в обратном порядке D)Печатает последний символ файла

E)Печатает первый символ файла

$$$ 22 Е

Процедура Close при работе с файлом позволяет:

А) перезаписать файл

В) не применяется

С) стереть файл

D) присвоить имя файловой переменной

Е) закрыть файл

$$$ 23 С

Укажите результат 48 mod (2+3) div 4

A) 2

B) 11

C) 0

D) 8

E) 10

$$$ 24 Е

Что вычисляет следующая программа

Program pr;

Const n=7

Var a: array[1…n,1…n] of integer;

p,k,j,i: integer;

beginfor i:=1 to n do

for j:= 1 to n do

read(A[I,j]);

p:=1; k:=0;

for i:=1 to n-1 do

for j:=j+1 to n do

if (A[I,j] mod 2=0) and (A[I,j]>0) then

beginp:=p*A[I,j]

inc(k);

end;

writeln(‘p=’,p,’k=’,k);

end.

A)Произведение и количество положительных, четных элементов массива А расположенных на главной диагонали

B)Произведение и количество положительных, четных элементов массива А расположенных ниже главной диагонали

C)Произведение и количество положительных, четных элементов массива А расположенных выше главной диагонали

D)Произведение и количество положительных, четных элементов массива А расположенных выше побочной диагонали

E)Произведение и количество положительных, четных элементов массива А расположенных выше главной диагонали

$$$ 25 А

Укажите результат исполнения программы при значениях n=5;m=3;

VarN,m: integer;c1,c2,c3:Longint;c:real;

Procedure fact (n: integer; var p: longint);

VarI: integer;

Begin

P:=1;

For i:=1 to n do

P:=p*I;

End;

Begin

Readln(n,m);

Fact (n,c1);

Fact(n-m,c3);

C:=c1/(c2*c3);

Writeln(c);

End.

A)10B)CC)0.1D)C1/(c2*c3)

E)120$$$ 26 С

Укажите результат исполнения программы при значениях n=3; m=2

VarN,m integer; c1,c2,c3: Longint; c:real;

Procedure fact (n: integer; var p: longint);

VarI: integer;

Begin

P:=1;

For i:=1 to n do

P:=p*I;

End;

Begin

Readln (n,m);

Fact (n,c1);

Fact (m,c2);

Fact (n-m,c3);

Writeln(c);

End.

A)c1/(c2*c3);

B)1/3

C)3D)6E)C$$$ 27 D

Какая фигура может быть нарисована заданием следующей процедуры: Rectangle (10,20,20,40)

A)Параллелепипед

B)Треугольник

C)Прямая

D)Прямоугольник

E)Квадрат

$$$ 28 D

Какой из фрагментов программы выполняет построение списка из N целых чисед. Типизированный указатель объявлен следующим образом:

TypeTp=^posl;

Posl=recordA: integer;

Next:tp;

End;

Var p,g:tp;i:integer;

А) P:=nil;

For i:=1 to n do

Read (g^.a);

В) P:=nil;

For i:=1 to n do

Begin

Read(g^.a);g^.next=p;p:=g;

End;

С) P:=nil;

For i:=1 to n do

Begin

New(g);

Read(g. a); g. next=p;p:=g;

End;

D) P:=nil;

For i:=1 to n do

Begin

New(g);

Read(g^. a); g^. next=p;p:=g;

End;

Е) P:=nil;

For i:=1 to n do

Begin

New(g);

Read(g. a); g^. next=p;

End;

$$$ 29 С

Что будет выдано на печать в результате выполнения следующих операторов?

P^:=D^;

If P=D then P:=nil

Else if P^=D^ then D:=P;

If P=D then D^:=4;

Writeln (P^);

А)D

В)0

С)4

D)NIL

Е)P^

$$$ 30 D

Укажите правильный фрагмент программы.Даны натуральное число n. Целые числа a1,a2,…,a n. Выяснить,имеются ли среди чисел a1,a2,…a n совподающие.

А)label M;

Type t=array[1...n] of integer;

Var a:t; i,j:integer;

beginnew(b);

for i:=1 to n do read(a^[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

if (a^[j]=a^[i]) then

begin

writeln (‘есть совподающие’) ;goto M;end;

writeln(‘нет совподающих’);

M:end;

В) Type t=array[1...n] of integer;

Var a:^t; i,j:integer;

beginnew(a);

for i:=1 to n do read(a^[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

if (a^[j]=a^[i]) then

begin

writeln (‘есть совподающие’) ;writeln(‘нет совподающих’);

end.

С) Type t=array[1...n] of integer;

Var a:^t; i,j:integer;

beginnew(a);

for i:=1 to n do

read(a^[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

if (a^[j]=a^[i]) then

begin

writeln (‘есть совподающие’) ;goto M;end;

writeln(‘нет совподающих’);

M:end.

D) label M;

Type t=array[1...n] of integer;

Var a:^t; i,j:integer;

beginnew(a);

for i:=1 to n do

read(a^[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

if (a^[j]=a^[i]) then

begin

writeln (‘есть совподающие’) ;goto M;end;

writeln(‘нет совподающих’);

M:end.

Е) label M;

Type t=array[1...n] of integer;

Vara:^t; i,j:integer;

beginnew(a);

for i:=1 to n do

read(a^[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

if (a^[j]=a^[i]) then

begin

writeln (‘есть совподающие’) ;goto M;end;

writeln(‘нет совподающих’);

M:end.

$$$ 30 D

В блок-схеме прямоугольник означает:

A) блок ввода/вывода

B) блок начало/конец

C) блок условииD) блок вычисления

E) блок вычитание

$$$ 31 СВычислить значение выражения

pred(round(13/2)-succ(3))

trunk(12/5)

A) 3

B) 2

C) 1

D) 4

E) 5

$$$ 32 СУкажите результат исполнения фрагмента программы при значении Х=6 Case X of1,3:y:=1;

4..7:y:=2*X;

2,8:y:=sqr(X);

Else

Y:=0;

End;

Writeln(‘y=’, y:5:3);

A) 6

B) 2*X

C) 12

D) 0

E) 1

$$$ 33D

Что будет напечатано в результате выполнения фрагмента программы, если элементами массива являются числа (3, 14, -3,6, -9,5,12)

FOR I:=1 TO 7 DO

IF (A[I] mod 3=0) AND (A[I]>0) THEN WRITELN (A[I]*2)

A) 6,28,12,10,24

B) 3, -3,6, -9,12

C) 6, -6,12 -18,24

D) 6,12,24

E) 6, -6,12, -18

$$$ 34 C

Выберите правильный вариант заголовка процедуры для ввода массива

A) PROCEDURE (R:MATRIX)

B) PROCEDURE (R:ARRAY[1..N])

C) PROCEDURE (VAR R:MATRIX)

D) PROCEDURE (R:ARRAY [1..N] OF REAL)

E) PROCEDURE (R:ARRAY (1..N) OF INTEGER)

$$$ 35 C

Найдите строку в результате которого получится окружность

A) circle (100;150;50

B) circle (100;150),50

C) circle (100;150)

D) line (1,15)-(100,150),B

E) line (1,15;100;150)

$$$ 36 A Укажите операцию над множествами, результатом которой является первое множество, дополненное недостающими элементами из второго множества

A) Объединения

B) Разность

C) IN

D) Включение

E) Пересечение

$$$ 37 АКак записывается не равно на языке паскаль

A)<>

B);=

C)=:

D)=>

E):=

$$$ 38 A

Переменные логического типа a:=true и b:=false. Чему равно значение a and b:

A) falseB) не определено

C) trueD) зависит от реализации компилятора

E) зависит от времени выполнения

$$$ 39 A

Укажите правильный оператор цикла:

A) repeat

Операторы

until условие;

B) repeatBegin

Операторы

Until условие;

End;

C) Repeat

Операторы

Until условие;

D) While условие doОператоры

End;

E) repeat

Операторы

Until условие, метка;

$$$ 40 В Укажите оператор ввода переменной “a”

A) Write (a)

B) Read (a)

C) Print a

D) Label a

E) Input a$$$ 41 D

Что будет напечатано следующей программой

PROGRAM MASB;

VAR B:ARRAY[1..10] OF INTEGER;

L,I:INTEGER;

BEGIN L:=1;

FOR I:=1 TO 20 DO

IF ODD(I) THEN

BEGIN

B[L]:=sqr(I);

L:=L+1;

END;

FOR L:=1 TO 10 DO

WRITE(B(L):4)

END.

A) 4 36 100 196 324

B) 1 25 81 169 289

C) 4 16 36 64 100 144 196 256 324

D) 1 9 25 49 81 121 169 225 289 361

E) 1 4 9 16 25 36 49 64 81 100

$$$ 42 E

Что будет напечатано программой

PROGRAM SWP;

VAR C,D:REAL;

PROCEDURE SW1(VAR X, Y:REAL);

VAR Z:REAL;

BEGIN

Z:=X; X:=Y; Y:=Z;

END;

BEGIN

READ(C,D);

SW1(C,D); WRITE(‘C=’, C,’ D=’,D);

END.

$$$ 42 В Укажите оператор ввода переменной “a”

A) Write (a)

B) Read (a)

C) Print a

D) Label a

E) Input a

$$$ 43 B

Выберите правильный вариант использования оператора WITH.

Описание приводится ниже

TYPE STUD=RECORD

FIO:STRINGNAZ:STRING;

STOIM:200..800;

END

END;

VAR ST:STUD;

A) WITH ST DO

BEGIN FIO:=‘Петров Р.’; NAZ:=’Горизонт’ ; STOIM:=500; END;

B) WITH ST DO

FIO:=‘Петров Р.’; NAZ:=’Горизонт’ ; STOIM:=500;

C) WITH ST, SVED DO

FIO:=‘Петров Р.’; NAZ:=’Горизонт’ ; STOIM:=500;

D) WITH ST, SVED DO

FIO:=‘Петров Р.’; NAZ:=Горизонт ; STOIM:=500;

E) WITH ST, SVED DO

BEGIN FIO:=‘Петров Р.’; NAZ:=’Горизонт’ ; STOIM:=500; END;

$$$ 44 C

Что выполняет следующий фрагмент программы?

Varf:file of integer; n,a,b,:integer;

Begin

Assign (f,’f.txt’);

Reset(f);

n:=filesize(f);

read(f,a);

b:=a; seek(f,n -1);

read(f,a);

writeln(b-a);

end;

A) находит разность b-a

B) указатель устанавливает на конец файла

C) находит разность последней и первой компоненты файла

D) находит разность первой и последней компоненты файла

E) печатает ноль

$$$ 45 C

Что выполняет следующий фрагмент программы?

Varf:file of integer; n,a,b,:integer;

Begin

Assign (f,’f.txt’);

Reset(f);

n:=filesize(f);

seek(f,n -1); read(f,a);

b:=a;

read(f,a);

writeln(b-a);

end;

A) Находит разность последней и первой компоненты файла

B) Находит разность b-a

C) Указатель устанавливает на конец файла

D) Находит разность первой и последней компоненты файла

E) Печатает ноль

$$$ 46 B

Укажите правильный результат

:var n: integer;

begin n:=1000; writeln (n div 10); end.

A) 0

B) 100

C) 1000

D) 10.00

E) 10

$$$ 47 A

. Укажите правильный вариант записи.

A) Массив ARRAY [1..N] OF REAL

B) Массив ARRAY [1..N] OF

C) Массив ARRAY [1..N] REAL

D) Массив ARRAY [1..N] Integer

E) Массив ARRAY [1..N]

$$$ 48 D

Укажите результат исполнения программы при значениях n=3; m=2;

VarN,m:integer;c1,c2,c3:Longint; c:real;

Procedure fact(n:integer; var p:longint);

VarI:integer;

Begin

P:=1:

For i:= to n do

P:=p*I;

End;

Begin

Readln (n,m);

Fact(n,c1);

Fact(m,c2);

Fact(n-m,c3);

C:=c1/(c2*c3);

Writeln(c);

End.

A) 1/3

B) cC) c1/(c2*c3)

D) 3

E) 6

$$$ 49 D

Укажите результат исполнения программы

vara,b:real;

procedure pr;

var

d:integer;

begina:=2; d:=3; b:=b+d;

end;

begin

a:=0.5; b:=100;

Pr;

Writeln(a,b)

End.

A) a bB) 0.5 103C) 0.5 100D) 2 103E) 2 0

$$$ 50 C

Какая фигура может быть нарисована заданием следующей процедуры:

Rectangle (10, 20, 20, 40)

A) Квадрат

B) Параллелепипед

C) Прямоугольник

D) Треугольник

E) Прямая

$$$ 51 E

Какой из фрагментов программы выполняет построение списка из N целых чисел. Типизированный указатель объявлен следующим образом:

TypeTP=^posl;

Posl=record

A:integer;

Next:tp;

End;

Var p,g:tp;i:integer;

A) p:=nil;

for i:=1 to n do

beginread(g^. a); g^. next=p; p:=g;

end;

B) p:=nil;

for i:=1 to n do

read(g^. a);

C) p:=nil;

for i:=1 to n do

beginnew(g);

read(g. a); g. next=p; p:=g;

end;

D) p:=nil;

for i:=1 to n do

beginnew(g);

read(g^. a); g^. next=p;

end;

E) p:=nil;

for i:=1 to n do

beginnew(g);

read(g^. a); g^. next=p; p:=g;

end;

$$$ 52 D

Что будет выдано на печать в результате выполнения следующих операторов?

P^:=D^;

If P=D then P=Nil

Else if P^=D^ then D:=P;

If P=D then D^:=4;

Writeln(P^);

A) D

B) P^

C) NIL

D) 4

E) 0

$$$ 53 C

Приведенная ниже структура алгоритма. Начальные присваивания Тело цикла Да

А) Соответствует циклу Пока

В) Соответствует Следованию

С) Соответствует циклу До

D) Соответствует Разветвлению

Е) Соответствует Множественному выбору

$$$ 54 АПравильное описание переменной а целочисленного типа имеет вид:

А) a: integer

B) a: char

C) a:real

D) a:array

E) a:double

$$$ 55 СНайдите правильную запись выражения на языке Паскаль:

А)(abs(x+1-sqr(x)-1)/2*x)

В)(abs(x+1)-sqr(x-1))/2*x

С)(abs(x+1)-sqrt(x)-1)/2*x

D)abs(x+1)-sqr(x)-1)/2*x)

E)(abs(x+1)-sqr(x)1)/2*x

$$$ 56 D

Служебное слово оператора вывода

A)repeatB)realC)varD)writeE)read

$$$ 57 D

Выбрать правильный вариант описания функции для вычисления факториала

A) FUNCTION FACT (k:INTEGER):REAL;

VAR I,P:INTEGER;

BEGIN

P:=1; FOR I:=2 TO k DO; P:=P*I;

FACT:=P

END;

B)FUNCTION FACT (k:INTEGER);

VAR I,P:INTEGER;

BEGIN

P:=1; FOR I:=2 TO k DO; P:=P*I;

FACT:=P

END;

C)FUNCTION FACT (k:REAL):REAL;

VAR I,P:INTEGER;

BEGIN

P:=1; FOR I:=2 TO k DO; P:=P*I;

FACT:=P

END;

D)FUNCTION FACT (k:INTEGER):INTEGER;

VAR I,P:INTEGER;

BEGIN

P:=1; FOR I:=2 TO k DO; P:=P*I;

FACT:=P

END;

E)FUNCTION FACT (k:INTEGER):INTEGER;

VAR I,P:INTEGER;

BEGIN

P:=1; FOR I:=2 TO k DO; P:=P*I;

END;

$$$ 58 A

С помощью оператора …… можно начертить прямую.

A)LINE

B)RETURNC)READLND)SCREENE)CIRCLE$$$ 59 D

Укажите операцию над множествами результатом которой является множество общих элементов множеств

А)объединение

В)включение

С)разность

D)пересечение

Е)IN

$$$ 60 D

Процедура Dispose(p)

А) Уничтожает динамическую переменную

В) Освобождает динамическую память

С) Выделяет место в памяти

D) Возвращает в кучу память, связанную с указателем р.

Е) Уничтожает динамическую переменную, на которую указывает указатель р.

$$$ 61 E

Переменные объявлены следующим образом: p1,p2:^real;

P3:^integer; На сколько байт сместится указатель Heapptr после выполнения фрагмента программы?

Begin

new (p1);

new (p2);

new (p3);

end;

A)6B)10C)3D)18

E)14

$$$ 62 C

Как описывается символьный тип:

А) real

B) array(1….n) of real

C) charD) VAR A,B: integer

E) array(1…n) of string

$$$ 63 E

Операция сравнения «не равно» имеет вид:

А) =

В)!=

С) <

D) >

E) <>

$$$ 64 C

Какая форма записи в Turbo Pascal верна для

A)Cos(2*/8)/e2*N

B)Cos(2/8)/e2N

C)Cos(2*(/8))/Exp(2*N)

D)Cos(2/8)/Exp(2N)

E)Нельзя записать

$$$ 65 A

Найдите правильную форму записи в Turbo Pascal для Tan(a)/Cos()

A)Sin()/Cos()/Cos()

B)Sin()/Cos()*Cos()

C)Нельзя записать

D)Tan()/Cos()

E)Tan()*Cos()

$$$ 66 B

Что будет напечатано следующей программой

PROGRAM MASB;

VAR B:ARRAY[1…10] OF INTEGER;

L,I:INTEGER;

BEGIN L:=1;

FOR I:=1 TO 20 DO

IF ODD(I) THEN

BEGIN

B[L]:=sqr(I);

L:=L+1;

END;

FOR L:=1 TO 10 DO

WRITE(B(L):4)

END.

A)1 25 81 169 289

B)1 9 25 49 81 121 169 225 289 361

C)4 36 100 196 324

D)1 4 9 16 25 36 49 64 81 100

E)4 16 36 64 100 144 196 256 324

$$$ 67 D

Выберите правильный вариант упорядочения массива B[20] по не врзрастаниюA) FOR I:=1 TO 19 DO

FOR J:=1 TO 20 DO

IF B[I]<B[J] THEN

BEGIN C:=B[I]; B[I]:=B[J]; B[J]:=C; END;

B) FOR I:=1 TO 19 DO

FOR J:=I+1 TO 20 DO

IF B[I]<B[J] THEN

BEGIN C:=B[I]; B[I]:=B[J+1]; B[J]:=C; END;

C) FOR I:=1 TO 19 DO

FOR J:=I+1 TO 20 DO

IF B[I]>B[J]

D) FOR I:=1 TO 19 DO

FOR J:=I+1 TO 20 DO

IF B[I]<B[J] THEN

BEGIN C:=B[I]; B[I]:=B[J]; B[J]:=C; END;

E) FOR I:=1 TO 19 DO

FOR J:=I+1 TO 20 DO

IF B[I]>B[J] THEN

BEGIN C:=B[I]; B[I]:=B[J]; B[J]:=C; END;

$$$ 68 C

Укажите правильный фрагмент программы, описывающей процедуру вычисления суммы положительных четных элементов, расположенных в нечетных столбцах массива

A) Procedure sum(x:mas;S:integer);

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If j mod 2 <> 0 then

If (x[I,j]>0) and (x[I,j] mod 2=0) then

S:=S+ x[I,j];

End;

B) Procedure sum(x:mas;var S:integer);

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If j mod 2 <> 0 then

If (x[I,j]>0) (and x[I,j] mod 2=0) then

S:=S+1;

End;

C) Procedure sum(x:mas;var S:integer);

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If j mod 2 <> 0 then

If (x[I,j]>0) and ( x[I,j] mod 2=0) then

S:=S+ x[I,j];

End;

D) Procedure sum(x:mas): var S:integer;

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If j mod 2 <> 0 then

If (x[I,j]>0) and (x[I,j] mod 2=0) then

S:=S+ x[I,j];

End;

E) Procedure sum(x:mas;var S:integer);

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If i mod 2 <> 0 then

If (x[I,j]>0) and (x[I,j] mod 2=0) then

S:=S+ x[I,j];

End;

$$$ 69 B

Нарисовать 10 горизонтальных линии. Выберите правильный фрагмент программы.

A) k:=1;

While k<10 do

Begin

Line(50,10+k*10,400, 10+k*10);

Ink(k);

End;

B) k:=1;

While k<=10 do

Begin

Line(50,10+k*10,400, 10+k*10);

Ink(k);

End;

C) k:=1;

While k<=10 do

Begin

Line(50,Y,400,Y);

Ink(k);

End;

D) k:=1;

While k<=10 do

Begin

Line(50,10+k*10,400, 10+k*10);

End;

E) k:=1;

While k<=10 do

Begin

Line(50,k*10,400, 10+k*10);

Ink(k);

End;

$$$ 70 C

Выберите правильный вариант программы, которая выводит сведения о книгах изданных аздательством Мир и которые поступили в магазин начиная с 2002 года.

A) for i:=1 to n do

If (a[i].izd="Мир") or (a[i].datapost<2002) then

Begin

Writeln (a[i].awt);

Writeln (a[i].nazw);

Writeln (a[i].god);

Writeln (a[i]. datapost);

End;

B) for i:=1 to n do

If (a[i].izd=Мир) then

Begin

Writeln (a[i].awt);

Writeln (a[i].nazw);

Writeln (a[i].god);

Writeln (a[i]. datapost);

End;

C) for i:=1 to n do

If (a[i].izd="Мир") and (a[i].datapost>=2002) then

Begin

Writeln (a[i].awt);

Writeln (a[i].nazw);

Writeln (a[i].god);

Writeln (a[i]. datapost);

End;

D) for i:=1 to n do

If (a[i].izd=Мир) and (a[i].datapost=2002) then

Begin

Writeln (a[i].awt);

Writeln (a[i].nazw);

Writeln (a[i].god);

Writeln (a[i]. datapost);

End;

E) for i:=1 to n do

If a[i].izd=Мир and (a[i].datapost>=2002) then

Begin

Writeln (a[i].awt);

Writeln (a[i].nazw);

Writeln (a[i].god);

Writeln (a[i]. datapost);

End;

$$$ 71 B

Чему равно значение выражения 2*p^+sqrt(p^), если по адресу, на которую указывает указатель p размещено число 9.

А) 99.

В) 21

С) Выражение записано неверно.

D) 9.

Е) 2*p^+sqrt(p^)

$$$ 72 D

Что будет напечатано следующим фрагментом программы?

Varx,y:^integer;

beginnew(x); x^:=15; y:=x; write(y^); writeln(x^+10);

Dispose(x);

End;

A)Y^25

B)X 25

C)15 x^+10

D)15 25

E)Y^ x^+10

$$$ 73 B

Что выполняет следующий фрагмент программы?

vara:char;

Begin

Assign(f1,'f1.txt');

Assign(f1,'f2.txt');

Assign(f1,'f3.txt');

Rewrite(f3); reset(f1);

While not eof(f1) do

Begin

Read(f1,a);

White(f3,a);

End;

Close(f3);

Rewrite(f1); reset(f2);

While not eof(f2) do

Begin

Read(f2,a);

White(f1,a);

End;

Rewrite(f2); reset(f3);

While not eof(f3) do

Begin

Read(f3,a);

White(f2,a);

End;

Close(f2); Close(f3); Close(f1);

End;

A)Переписывает компоненты файла f2 в файл f3

B)Переписывает компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1

C)Переписывает компоненты файла f1 и файла f3

D)Переписывает компоненты файла f1 в файл f3

E)Переписывает компоненты файла f1 в файл f2, а компоненты файла f2 в файл f3

$$$ 74 B

Что выполняет следующий фрагмент программы?

varf:text;

a:string; s,k:integer;

begink:=1;

assign(f,'f.txt');

reset(f);

While not eof(f) do

Begin

Read(f,a);

S:=length(a);

If s>50 then ink(k);

End;

Writeln(k);

End;

A)Подсчитывает количество строк

B)Подсчитывает количество строк, содержащих более 50 символов

C)Находит длину каждой строки

D)Подсчитывает количество символов в строках

E)Печатает строки, содержащих более 50 символ

$$$ 75 B

Укажите результат 16 mod (7+9) div 3*2

А) 11

В) 0

С) 8

D) 10

E) 2

$$$ 76 A

Служебное слова оператора ввода

A)readB)writeC)charD)repeatE)case$$$ 77 D

Служебное слова оператора цикла

A)readB)writeC)charD)repeаtE)case$$$ 78 D

Описание строковых переменных:

А)Record

B)writeC)WhileD)StringE)Array$$$ 79 АКакая фигура может быть нарисована заданием следующей процедуры:

Rectangle(10,20,20,40)

А) Прямоугольник

В) Параллелепипед

С) Квадрат

D) Прямая

Е) Треугольник

$$$ 80 D

Оператор варианта служебное слово

А)Read

B)writeC)RepeatD)CaseE)Array$$$ 81 A

Описание действительной переменной содержит ключевое слово:

А)real

В)word

С)char

D)arrayЕ)integer

$$$ 82 A

При использования оператора цикла со служебным словом Downto что будить происходить в программе

A)будет изменятся в обратном порядке с шагом -1

B)будет реализовывать цикл с обратным параметром

C)будет опускать все строки вниз до конца цикла

D)строку переведет в самый конец

E)будет повышается цикл пока не станет ложным

$$$ 83 E

Служебное слово с оператором предусловием

A)caseB)realC)readD)repeatE)while$$$ 84 D

Какой оператор может выполнится один раз даже если условие ложно в самом начале

A)любойB)оператор с присваиванием

C)оператор с предусловием

D)оператор с постусловием

E)ни один из этих операторов

$$$ 85 E

Что такой цикл

A)процесс не обратий в решений

B)простое вычисление циклициских уравнений

C)вычисление процессов в алгоритмических формах

D)вычисления по одним и тем же математическим зависимостям

E)многократный повторяемый участок вычислений

$$$ 86 A

В самом начале программы пишется

A)program;

B)begin;

C)var;

D)end;

E)user;

$$$ 87 C

Как заптсываюстя коментарии на языке паскаль в каких скобках

A)( комментарии)

B)[ комментарии]

C){ комментарии }

D); комментарии ;E)< комментарии >

$$$ 88 E

Описание типов переменных как записыватся (целый)

A)charB)realC)variblianD)readE)integer$$$ 89 D

Описание типов переменных как записывается (вещественый)

A) charB) readC) integerD) real

E) var$$$ 90 B

Описание типов переменных как записывается (символичный)

A) ifB) charC) integerD) real

E) var$$$ 91 A

Определение символа из набора символов по порядковому номеру

A) CHR(X)

B) ORD(X)

C) SUCC(X)

D) LOG(X)

E) PRED(X)

$$$ 92 B

Как записывается акрктангенс х на языке паскаль

A) ABS(X)

B) ARCTAN(X)

C) Arctg x

D) LOG(X)

E) Arctg$$$ 93 C

Сколько букв на языке паскаль

A)38B)23C)26D)33E)46$$$ 94 A

Кем был разработан язык программирования паскаль

A)Никлаусом Виртом

B)Теранбоно Паскалем

C)Девидом Нирджом

D)Бенжамином Ирлендомом

E)Фернадо Алонсо

$$$ 95 D

Наиболее простыми примерами перечисляемых данных являются

A)расписание уроков

B)счет времени

C)работы смены

D)дни недели

E)назание месяцев

$$$ 96 C

Для создания типа-перечисления используется ключевое слово

A)епитB)имяC)СиD)перечислениеE)не используется ключевое слово

$$$ 97 E

Переменной CurDay можно присваивать

A)константуB)любое значение

C)несколько значений

D)переменнуюE)числовое значение

$$$ 98 D

Входит ли пробел как специальный символ на языке Паскаль

A)есле ставится двоеточие

B)только после знака (=)

C)нетD)даE)при вводе данных

$$$ 99 B

Что такое сведения об окружающем мире и протекающих в нем процессах, воспринимаемых человеком или специальными устройствами

A)проектB)ИнформацияC)ДевальвацияD)МышлениеE)Процесс$$$ 100 A

любой символ языка, заключенный в апострофы. Для объявления переменных символьного типа в разделе переменных используется слово CHAR.

A)литерная константа

B)переменнаяC)вещественная константа

D)целая константа

E)Vareblian


Похожие работы:

«ФОРМА ЗАЯВКИ НА УРОВЕНЬ СТРЕМЛЕНИЕ К СОВЕРШЕНСТВУ "Стремление к Совершенству" EFQM (оценка) [Название организации] Благодарим Вас за заявку на "Стремление к Совершенству". Пожалуйста, внимательно прочитайте нашу Информационн...»

«"Воздух" 1 Каковы свойства воздуха?    1) прозрачный    2) бесцветный    3) имеет вкус2. Если в помещении пахнет дымом, это значит:    1) воздух загрязнён    2) воздух имеет запах дыма    3) он так всегда пахнет...»

«Проверочный тест по теме "Гражданская война в России 1917 – 1922 гг." Часть 11. Одной из основных целей белого движения в Гражданской войне было:а) укрепление советского государства;б) уничтожение советской власти;в) восстановление самодержа...»

«Шасси ISUZU ELF 3.5 S ABS, ASR, EBD, ремни безопасности водителя и пассажиров, противотуманные фары, задний противотуманный фонарь, зуммер заднего хода, буксировочный крюк, обогрев зеркал заднего вида, отопитель салона, свечи накаливания, топливный фильтр с подогревом влагоотделителя, фильтр предварительной очистки топлива, гидроусилитель...»

«Конспект занятия Тема: "Кто такие военные?"Задачи:• объяснить детям, что 23 февраля – праздник Российской Армии, день ее рождения, что воины охраняют нашу Родину, они сильные, смелые, ловкие.• воспитывать уважение к защитникам Отечества, гордость за русских воинов. Словарь новых слов: граница, танкисты, моряки, пограничники, летчики.Ход неп...»

«Цены указаны с доставкой Код Внешний вид Название Размер (Д* Ш*В) Цена Уличные Тренажёры У-Т-001 Уличные Тренажёр Длина 855 мм Ширина 965 мм Высота 1535 мм Цена 31 300 Руб. УТ-002 Уличные Тренажёр Длина 1750 мм Ширина 550 мм Высота 1700 мм Цена 38 350 Руб. У-Т-003 Уличные Тренажёр Длина 1500 мм Ширина 885 мм Высота 15...»

«Урок №1 Раскрась, как хочешь. Правило раскрашивания.План урока: Приветствие (5мин) Презентация "Техника безопасности" (5 мин) Объяснение нового материала (5 мин) Решение задач в учебнике №1,2,4,8,9. Дополнительные задач...»

«Аналитический отчет          о работе МБУ КЦСОН Забота за 2014 год. Работа Комплексного Центра в прошедшем году была направлена на повышение качества и уровня жизни населения, обеспечения всеобщей доступности социальных услуг, прежде всего качественного социального обслуживания.Центр...»

«График работы библиотеки МБОУ Гимназии № 6 г. Тихорецка на весенних каникулах День недели Время работы Перерыв Понедельник 08.00 – 18.00 12.00 – 13.00 Вторник 08.00 – 18.00 12.00 – 13.00 Среда 08.00 – 18.00 12.00 – 13.00 Четверг 08.00 – 18.00 12.00...»

«Сценарий на 23 февраля Праздник открывает видеоролик ( праздничный марш). Ведущий: Ежегодно 23 февраля мы отмечаем важный государственный праздник – День Защитника Отечества. И в этот день принято поздравлять мужчин – пап, дедушек, братьев. Мужчины по праву счи...»









 
2017 www.docx.lib-i.ru - «Бесплатная электронная библиотека - интернет материалы»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.