A) параметрсiз readln b) print c) output d) параметрсiз writeln

E) read

*****

Программаның белгіленген блогын көрсету үшін белгіден кейін қандай символ жазылады

A) қос нүкте B) нүкте C) бос орын және нүкте D) нүктелi үтiр

E) тире

*****

Типтің дұрыс сипатталуын көрсет:

A) Type massive=array[1..5,1..5] of real;

newmas=array[1..25] of real;

var b:massive;

y:newmas;

I,j,k:integer;

B) Type massive=array[1...5,1...5] of real;

newmas=array[1...25] of real;

var b:massive

y:newmas;

I,j,k:integer;

C) Type massive=array[1..5,1..5] of real;

Newmas:=array[1..25] of real;

var b:massive;

y:newmas;

I,j,k:real;

D) Type massive:=array[1..5,1..5] of real;

newmas=array[1..25] of real;

var b:massive

y:newmas;

I,j,k:integer;

E) дұрыс жауап жоқ

*****

Екі санды көбейтудің программасының дұрыс нұсқасын көрсет:

A) n:=9;

for i:=1 to n do begin;

for j:=1 to n do begin ;

p[i,j]:=i*j;

write(p[i,j]:6)

end;

writeln

end;

B) n:=9;

for i:=1 to n do begin

for j:=1 to n do begin;

p[i,j]:=i*j;

write(p[i,j]:6)

end;

writeln

end;

C) n:=9;

for i=1 to n do begin

for j=1 to n do begin

write(p[i,j];6)

end;

writeln

end;

D) n:=9;

for i:=1 to n do begin

for j:=1 to n do begin

p[i,j]:=i*j;

write(p[i,j]:6)

end;

writeln

end;

E) дұрыс жауап жоқ

*****

Жолдық типті деректерді өңдейтін стандартты функциялар:

A) length, sqrt, var, const

B) line, circle, val, pos

C) length, copy, concat, pos

D) copu, pos, const, setcolor

E) linerel, bar, sqrt,copy

*****

Көмекші программалармен жұмыс істегенде қандай параметрлерді нақты параметрлер деп санайды?

A) көмекшi программалар сипаттамасында берiлетiн параметрлер

B) параметр-аргументтер и параметры-нәтижелер

C) негiзгi программаның var бөлiгiнде сипатталатын параметрлер

D) процедураны шақыру командасында берiлетiн параметрлер

E) негiзгi программанын type бөлiгiнде сипатталатын параметрлер

*****

Белгілі бір сөйлемнен барлық бос орындар, үтірлер, нүктелер алынып тасталған программасының дұрыс нұсқасын көрсет:

A)Program Cod;

Var a,b,c:string;

i:integer;

begin

write(‘Введите текст:’);

readln(a);

b:=’’;

for i:=1 to length(a) do

begin

c:=copy(a,I,1);

if (c<>’,’) and (c<>’.’) and (c<>’ ’)

then b:=b+c

end; writeln(b;)

writeln end.

B) Program Cod;

Var a,b,c:string;

i:integer;

begin

write(‘Введите текст:’);

readln(a);

b:=’’;

for i:=1 to length(a) do

begin

c:=a[i];

if (c<>’,’) and (c<>’.’) and (c<>’ ’)

then b:=b+c

end; writeln(b);

writeln end.

C) Program Cod;

Var a,b,c:string;

i:integer;

begin

write(‘Введите текст:’);

readln(a);

b:=’’;

for i:=1 to length(a) do

begin;

c:=copy(a,I,1);

if (c<>’,’) and (c<>’.’) and (c<>’ ’)

then b:=b+c;

end; writeln(b);

writeln end.

D) Program Cod;

Var a,b,c:string;

i:integer;

begin

write(‘Введите текст:’);

readln(a);

b:=’’;

for i:=1 to length(a) do

begin

c:=a[i];

if (c<>’,’) and (c<>’.’) and (c<>’ ’)

then b:=b+c

end; writeln(b;)

writeln end;

E) дұрыс жауап жоқ

*****

Көмекші программаны қолданып (tg(x) функциясын есептейтiн программаны сипатта және tg(x)+ctg(x)+tg²(x) өрнегiнiң мәнiн есепте) программасының дұрыс нұсқасын анықта

A) program func;

var x,y:real;

function tg(x:real):real;

begin

tg:=sin(y)/cos(x)

end;

begin

writeln(‘x-тiң мәнiн енгiз’);

readln(y);

y:=tg(x)+1/tg(x)+sqr(tg(x));

readln

end.

B) program func;

var function tg(x:real):real;x,y:real;

begin

tg:=sin(x)*cos(x)

end;

begin;

writeln(‘x-тiң мәнiн енгiз’);

readln(x);

y:=tg(x)+1/tg(x)+sqr(tg(x));

readln;

end.

C) program func;

var x,y:real;

function tg(x:real):real;

begin

tg:=sin(x)/cos(x)

end;

begin

writeln(‘x-тiң мәнiн енгiз’);

readln(x);

y:=tg(x)+1/tg(x)+sqr(tg(x));

readln

end.

D) program func;