Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
A) reset(f);
|
|
Rewrite(g);
While not eof (f) do
Begin
Read (f, n);
if (n mod 3=0) and (n mod 7 < > 0)
Then
Write (g, n);
End;
174. Файлдың компоненттерінің қ осындысын жә не кө бейтіндісін табу ү шін программаның дұ рыс фрагментін таң да: reset(f); s: =0; p: =1;
While not eof (f) do
Begin
Read(f, n);
s: =s+n;
p: =p*n;
End;
· Файлғ а 5 бү тін санды жазу ү шін программаның дұ рыс фрагментін таң да:
A) rewrite(f);
for i: =1 to 5 do
Begin
Read(n);
Write (f, n);
End;
· Функция RESET Файлды оқ уғ а ашу ү шін пайдаланады
·. Функция REWRITE Файлдық айнымалыны байланыстыру ү шін пайдаланады
· Функция CLOSE Файлды жабу ү шін пайдаланады
· Функция READ ақ паратты оқ у ү шін
· Келесі операторлар орындалғ аннан кейін S айнымалысының мә нін анық тау керек.
S: =0; I: =1;
Repeat
S: =S+I;
I: =I+5;
Until I> 10; 7
- A[17] массивінің жұ п позицияларында орналасқ ан элементтерінің арасындағ ы ең ү лкен элементті анық таудың дұ рыс вариантын таң даң ыз. MAX: =A[1];
FOR I: =2 TO 17 DO
IF A[I]> MAX THEN MAX: =A[I];
- а1,..., аn тізбегінің ө спелі екенін тексерудің дұ рыс вариантын таң даң ыз (егер тізбек ө спелі болса, PR-ге 1-ді меншіктеу керек, кері жағ дайда PR-ге 0-ді меншіктеу керек). PR: =1; FOR I: =1 TO N-1 DO
IF A[I]> A[I+1] THEN break;
- Егер массив элементтері келесі сандар (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); 6, 12, 24
- Массивтегі жұ п элементтердің саны мен қ осындысын есептейтін программаның дұ рыс фрагментін таң даң ыз
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;
- Х=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); 12
- Қ олданушыдан айдың нө мірін сұ райтын жә не сә йкес жыл мезгілін шығ аратын программаның дұ рыс фрагментін таң даң ыз. Writeln(‘айдың нө мірін енгізің із’);
Readln(n);
Case n of
12, 1, 2: writeln(‘қ ыс’);
3..5: writeln(‘кө ктем’);
6..8: writeln(‘жаз’);
9..11: writeln(‘кү з’);
End;
- . Программаның орындалу нә тижесін кө рсетің із
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) 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;
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 primer;
Const n=10;
Var I: integer;
Begin
I: =0;
While I< N do
Writeln(‘Привет’);
I: =I+1
End.
A) 9 рет
B) 10 рет
C) 11 рет
D) бір да бір рет орындалмайды
E) шексіз ретті сан
· Программаның белгіленген жолында қ ате болуы мү мкін. Дұ рыс жауапты таң даң ыз.
Programm ggg;
Begin
a b sum: integer;
a: =1;
b: =2;
sum: =a+b;
writeln(‘summa ravna’ sum);
end. Жол дұ рыс жазылғ ан. Программа денесі begin сө зінен басталуы керек, жә не бұ л сө з айнымалылар сипатталу бө лімінен бұ рын тұ ру керек
· Егер келесі командаларғ а жауап ретінде
Read(x, y);
readln(z); readln(q);
экранғ а мынаны терсек
-5 6
9 1
онда командалар орындалу нә тижесінде айнымалылар қ ай мә ндерге ие болады: x=5 y=-5 z=6 q=7
· Программа орындалғ ан кезде Привет сө зі неше рет қ айталанып келеді?
Program primer;
Const n=10;
Var I: integer;
Begin
I: =0;
While I< N do
begin
Writeln(‘Привет’);
I: =I+1
end
End. 10 рет
· ORD(A) функциясының жазылуында А аргументі – бұ л кез келген символ
· Программа орындалғ аннан кейін I айнымалысы қ ай мә нге ие болады?
Program pp;
Var I: integer;
Begin I: =3;
If I-3> 0 then If i=3 then I: =1 else I: =2;
Writeln(‘I=’, I);
End.
C) 3
· Программа орындалғ ан кезде Привет сө зі неше рет қ айталанып келеді?
Program primer;
Const n=10;
Var I: word;
Begin
I: =0;
While I< N do
Begin
Writeln(‘Привет’);
I: =I-1
end
End.- 1 рет
· PRED(7 div 3) ө рнегінің мә ні нешеге тең - 1
· WRITELN(5/2: 5: 1) командасының орындалу барысында экранғ а қ андай нә тиже шығ ады? - 2.5
· Программа орындалғ аннан кейін I айнымалысы қ ай мә нге ие болады?
Program pp;
Var I: integer;
Begin I: =0;
If I< 0 then I: =1 else If I< 0 then I: =2 else if I< 0 then I: =3;
Writeln(‘I=’, I);
End. - 0
· Программа орындалғ ан кезде Привет сө зі неше рет қ айталанып келеді?
Program primer;
Const n=10;
Var I: integer;
Begin
I: =1;
Repeat writeln(‘Привет’);
I: =I+1
Until I< n
End. - 1 рет
· WRITELN(5 mod 2: 5) командасының орындалу барысында экранғ а қ андай нә тиже шығ ады? - 1
· Программа орындалғ аннан кейін I айнымалысы қ ай мә нге ие болады?
Program pp;
Var I, k: integer;
Begin I: =10;
If I< 0 then k: =I mod 2 else If I=0 then k: =I div 2 else I: =3*i;
Writeln(‘I=’, I);
End.- 30
· Егер программада келесі сипатталулар болса, келесі меншіктеулер мү мкін бола ала ма?
Type
SEZON=(zima, vesna, leto, osen);
Var
X, Y: SEZON;
T: (TEPLO, HOLODNO);
6) X: =VESNA; Y: =X;
7) Y: =T;
8) T: =TEPLO;
9) T: =GARKO;
10) X: =Y+T- 1, 3 меншіктеулері ммү кін
· Операторлар орындалғ аннан кейін p жә не d айнымалыларының мә ндері қ андай болады?
Program pr;
Var p: Boolean; d, k: integer;
Begin
P: =true; d: =1; k: =71;
Case k mod 10 of
3, 2, 7, 5: d: =k;
1:;
4, 8: begin p: =false; d: =2; end;
9, 6: begin p: =false; d: =3; end;
end;
end.- P=true; d=1
· Программаның жұ мыс істеу нә тижесінде қ андай мә н шығ ады?
Program primer;
Const exampl=’1014’;
Var i, num: integer;
Stg: string[20];
Begin
Stg: =exampl;
Num: =0;
For i: =0 to length(stg) do
if stg[i]< > ’0’ then num: =num+1;
Writeln(‘num=’, num);
End.- Num=4
· «Привет» сө зі неше рет басылып шығ ады?
Program primer;
Var I: integer;
Procedure hellow(I: integer);
Begin
While I< 2 do
Begin
writeln(‘Привет’);
I: =I+1;
End;
End;
Begin
For I: =0 to 2 do Hellow(i)
End .-3 рет
· «Привет» сө зі неше рет басылып шығ ады?
Program primer;
Var I: integer;
Procedure hellow;
Begin
While I< 2 do
Begin
writeln(‘Привет’);
I: =I+1;
End;
End;
Begin
For I: =1 to 3 do Hellow
End.- 1 рет
· Программаның жұ мыс істеу нә тижесінде қ андай мә н шығ ады?
Program primer;
Const exampl=’1014’;
Var i, num: integer;
Stg: string[20];
Begin
Stg: =exampl;
Num: =0;
For i: =0 to length(stg) do
if stg[i]=’4’ then num: =num+1;
Writeln(‘num=’, num);
End.- Num=1
· Егер программада келесі сипатталулар болса, кө рсетілген операторлардың қ айсысы мү мкін емес?
Var a, b: array[1..15, 0..9] of real;
T: Boolean;
1) A: =B
2) A: =A+B
3) T: =A[I, J]< > 5
4) Read(A)
5) A[1, 7]: =A[7, 3]- 1, 3, 5 операторлары мү мкін
· «Привет» сө зі неше рет басылып шығ ады?
Program primer;
Var I: integer;
Procedure hellow;
Var I: integer;
Begin
i: =0;
While I< 2 do
Begin
writeln(‘Привет’);
I: =I+1;
End;
End;
Begin
For I: =1 to 3 do Hellow
End.- 6 рет
· Белгіленген жолда қ ате болуы мү мкін. Дұ рыс жауапты таң даң ыз.
Program primer;
Const exampl=’10145’;
Var i, num: integer;
Stg[20]: string;
Begin
Stg: =exampl;
Num: =0;
For i: =0 to length(stg) do
if stg[i]< > ’0’ then num: =num+1;
Writeln(‘num=’, num);
End.- Жолда қ ате бар, мына тү рде жазу керек: stg: string[20]
· Программаның жұ мыс істеу нә тижесінде қ андай мә н шығ ады?
Program primer;
Const a=10;
Var I: integer;
Function calc(k: integer): integer;
Const a=2;
Begin
Calc: =k*a;
End;
Begin
I: =2;
Writeln(‘результат=’, calc(i));
End.- 4
· Егер программада келесі сипатталулар болса, онда a, b, c, d массивтерінің ә рқ айсысы ү шін, олардың ішіндегі элементтер санын кө рсетің із
Type
Day=(yesterday, today, tomorrow);
Vector=array[1..30] of real;
Var
A: vector;
B: array[-2..2] of (x, y, z);
C: array[‘0’..’9’] of vector;
D: array[day] of 0..20 a массивы 30 элементтен, b – 4 элементтен, c – 10 элементтен, d – 3 элементтен тұ рады
· Операторлар орындалғ аннан кейін p жә не d айнымалыларының мә ндері қ андай болады?
Program pr;
Type
digit=’0’..’9’;
Var d: digit; p: integer;
Begin
P: =9; d: =’0’;
While d< ’5’ do
Begin
p: =p-1;
d: =succ(d);
end;
end.- P=4, d=5
· «Привет» сө зі неше рет басылып шығ ады?
Program primer;
Var I: integer;
Procedure hellow(var I: integer);
Begin
While I< 2 do
Begin
writeln(‘Привет’);
I: =I+1;
End;
End;
Begin
For I: =0 to 2 do Hellow(i)
End.- 3 рет
· Тип сиппаттаудың қ айсысы қ атесіз жазылғ ан?
Const n=100; pi=3.14159;
Type tsifra=’0’..’9’; bukva=a..z; ugol=-n..n; period=-pi..pi;
Nedelja=(vs, pn, vt, sr, cht, pt, sb);
Budni=pn..pt; Барлық сипатталулар дұ рыс (jj)
· Программада келесі сипатталулар болса, кө рсетілген операторлардың қ айсысы мү мкін емес?
Var a, b: array[1..15, 0..9] of real;
T: Boolean;
1) A: =B
2) A: =A+B
3) T: =A[I, J]< > 5
4) Read(A)
5) A[1, 7]: =A[7, 3]- 1, 3, 5 операторлары мү мкін
· «Привет» сө зі неше рет басылып шығ ады?
Program primer;
Var I: integer;
Procedure hellow;
Var I: integer;
Begin
i: =0;
While I< 2 do
Begin
writeln(‘Привет’);
I: =I+1;
End;
End;
Begin
For I: =1 to 3 do Hellow
End.- 6 рет
· I айнымалысы қ андай мә нге ие болады?
Program primer;
Var I: integer;
Function calc(i: integer): integer;
Var temp: integer;
Begin
temp: =sqr(i)+10*i;
End;
Begin
I: =calc(2);
End.- 0
· Егер программада келесі сипатталулар болса, келесі меншіктеулер мү мкін бола ала ма?
Type
SEZON=(zima, vesna, leto, osen);
Var
X, Y: SEZON;
T: (TEPLO, HOLODNO);
1) X: =VESNA; Y: =X;
2) Y: =T;
3) T: =TEPLO;
4) T: =GARKO;
5) X: =Y+T- 1, 3 меншіктеулері мү мкін
· Программа орындалағ аннан кейін, қ андай нә тиже шығ ады?
Program primer;
Const exampl=’1014’;
Var i, num: integer;
Stg: string[20];
Begin
Stg: =exampl;
Num: =0;
For i: =0 to length(stg) do
if stg[i]< > ’0’ then num: =num+1;
Writeln(‘num=’, num);
End.- Num=4
· «Привет» сө зі неше рет басылып шығ ады?
Program primer;
Var I: integer;
Procedure hellow(I: integer);
Begin
While I< 2 do
Begin
writeln(‘Привет’);
I: =I+1;
End;
End;
Begin
For I: =0 to 2 do Hellow(i)
End.- 3 рет
· «Привет» сө зі неше рет басылып шығ ады?
Program primer;
Var I: integer;
Procedure hellow;
Begin
While I< 2 do
Begin
writeln(‘Привет’);
I: =I+1;
End;
End;
Begin
For I: =1 to 3 do Hellow
End.- 1 рет
· Программа орындалағ аннан кейін, қ андай нә тиже шығ ады?
Program primer;
Const exampl=’1014’;
Var i, num: integer;
Stg: string[20];
Begin
Stg: =exampl;
Num: =0;
For i: =0 to length(stg) do
if stg[i]=’4’ then num: =num+1;
Writeln(‘num=’, num);
End.- Num=1
· Программа орындалағ аннан кейін, қ андай нә тиже шығ ады?
Program primer;
Const a=10;
Var I: integer;
Function calc(k: integer): integer;
Const a=2;
Begin
Calc: =k*a;
End;
Begin
I: =2;
Writeln(‘нә тиже=’, calc(i));
End.- 4
- Функцияның тағ айындалуы қ андай
Function Concat(S1, S2, …, Sn: string): string; - S1, S2, …, Sn жолдарын тізбектеп қ осады да, нә тижені қ айтарады
- Паскаль тілінде жиын- бұ л: -Бірдей типті элементтердің реттелген жиыны
- Ө рнектің мә нін есептең із:
[2..13]*[3, 13..60]+[4..10]-[5..15]*[6]; - [3..5, 7..10, 13]
- var krug: record
radius: real;
centr: record
x, y: real
end
end;
krug айнымалысына, радиусы 5 центрі (0, 8) нү ктесінде жатқ ан шең берге сә йкес мә нді меншікте with krug do
begin radius: =5; x: =0; y: =8 end;
· Паскальда файлдық типтің дұ рыс хабарлануын кө рсетің із: - type < файловый тип>: file of < тип>
· Паскальда қ андай процедура арқ ылы мә тіндік файлды ашып, оны толық тыруғ ы болады: -append
· Паскальда файлды жазу ү шін қ айта ашқ анда оның мә ндері: ө шіріледі
- Паскальда EOLN функциясы қ андай типті мә нді қ айтарады- жолдық
- Паскаль тілінде элементтің жиынғ а тиістісін қ андай операция анық тайды - in
· Паскаль тілінде, қ андай функция жолдын символдарын берілген символдың нө мірінен бастап кө шіреді: - copy
· Паскаль тілінде қ андай процедура сандарды жолғ а айналдырады: - str
- Бө лімдердің қ айсысында модульдің барлық глобальді объектілерінің сипатталулары бар? Unit;
- Функцияның тағ айындалуы қ андай
function Copy (S: string; index: integer, count: integer): string; - S жолынан index нө мірлі символдан бастап, count нө мірлі символғ а дейін қ осымша жол символдарын кө шіреді
- Паскальда жазу дегеніміз не? - Ә р тү рлі типті шектеулі санды мә ліметтердің жиынтығ ы
- Паскальда assign(f, 'c: \turbo\bp\exe.pas') функциясында f - бұ л: файлдық айнымалы
- Ө рнектің нә тижесі қ андай [ 1, 2, 3]*[4, 5]: - [ ]
· Атап ө ту типі берілген:
DAY = (MO, TU, WE, TH, FR, SA, SU)
SUCC(WE) функциясының нә тижесі қ андай? TH
· Қ андай процедура файл қ ұ рамын ағ ымдағ ы сілтеуіштен кейін лақ тырып тастайды? Truncate
- Функцияның тағ айындалуы қ андай
function Length (S: string): integer; - S жолының ұ зындығ ын қ айтарады
- Паскальда бү кіл файлдың соң ын тексеруді қ алай ұ йымдастыруғ а болады? - while not eof (файл аты) do цикл операторын қ олданып
- Файлдан мә ліметтерді енгізудің стандартты ағ ымы: input
- Модуль структурасының қ андай бө лімі Implementation сө зінен басталады: - жү зеге асыру бө лімі
- Программаның интерфейстік бө лігі қ ай кілтті сө зден басталады? Interface
- Инициализация бө лігі қ ай кілтті сө зден басталады? Initialization
- Аяқ тау бө лігі қ ай кілтті сө зден басталады? Finalization (jj)
- Модуль қ ай кілтті сө зден басталады? Implementation
- Жү зеге асыру бө лігі қ ай кілтті сө зден басталады? - Implementation
- Массив элементері келесі ереже бойынша табылады а[i, j]= i + j. Екінші жолдағ ы элементердің косындысын табың дар- 12
- Массив элементері келесі ереже бойынша табылады а[i, j]= i2 + j. Ү шінші жолдағ ы элементердің косындысын табың дар- 33
- Массив элементері келесі ереже бойынша табылады а[i, j]= i + j 2. Екінші жолдағ ы элементердің кобейтіндісін табың дар- 20
· m: =0; a: =10; b: =20; c: =20;
if (a> b) and (a> c) then m: =a;
if (b> a) and (b> c) then m: =b;
if (c> a) and (c> b) then m: =c;
Чему будет равна переменная m? - 0
· m: =0; a: =10; b: =20; c: =15;
if (a> b) and (a> c) then m: =a;
if (b> a) and (b> c) then m: =b;
if (c> a) and (c> b) then m: =c;
Чему будет равна переменная m? - 20
· Вычисление суммы элементов расположенных на четных позициях в одномерном массиве, состоящем их 15 элементов:
< variant> i: =2; while i< 15 do begin s: =s+a[i]; i: =i+2 end;
< variant> i: =1; while i< 15 do begin s: =s+a[i]; i: =i+2 end;
< variant> i: =2; while i> 15 do begin s: =s+a[i]; i: =i+1 end;
< variant> i: =1; while i< 15 do begin if i div 2=0 then s: =s+a[i]; i: =i+1 end;
< variant> i: =2; while i< 15 do begin s: =s+a[2]; i: =i+2 end;
· for i: =1 to 10 do
begin
if a[i] mod 3=0 then writeln(i)
end;
Что делает фрагмент программы? - делит элементы массива а на 3
· в одномерном массиве а удвоить все отрицательные элементы и заменить нулями положительные- for i: =1 to n do
if a[i]< 0 then a[i]: =a[i]*2 else a[i]: =0;
· Заполнить одномерный массив а [1..10] квадратами чисел от 1 до 10:
< variant> i: =1;
while i< =10 do
Begin
a[i]: =sqr(i);
Inc(i)