Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






end; (jj)






 

  • Программаның орындалатын бө лігі қ андай тү йінді сө зден басталады? - BEGIN
  • Ерекше белгілерді сипаттау бө лігі қ андай тү йінді сө зден басталады? - LABEL
  • Тұ рақ тыларды сипаттау бө лігі қ андай тү йінді сө зден басталады? - CONST
  • Мә ліметтердің типтерін сипаттау бө лігі қ андай тү йінді сө зден басталады? - TYPE
  • Айнымалыларды сипаттау бө лігі қ андай тү йінді сө зден басталады? - VAR
  • Ө рнектiң мә нiн есептеу керек. Succ (round(21/2)-pred(9))/Trunc(19/8) -2
  • Келтiрiлген программа қ андай нә тиженi баспақ а шық арады.

PROGRAM PR5;

VAR P, Q: INTEGER;

BEGIN

READ (P, Q, P); WRITELN (‘P+Q=’, P+Q, ‘P =’, P);

END.

Егер бастапқ ы мә ндер ретiнде келесi мә ндер берiлген болса 16, 17, 26- P+Q=43 P=26

 

15. Шартты операторын қ олданып келтiрiлген функцияны есептеу керек.

IF X< 0 THEN Y: =5*SQR(X)+6 ELSE IF (X> 0)

AND (X< 6) THEN Y: =SQR(X)-35 ELSE Y: =7.1x-7

 

  • Келесi оператор орындалғ аннан кейiн D айнымалының мә нiн анық тау керек.

D: =0; I: =1;

WHILE I< 25 DO

I: =I+2;

D: =D+1/(2*I+1); - 0.02

  • Келесi цикл операторының денесi канша рет орындалады.

N: =0;

FOR I: =1 TO 3*N+4 DO

N: =N+2; - 8

  • Ө рнектiң мә нiн есептеу керек

[ 3.. 14 ] * [ 4, 14.. 61 ] + [ 5.. 11] – [ 6.. 16 ] * [ 7]- [ 4..6, 8..11, 14]

  • Келесi конструкциялардың қ айсы жиын болып саналады (Паскаль тiлiнiң ережесi бойынша)- [‘> =’, ’< ’, ’=’]
  • 70 символдан тұ ратын текстiк информацияны жол тү рiнде баяндау керек- VAR STR1: STRING [70];

 

28. Келесi программа орындалғ аннан кейiн баспағ а не шығ ады?

PROGRAM PRINT2(INPUT, OUTPUT);

TYPE STR2 = PACKED ARRAY [1.. 10] OF CHAR;

VAR I: INTEGER; T2: STR2;

PROCEDURE P2(VAR S2: STR2);

BEGIN I: = 1;

WHILE S2 [I] < ‘ 8’ DO

BEGIN S2 [ I ]: =SUCC(S2[ I ]; I: = I+1 END;

END;

BEGIN I: = 1; T2: = ‘ 1230489756’; P2(T2);

WRITELN (t2[ I ])

END.

А) 9

B) 4

C) 8

D) 6

E) 7

 

 

  • Жазбалармен жұ мыс iстеу операторын бастаудың тү йiндi сө зi: - with
  • Жиында жататындынын тексеру: - in
  • Жалғ ан шарт бойынша қ айталау операторының соң ы; - until
  • Массивтi баяндау қ ай тү йiндi сө зден басталады? - array
  • Жазбаны баяндау қ ай тү йiндi сө зден басталады? - record
  • Жалғ ан шарт бойынша қ айталау операторының басы- repeat

 

37. Repeat.. Until нұ сқ ауының жалпы жазылу тү рi дұ рыс па?

Repeat

< Нұ сқ ау1>

< нұ сқ ау2>

................

Until < шарт>;

A) Иә

B) жоқ

C) бiлмеймiн

D) сә йкес емес

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

 

  • Келесi қ ай қ айталау нұ сқ ауының жазылу форматын бередi?

FOR < айнымалы>: =< бастапқ ы мә нi> TO {DOWNTO} < соң қ ы мә нi> DO < нү сқ ау> - параметрлiк қ айталау

  • Келесi қ ай нұ сқ аудың жазылу форматын бередi? < айнымалы>: = < ө рнек>; - меншiктеу нұ сқ ауы
  • Келесi қ ай нұ сқ аудың толық жазылу форматын бередi? IF < логикалық ө рнек> THEN < нұ сқ ау> [ELSE < нұ сқ ау>; - шартты нұ сқ аудың

 

  • Келесi қ ай нұ сқ аудың толық жазылу форматын бередi?

WHILE < логикалық ө рнек> DO < нұ сқ ау> - алдын-ала шарт бойынша қ айталау нұ сқ ауының

  • Келесi қ ай нұ сқ аудың толық жазылу форматын бередi?

CASE < селектор> OF

< Const1>: < нұ сқ ау>;

< Const2>: < нұ сқ ау>;

........................................

[ELSE < нұ сқ ау>; ]

End; {Case}- таң дау нұ сқ ауының

  • Келесi қ ай нұ сқ аудың толық жазылу форматын бередi?

GOTO < белгi>; - кө шу нұ сқ ауының

 

  • Типтердi баяндау бө лiмiнде қ андай кұ рделi типтiң жалпы жазылу форматы кө рсетiлген?

Type < идентификатор> = Array [< индекс типi>, < индекс типi>,...] Of < элемент типi>; - массив

  • Функция REWRITE

A) Файлдық айнымалыны байланыстыру ү шін пайдаланады

B) Файлды оқ уғ а ашу ү шін пайдаланады

C) Файлғ а жазуғ а ашу ү шін пайдаланады

D) Файлды жабу ү шін пайдаланады

E) Файлдан ақ паратты оқ у ү шін

 

 

  • Функция CLOSE- Файлды жабу ү шін пайдаланады
  • Функция READ

A) Файлдық айнымалыны байланыстыру ү шін пайдаланады

B) Файлды оқ уғ а ашу ү шін пайдаланады

C) Файлғ а жазуғ а ашу ү шін пайдаланады

D) Файлды жабу ү шін пайдаланады

E) Файлдан ақ паратты оқ у ү шін

 

 

203. Келесі операторлар орындалғ аннан кейін S айнымалысының мә нін анық тау керек.

S: =0; I: =1;

Repeat

S: =S+I;

I: =I+5;

Until I> 10;

А) 7

B) 10

C) 0

D)17

E) 6

 

207. A[17] массивінің жұ п позицияларында орналасқ ан элементтерінің арасындағ ы ең ү лкен элементті анық таудың дұ рыс вариантын таң даң ыз.

A) MAX: =A[1];

FOR I: =2 TO 17 DO

IF A[I]> MAX THEN MAX: =A[I];

B) MAX: =A[2];

FOR I: =2 TO 8 DO

IF A[2*I]> MAX THEN MAX: =A[I];

C) MAX: =A[2];

FOR I: =2 TO 17 DO

IF A[2*I> MAX THEN MAX: =A[2*I];

D) MAX: =A[2];

FOR I: =2 TO 8 DO

IF A[2*I]> MAX THEN MAX: =A[2*I];

E) MAX: =A[1];

FOR I: =2 TO 17 DO

IF ODD(I) THEN IF A[I]> MAX THEN MAX: =A[I];

 

208. а1,..., аn тізбегінің ө спелі екенін тексерудің дұ рыс вариантын таң даң ыз (егер тізбек ө спелі болса, PR-ге 1-ді меншіктеу керек, кері жағ дайда PR-ге 0-ді меншіктеу керек).

A) PR: =1; FOR I: =1 TO N-1 DO

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

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

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

C) FOR I: =1 TO N-1 DO;

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

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

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

E) PR: =1; FOR I: =1 TO N-1 DO

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

Begin PR: =0; break; END;

 

209. Егер массив элементтері келесі сандар (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, 12, 24

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

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

D) 3, 6, 12

E) 6, -6, 12, -18

 

 

211. Массивтегі жұ п элементтердің саны мен қ осындысын есептейтін программаның дұ рыс фрагментін таң даң ыз

A) s: =0; k: =0;

for i: =1 to n do

if (A[i] mod 2 = 0) then begin

s: =s+A[i];

k: =k+1;

end;

B) s: =0; k: =0;

for i: =1 to n do

if (A[i] mod 2 = 0) then begin

s: =A[i];

k: =k+1;

end;

C) s: =0; k: =0;

for i: =1 to n do

if (A[i] mod 2 = 1) then

s: =s+A[i];

k: =k+1;

 

D) s: =0; k: =0;

for i: =1 to n do

if (A[i] / 2 = 0) then begin

s: =s+A[i];

k: =k+1;

end;

E) s: =0; k: =0;

for i: =1 to n do

if (A[i] mod 2 = 1) then begin

s: =s+A[i];

k: =k+1;

end;

 

212. Х=6 болғ андағ ы программа фрагментінің орындалу нә тижесін кө рсетің із.

Case X of

1, 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) 12

C) 2*X

D) 0

E) 1

 

214. Қ олданушыдан айдың нө мірін сұ райтын жә не сә йкес жыл мезгілін шығ аратын программаның дұ рыс фрагментін таң даң ыз.

A) Writeln(‘айдың нө мірін енгізің із’);

Readln(n);

Case n of

12, 1, 2: writeln(‘қ ыс’);

3..5: writeln(‘кө ктем’);

6..8: writeln(‘жаз’);

9..11: writeln(‘кү з’);

End;

B) Writeln(‘айдың нө мірін енгізің із’);

Readln(n);

Case n of

12, 1, 2: writeln(‘қ ыс’);

3-5: writeln(‘кө ктем’);

6-8: writeln(‘жаз’);

9-11: writeln(‘кү з’);

End;

C) Writeln(‘айдың нө мірін енгізің із’);

Readln(n);

Case n of

12; 1; 2: writeln(‘қ ыс’);

3-5: writeln(‘кө ктем’);

6-8: writeln(‘жаз’);

9-11: writeln(‘кү з’);

End;

D) Writeln(‘айдың нө мірін енгізің із’);

Readln(n);

Case n of

12, 1, 2: writeln(қ ыс);

3-5: writeln(кө ктем);

6-8: writeln(жаз);

9-11: writeln(кү з);

End;

E) Writeln(‘айдың нө мірін енгізің із’);

Readln(n);

Case n of

1-12: writeln(‘қ ыс’);

3-5: writeln(‘кө ктем’);

6-8: writeln(‘жаз’);

9-11: writeln(‘кү з’);

End;

 

217. Программаның орындалу нә тижесін кө рсетің із

Program pr;

Var a, b: integer; s: real;

Procedure Sr(x, y: integer; var S: real);

Begin

S: =(x+y)/2;

end;

begin

a=2, b=3;

sr(a, S, b);

writeln (S);

End.

A) 3.0

B) типтердің сә йкес келмеуі

C) 2.5

D) 5

E) S

 

218. Массивтің тақ бағ андарында орналасқ ан оң жұ п элементтердің қ осындысын есептеудің процедурасын сипаттайтын программаның дұ рыс фрагментін кө рсетің із.

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[j, i] > 0) and (x[j, i] 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 i 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 j mod 2 < > 0 then

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

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

End;

 

  • 219. Массивтің тақ бағ андарында орналасқ ан оң жұ п элементтердің қ осындысын есептейтін функцияны сипаттайтын программаның дұ рыс фрагментін кө рсетің із.--- Function sum(x: mas): 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;

 

  • Программаның орындалу нә тижесін кө рсетің із

Program pr;

Var

f, i: integer;

function fb (n: integer): integer;

begin

if (n=1) or(n=2) then fb: =1

else

fb: =fb(n-1) + fb(n-2); +

end;

begin

n=5;

f: = fb(n);

writeln(f)

end. ---- 5

 

  • Программаның орындалу нә тижесін кө рсетің із

Program pr;

Var

a, b, c, d: integer;

u, p, s: integer;

function f (x, y: integer): integer;

begin

if (x> y) then f: =x

else

f: =y;

end;

begin

a: =5; b=-5; c: = 2; d: =7;

u: =f(a, b); p: = f(u, c); s: =f(p, d);

writeln(u, p, s)

end.- 5 5 7

 

  • Мир баспасында шығ арылғ ан жә не дү кендерге 2002 жылдан бастап тү скен кітаптар туралы мә ліметтер шығ аратын программаның дұ рыс вариантын таң даң ыз.

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;

  • Туғ ан жылдары кему реті бойынша орналасқ ан студенттер жайлы мә ліметтер шығ аратын дұ рыс фрагментті таң даң ыз (мә ліметтер жазбалар массивінде сақ талады)----for i: =1 to n-1 do

for j: =i+1 to n do

if a[j].god> a[i].god then

begin

p: =a[i]; a[i]: =a[j]; a[j]: =p;

end;

for i: =1 to n do

with a[i] do

begin

writeln(fio); writeln(grup);

writeln(den); writeln(mes);

end;

  • Оқ ушылар жайлы мә ліметтер жазбалар массивінде сақ талады. Программаның келесі фрагменті қ андай мә ліметтерді шығ арады.

readln(kls);

for i: =1 to n do

with mas[i] do

if kls=klass then

begin

writeln(fam); writeln(imya); writeln(shkola);

end; -- мектептің оқ ушылары жайлы мқ ліметтер шық арады

  • Бесiншi символдан бастап S1 жолын S жолына қ оюдың стандартты процедурасынын қ олданып дұ рыс вариантын таң даң ыз: - INSERT (S1, S, 5)
  • ОRD () функциясы - аргумент мә нiнiң реттiк номерiн;
  • SUCC () функциясы - келесi мә нiн;

 

  • х, у логикалық айнымалылар, х-тiң мә нi TRUE, y- тiң мә нi FALSE болғ анда x and not y ө рнегiнiң нә тижесi -TRUE;
  • х, у логикалық айнымалылар, х-тiң мә нi TRUE, y- тiң мә нi FALSE болғ анда not (x or y) ө рнегiнiң нә тижесi - FALSE;
  • Кө шу нұ сқ ауы GOTO-дан кейiн: - Белгi;

 

235. CASE P OF

'2': Writeln ('екi');

'3': Writeln ('ң ш');

'4': Writeln ('тқ рт');

END; {CASE}

Жоғ арыдағ ы программадағ ы дұ рыс орындалуы ү шiн Р айнымалысын қ алай сипаттау керек?

A) P: integer;

B) P: real;

C) P: char;

D) P: boolean;

E) P: extended;

 

  • TRUNC (X) стандартты функциясының нә тижесi ненi қ айтарады? - Х мә нiнiң бү тiн бө лiгiн;
  • TRUNC (X) стандартты функциясында Х қ алай сипатталуы керек? - real;
  • ROUND (X) стандартты функциясында Х қ алай сипатталуы керек? - real;
  • А: =10; В: =2; С: =100;

Writeln (А, В: 2, С: 4); болғ анда тө мендегi нә тижелердiң қ айсысы дұ рыс? - 10 2 100;

  • While < шарт> DO < цикл денесi >;

Цикл нұ сқ ауында < цикл денесi> орындалу ү шiн < шарт> ө рнегiнiң мә нi неге тең болуы қ ажет? - True;

  • Приоритетi тө мен операцияны кө рсетiң iз? - IN
  • Қ арапайым типтерден қ айсысы реттік типке жатпайды? - BOOLEAN
  • Пр ограмма фрагментінің орындалу нә тижесін таң да.

var

n: integer; c, s: string;

begin

n: = pos(‘abc’, ’abefabcdeabc’);

writeln(‘n=’, n);

c: =copy(’abefabcdeabc’, 6, 3);

writeln(‘c=’, c);

s: =’ abcd ’;

insert (‘123’, s, 3);

writeln(‘s=’, s);

end; n=5

C = bcd;

S= a123bcd

 

 

 

 






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.