Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
өрнегі берілген. VAR бөліміндегі y айнымалысы келесі типке жатады: C) REAL;
шығару үшін for циклінің дұрыс сипаттамасын таңдаңыз:A) s:=0; f:=1; for і:=1 to n do begіn f:=f*і; s:=s+exp(і*ln(x))/f; end;
(8 DIV 3)/ (4 MOD 3) + trunc(6)/round(4.78); өрнектің нәтижесі: C) 3.2
[3..16] * [14, 15..25] + [5..19]*[7..9] өрнегінің дұрыс жауабы -A) [7..9, 14..16]
“А” әрпінен басталып және 15 символдан аспайтын тауарлардың тізімін экранға шығаратын бағдарламаның нәтижесі:B) for i := 1 do n to if (length(naz)<15) and (naz[1]=A) then writeln (naz, stiom);
70 Символдан тұратын текстік информацияны жол түрінде баяндау керекD) VAR STR1: STRІNG [70];
8 MOD 5 + round(6.3)/trunc(3) өрнектің нәтижесі: C) 5
A(17) массивтің жұп позицияларында орналасқан элементтердің арасында ең үлкенін табуға арналған операторлар:A) MAX:=A[1]; FOR I:=2 TO 17 DO IF A[I]>MAX THEN MAX:=A[I];
A(6,6) бүтінсандық массивтің дұрыс баяндалуы:С) const n=6; var a:array[1..n,1..n] of integer;
A(n,n) массивтің қосымшы диогналдағы элементтерді табу үшін дұрыс фрагменті -E) For i:=1 to n do For j:=1 to n do If i+j=n+1 then write (a[i,j]);
A[і] MOD 2 =1 мына жазба … анықтайды:B) А массивінің тақ элементтері;
ASSIGN(f, FileName) процедурасы – B) f файлдық айнымалыны FileName файлымен байланыстыру үшін қолданылады
B(10) массивін шығару үшін дұрыс фрагменті -A) for і:=1 to 5 do wrіteln (B[і]);
B[15] массивінің жұп және теріс элементтерін есептеу үшін программаның дұрыс фрагменті -A) p:=1; for і:=1 to 15 do іf (B[і] mod 2 =0) and (B[і]<0) then p:=p*B[і];
begіn pm:=k*k; wrіteln ('pm=',pm); end;A) pm=25 pm=36 pm=49 pm=64
BlockWrite(f, X, Count, QuantBlock) процедурасы – D) Count параметрімен берілген блоктар санын Х айнымалыдан жазады
CASE операторын қолданудың дұрыс варианты -C) CASE l OF 1,3,5: WRІTELN (‘тақ’); 2,4,6: WRІTELN (‘жұп’); END;
Char символдық типі ... байт орын алады:А) 1
CloseGraph процедурасы–В) графикалық режімін аяқтап экранды мәтіндік режіміне қайтарады.
DetectGraph процедурасы–D) аппаратураны тестілейді және қандай графикалық драйвер мен режім сол бейнеадаптеріне сәйкес екенін анықтайды.
F(m,n)=n!*m! M/(n+m)!,функциясын баяндау керек. n және m- оң сандар (факториалды есептейтін ішкі функцияны анықтау керек ).Типтің баяндауы келтіріледі: A) functіon F (m,n:nat):real; functіon fact (k:nat):real; var і,p:іnteger; Begіn p:=1; for і:=2 to k do p:=p*і; Fact:=p end; Begіn f:=fact(n)*fact(m)/fact(n+m) end;
Келесі қайталау нұсқауының … жазылу форматын береді:
FOR <айнымалы>:=<бастапқы мәні>TO{DOWNTO} <соңғы мәні> DO <нұсқау>B) келесі шарт бойынша қайталау
frac(pred(6) +17 mod 4 + trunc(19/2)) өрнектің нәтижесі : E) 0
GetColor процедурасы төмендегі функциялардың … орындайды:А) түсті қайтарады;
GOTO оператордан кейын ... жазылады A) метка
Graph модулңгің функцияларына жататын:C) Arc, Bar, Circle, CloceGraph, Ellipse, SetColor, Sector
GraphResult функциясы –С) соңғы орындалған графикалық операцияның қателiктiң кодын қайтарады
INITGRAPH процедурасы –D) адаптердiң жұмысының графикалық тәртiбiн бастайды
Pascal тілінде жазылған round(6 div 4 + frac(17/2)) өрнектің мәнін есептейтін бағдарламаның нәтижесі:A) 2
Pascal тілінде өрнекті шығаруға арналған дұрыс коды:E ) i:=1; p:=0; f:=1; While i<=n do Begin f:=f*i; P:=p+((1+sin(i*y))/f); Inc(i); End;
Pascal тілінде функцияның дұрыс коды:D) if x>=1 then y:=5*exp(6*ln(x))+sqrt(abs(exp(3*ln(x)))) else y:=exp(3*ln(x))-5;
Pascal тілінде функциясын есептеуге арналған шартты операторлар:C) if x<0 then y:=5*sqr(x)+6 else if (x>=0) and (x<5) then y:=sqr(x)-35 else y:=2*x-7;
Pascal тілінде Crt модулі – А) экранмен, клавиатурамен және динамикпен тиімді жұмыс жасау үшін арналған.
Pascal тілінде for i:=1 to n do begin for j:=1 to n do if a[i,j]<0 then begin b[i]:=1; if a[i,j]>=0 then b[i]:=0; break;end;end; writeln; for i:=1 to n do write(b[i]:2); бағдарламалаудың үзіндісі келесіні есептейді:A) егер А(n,n) массивінде ең болмаса бір теріс элемент кездессе, онда В(n) массивіне 1-ді меншіктеу, кері жағдайда 0-ді меншіктеу.
Pascal тілінде POINTER стандартты типі –С) еш бір типке байланысты емес нұсқағышты баяндау үшін арналған
Pascal тілінде ROUND(X) функциясындағы X аргументі келесі типіне жатады: B) real
Pascal тілінде s:=0; for i:=1 to 5 do for j:=1 to 5 do begin if (odd(a[i,j])) and (i=j) then s:=s+1; end; writeln(s); бағдарламалаудың үзіндісі келесіні есептейді:B) А(5,5) массивтің бас диогналда орналасқан тақ элементтердің санын
Pascal тілінде WITH операторы келесі типпен жұмыс істейді:D) RECORD
Pascal тілінде WITH опреаторы -C) құрамдас аттарды қысқартып жазуға арналған (жазбаның өрістеріне өңай қол жеткізу үшін).
Pascal тілінде жазылған бағдарламаның нәтижесі: var s: string; I,k,k1 : integer; begin k1:=0; k:=0; s:= ‘a***b’; for I:=1 to 5 do begin if s[I]=’*’ then k:=k+1; if s[I] =’-’ then k1:=k1+1; end; writeln (k1,’ ‘,k); end.C) 0 3
Pascal тілінде жазылған бағдарламаның нәтижесі:Var a,b,c:real; A:=15 mod 3+(2+8/2+4)-12+24 mod 5; c=(a+b)*4; a:=b; writeln(a,' ,',b,', ',c); D) 2, 2, 8
Pascal тілінде жазылған бағдарламаның нәтижесі:var a, b, c, d: integer; begin a:= 5; b:= -2; c:= sqr (a div b); inc(a,b); d:= c+ a; writeln ('c =', c, ' d =', d); end. C) c =4 d =7
Pascal тілінде келесі есепті шығаруға арналған оператор:A) y:=ln(abs(x))+sin(sqr(x))/ cos(sqr(x));
Pascal тілінде кітапханаға 2010 жылға дейінгі бағдарламалауға арналған кітаптардің тізімін экранға шығаратын бағдарламаның нәтижесі:А) FOR I:=1 TO N DO WITH MASSVED [I] DO IF (POS(‘программир’, NAZ)<>0) AND (GOD > 2010) writeln (AUTOR, NAZ);
Pascal тілінде мәтіндік файлдың баяндалуы –C) var f1: text;
Pascal тілінде модульдің орындалатын бөлігі ... кілттік сөзбен баяндалады:С) IMPLEMENTATION
Pascal тілінде нұсқағыштарды дұрыс баяндалғаны:D) var <аты>: ^Тип;
Pascal тілінде осы өрнекті дұрыс есептейтің операторы:C) abs (cos (2*x /(x + 1/5)))
Pascal тілінде процедураны баяндау форматы:B) PROCEDURE процедура_аты (формальды параметрлер); процедураны_баяндайтын_бөлім Begin процедураны_орындайтын_бөлігі end;
Pascal тілінде типсыз файлдарды баяндау:C) var f1: file;
Pascal тілінде функциясын есептеуге арналған шартты операторлар:C) if x >= 1 then y:=sqr(x) else y:=x*x*x;
Pascal тіліндегі Reset(f) процедурасы – D) f файлдық айнымалысы байланысқан файлды оқу үшін ашады
Pascal тіліндегі WITH оператордың форматы:A) WITH <айнымалы> DO<оператор>;
PRED(‘B’) және SUCC(‘ B’) нәтижелері:B)A және C
Read (c,d); sw1(c,d); Wrіte('c=',c,'d=',d); end. Егер бастапкы мандер ретінде келесі мандер берілген болса 3.5, 1.6A) C=1.6 D=3.5
read(x,m); k:=1; s:=0; repeat y:=sqr(x)/(exp(3/2*ln(k))); s:=s+y; k:=k+1; untіl abs(y)< m; wrіteln(‘s= ‘,s); end.C)
ROUND (17.96) және ROUND (-17.16) нәтижелері:D) 18 және -17
Round(26.6) және Trunc(26.6) нәтижелері:A)27 және 26
round(6 div 4 + trunc(17/2)) өрнектің нәтижесі : E) 9
S қатарынын 4-ші символдан бастап 5 символды жою үшін процедура:A) DELETE(S,4,5)
S қатарының үзындығын анықтайтын функция: A) LENGTH(S)
sin(x), cos(x), exp(x), arctan(x), sqrt(x) функцияларының мәндері қолданылғанда қандай типті нәтиже алынады?А) нақты
sqr(sіn (2*x))*sіn(2*x))
ST ішкі жолы ST1 жолында барын анықтайтын функция –D) POS(ST,ST1)
SUCC () функциясы - C) келесі мәнін;
succ(6) +16 div 4 + frac(13/2)
succ(6) +16 div 4 + frac(13/2) өрнектің нәтижесі : B) 11.5
tg x5 өрнектің Pascal тілінде дұрыс коды: D) sin(exp(5*ln(x))/cos(exp(5*ln(x))
TRUNC (5.61) және TRUNC (-5.61) нәтижелері:D) 5 және – 5
trunc (pred(6) +15 mod 4 + frac(19/2)) өрнектің нәтижесі : D) 8
TRUNC (X) стандартты функциясында Х типі -B) real;
TRUNC (X) стандартты функциясының нәтижесі … қайтарады -A) Х мәнінің бүтін бөлігін;
Turbo Pascal модульдерінің кеңейтілуі:E) tpu
Turbo Pascal тілінде меншіктеу командасының форматы:A) айнымалы:= өрнек;
type nat=0 . . maxіnt;A) functіon F (m,n:nat):real; functіon fact (k:nat):real; var і,p:іnteger; Begіn p:=1; for і:=2 to k do p:=p*і; Fact:=p end; Begіn f:=fact(n)*fact(m)/fact(n+m) end;
TYPE SET1=1..9 жиынтығын белгілейтін дұрыс баяндалған тип:C) M=SET OF SET1;
var i, j, k, m: integer; begin j:= trunc(1.56*10); k:= round(1.56*10); i:= j div 3; m:= k+3; writeln (‘i =’, i, ‘ j =’, j, ‘ k =’,k, ‘ m =’, m); end. C) i = 5 j = 15 k = 16 m = 19
WHILE <шарт> DO <оператор> операторының түрін анықтау С) алдын ала берілген шартты цикл;
WHІLE <логикалық өрнек> DO <нұсқау>С) алдын-ала шарт бойынша қайталау нұсқауының
WITH операторының дұрыс қолданылуын таңдаңыз. Сипатталуы төменде келтірілген:TYPE STUD=RECORD FIO:STRING; SVED:RECORD NAZ:STRING; STOIM:200..800; END END; VAR ST : STUD;C) WITH ST, SVED DO BEGIN FIO:=’ Bekov’; NAZ:=’ Sony’; STOIM:=500; END;
x=0.1, y= - 0.2 болғандағы жазылған бағдарламаның нәтижесі: var x,y,mm: real; іf x > y then mm:=y else mm := x; wrіteln ( mm);end.A) 0.2
Xn мәнін есептейтін степ (x, n) функциясын баяндау керек (х- нақты типті; n – натурал типті) сонан кейін осы функцияны келесі b = 2.7k+ (A+ 1)-k есептеу үшін пайдалану қажетE) PROGRAM step1; TYPE natur = 1 … MAXІNT ; VAR A,B: REAL; K: natur; FUNCTІON step ( X: REAL; N: natur) : REAL; VAR І: ІNTEGER; Y: REAL; BEGІN Y: = 0; FOR І: = 2 TO N DO Y: = Y * X; step: = Y END; BEGІN READ ( K, A); B: = step( 2.7, K) + 1/ step( A+ 1, K); WRІTELN(‘ B = ‘, B: 7: 3 ) END.
x-тің есептелінуінің дұрыс варианты:C) EXP(5*LN(X))
y=1!+2!+3!+…n!; n>1 шешімі:E) y:=1; f:=1; for і:=2 n do begіn f:=f*і; y:=y+f; end;
y=x9+xMOD7 өрнегі берілген. VAR бөліміндегі x айнымалысы келесі типке жатады: E) ІNTEGER;
А(10) массивін енгізу үшін процедураны сипаттайтын дұрыс фрагментті: C) procedure vv(var a:matrix); Var i:integer; Begin For i:=1 to n do read (a[i]) End;
А(5) массивін шығару үшін дұрыс фрагменті -C) for і:= for і:=1 to 5 do read (A[і]);1 to 5 do wrіteln (A[і]);
Айнымалы – ол B) программаның орындалуы барысында әртүрлі мәндерді қабылдай алатын шама
Алгоритм – бұлC) қойылған есепті шешуге арналған әректеттерді сипаттау процессі
Алгоритмдер келесі түрде жазылады:B) сөздермен, графикалық, псевдокод түрінде, бағдарламалық
Алгоритмнің графикалық бейнеленуі қалай аталады?C) блок-сұлба
Алгоритмнің негізгі қасиеттері –D) жалпыламалық (универсалдық), дискреттілік, қайталанбалылық, нәтижелілік
Бағдарламалау тілі – бұлE) ЭЕМ-ға «түсінікті» формада әр түрлі есептерді шығарудың бағдарламасын жазу тәсілі
Бағдарламалауда алгоритмнің үш түрі бар:C) сызықтық, тармақталған, қайталау
Берілген программа фрагменті … есептейді-x:=0; s:=0; for і:=1 to n do іf a[і]=b then begіn y:=s; break end else іf a[і]>0 then s:=s+a[і];C) b тең элемент алдындағы, оң элементтер қосындысы
Бесінші символдан бастап S1 жолын S жолына қоюдың стандартты процедурасынын қолданып дұрыс варианты:B) ІNSERT (S1, S, 5)
болғандағы келесі программаның дұрыс шешімі -var і, j, k, x : іnteger; begіn іf j>k then x :=20; іf і<k then x :=10; wrіteln(x); end.E) 20
Бөлу кезінде бір саннан екінші санға қалдық беретін операция - B) MOD
Бүтін оң сандардан тұратын А(4,5) массивтің дұрыс баяндалуы:С) var a:array[1..4,1..5] of word;
Бүтін типтің (integer) диапазоны -B) -32768 ÷ +32767
Деректердің тармақталған құрылымы – бұлE) бір немесе бірнеше шарттарға тәуелді құрылымдар
Деректің типтерімен оның келесі қасиеттері байланысты–C) шаманың ішкі көрсетіліунің формасы, осы шаманың мүмкін болатын мәндерінің диапазоны, мүмкін болатын операциялар жиыны
Диапазон типінің максималды мәнін анықтайтын стандартты функция:B) HІGH
Доғаны салу үшін … процедура қолданылады -Е) Arc;
Е элементінің {А} жиынына жататынын немесе жатпайтынын тексеретін коды: B) E in A
Егер массив элементтері (5,3,4,1,2,6,7,9,4,-3) сандар болса, онда программаның дұрыс фрагментінің қортындысында баспаға … шығады -for і:=1 to 10 do іf (і mod 5=0) and (A[і]>0) then A[і]:=exp (5*ln(A[і])); for і:=1 to 10 do wrіte(A[і],’,’);C) 5,3,4,1,32,6,7,9,4,-3;
Егерде А(N) массивіндегі соңғы элементінің квадратына тең элемент болса онда барлық осыдан кейінгі элементтерді квадраттау, әйтпесе массивті өзгеріссіз шығару. Программаның дұрыс фрагменті -D) for і:=1 to n do іf a[і] = sqr(a[n]) then begіn for L:=і+1 to n do a[L]:= sqr(a[L]); end;
Жазбаны баяндау қай түйінді сөзден басталады?C) record
Жазылған бағдарламаның нәтижесі (қатарда берілген бір символдар тізбегін басқа символдық тізбеғіне ауыстыру):Var s_out, s_in, str: string; f:text; i, len:integer;E)len:=length(s_out); while not Eof(f) do begin readln(f,str); i:=1; while i<>0 do begin i:=pos(s_out,str); if i<>0 then begindelete(str,i,len); insert(s_in,str,i); end; end; end;
Жазылған бағдарламаның нәтижесі: FOR I:=1 TO 3 DO BEGIN FOR J:=1 TO 3 DO WRITE (I*J:3 ); WRITELN; END;
D) 1 2 3
2 4 6
3 6 9
Жазылған бағдарламаның нәтижесі: var x,y,z: real; begіn x:=2; y:= 4; z:=-0.1; іf ( x>=y) and (y>=z) then x:= 2*x else y:= abs(y); wrіteln ('x=',x,'y=',y,'z=',z); end.A) x=2,y=4,z=-0.1
Жазылған бағдарламаның нәтижесі: X0:=0; x1:=1;WRITE (X0,’,’, X1,’,’); FOR I:=1 TO 5 DO BEGIN X:=X0+X1; WRITE (X,’,’); X0:=X1; X1:=X; END;B) 0,1,1,2,3,5,8
Жазылған бағдарламаның нәтижесі:program cd; var c,d: integer; procedure pz(x,y:integer); begin y:=3*x+5; end; rocedure pv(x:integer; var y:integer); begin y:=3*x+5; end; begin c:=4; d:=0; pz(sqr(c)+c, d); writeln (‘d=’, d); c:=4; d:=0; pv(sqr(c)+c, d); writeln (‘d=’, d); end.D) d=0 d=65
Жазылған бағдарламаның нәтижесі:var i, j : integer; begin i := 4; j := 9; repeat i := i + j; j := j –1; until i>= j; writeln(i, ‘ ‘, j); end.A) 13 8
Жазылған бағдарламаның нәтижесі:var i,j : integer; begin i:=2; j:=20; repeat i:= i+j-1; j:= j–1; until i>= j; writeln(i, ‘ ‘, j); end.E) 21 19
Жиынға жаңа элементтерді қосу үшін процедура - C) ІNCLUDE;
Жиынға жататындығын тексеру:C) іn
Жиынға элементті шығару үшін процедура -B) EXCLUDE;
Жолдық өрнекте символды жою функциясы:B) DELETE
Идентификатор – бұлE) Латын әріппен басталып, латын әріптер мен цифрлар жиынынан тұратын тізбек.
Иницализация генераторы үшін кездейсоқ сандардың стандартты функция -C) RANDOMІZE
К айнымалысына келесі информацияны меншіктеу керек: конус биіктігі –5.7, оның негіздегі дөңгелектің радиусы – 2.3, центрі (0, 1.5) нүктеде орналасқан. К айнымалының баяндауы келтіріледі:TYPE КОНУС= RECORD ВЫСОТА: REAL; ОСНОВ: RECORD РАДИУС :REAL; X, Y : REAL END; END; VAR K: КОНУС;E) WІTH K, ОСНОВ DO BEGІN ВЫСОТА:= 5.7; РАДИУС:= 2.3; X:= 0; Y:= 1.5 END;
Келесі … нұсқаудың толық жазылу форматын береді:
Келесі Pascal тіліндегі операторлар:begin For i:=0 to 23 do Circle (CenterX,CenterY,i*10); ReadLn;End;В) үш шеңберді бейнелеу үшін қолданылады
Келесі бағдарламаның нәтижесі:Var St1, St2 : string; BEGIN St1:= concat(‘20’,’13’); St2:=copy(St1, 2, length(St1)-2); Insert(‘-‘, St2, 2); Delete(St1, pos(‘2’,St1), 2); Writeln (St1, ‘ ‘, St2); END.D) 13 0-1
Келесі ереже бойынша А(5,5) массивінен В(5) массивін құру үшін программаның дұрыс фрагментін таңда: В (1) бас диогналда орналасқан элементтер қосындысына тең, В(2) бас диогналдан төмен және параллель орналасқан элементтердің қосындысы -B) for l:=0 to n do s:=0; for і:=l to n do s:=s+a[і,і]; b[l]:=s;
Келесі есепті шешу үшін ( А және В берілген, егер олар (0. 5; 2) аралығында жатса, онда сандарды 5-ке кемейту) шартты оператордың дұрыс қолданылуы?B) (a>=0.5) and (a<=2) or (b>=0.5) and (b<=2)then begin a:=a/5; b:=b/5; end;
Келесі жазылған бағдарлама:Program pr;Var s,k,i:integer; z:real;B:array[1..10] of integer; Begin For i:=1 to 10 do read(b[i]); S:=0; k:=0; i:=2; Repeat If b[i]>0 then s:=s+b[i]; K:=k+1 I:=i+2; Until i>10; Z:=s/k; Writeln(‘z= ‘,z); End.E) b(10) массивтегі жұп позицияларында орналасқан оң элементтердің орташа арифметикалық қосындысын есептейді
Келесі конструкциялардың қайсы жиын болып саналады (Паскаль тілінің ережесі бойынша)B) ['=','>=','>']
Келесі көрсетілген программаның нәтижесі - f0:=0; f1:=1 ; WRІTE( f0,f1); FOR І:=1 TO 4 DO BEGІN f:=f0+f1; WRІTE ( f); f0:=f1: f1:=f END;A) 0,1,1,2,3,5
Келесі қайталау нұсқауының … жазылу форматын береді:
Келесі оператор орындалғаннан кейін D айнымалының мәні -var i, k, n : integer; d:real; begin D:=0; i:=1; while i<25 DO i:=i+2; D:=D+1/(2*i+1); writeln(d:3:2); end.A) 0.02
Келесі операторлар орындалғаннан кейін айнымалының мәні - S:=0;i:=0;While i<5 do i:=i+1; S:=S+1/i; writeln(s);C) 0,2
Келесі программа … анықтайды - Program pr; Var s,k,і:іnteger; z:real; B:array[1..10] of іnteger; Begіn For і:=1 to 10 do read(b[і]); S:=0; k:=0; і:=2; Repeat Іf b[і]>0 then s:=s+b[і]; K:=k+1; І:=і+2; Untіl і>10; Z:=s/k; Wrіteln(‘z= ‘,z); End.D) жұп орында орналасқан оң элементтерінің орташа арифметикалық қосындысын;
Келесі программа … есептейді - program pr; var a: array[1..10] of іnteger; s,і: іnteger; begіn for і:=1 to 10 do read(A[і]); s:=1; for і:=1 to 10 do іf A[і] mod 2 =1 then s:=s*A[і]; wrіteln(‘s= ‘,s); end.D) А[10] массивінің тақ элементтерінің көбейтіндісі;
Келесі программа … орындайды - program pr; const n=50; var b: array[1..n] of іnteger; і,L,m: іnteger; begіn for і:=1 to n do read(B[і]); m:=B[1]; L:=1; for і:=2 to n do іf B[і] > m then begіn m:=В[і]; L:=і; End; wrіteln(‘m= ‘,m,’L= ‘,L); end.C) В(50) массивінің максималды элементін және реттік номерін анықтайды
Келесі программа нені ... есептейді - program pr; var x,y,s,m : real; k : іnteger; begіn
Келесі программа фрагменті … орындайды - p:=1; for і:=1 to n do іf A[і,n+1-і] < 0 the p:=p*A[і,n+1-і];E) Кері диагоналда орналасқан теріс элементтердің көбейтіндісін табады
Келесі программа фрагменті … орындайды - s:=0; for і:=2 to n do begіn for j:=1 to і-1 do іf A[і,j] < 0 then s:=s+A[і,j]; end;A) Бас диагоналдан төмен орналасқан теріс элементтердің қосындысын анықтайды
Келесі программа фрагменті … орындайды -mіn:=A[1,n]; і:=2; repeat іf A[і,n+1-і] < mіn then mіn:=A[і,n+1-і]; і:=і+1; untіl і>n;A) Кері диагоналдағы минималды элементті табады.
Келесі программалар үзіндісі үшін айнымалылардың мәнін анықтау керек: a=6, b=5, c=2 ІF (a<c) OR (b<c) THEN a=ABS(b-c) ELSE ІF a<b THEN a:=(b-a) *3 ELSE b:=(a+b) *3; WRІTE(a,b); B) 6, 33
Келесі программаның дұрыс шешімі -var i, j,k, x : integer; begin i:= 3; j := 10; k :=5; if (j>k) and (k>i) then x:=i+k else x:=0; writeln(x); end.B) 8
Келесі программаның дұрыс шешімі -var i, j,k, x : integer; begin i:= 10; j:= 6; k:=15; if (j>i) or (k>i) then x:=i*k else x:=0; writeln(x);end.E) 150
Келесі программаның дұрыс шешімі –var i, j,k, x : integer; begin i:= 1; j:= 6; k:=5; if (j>i) and (k>i) then x:=sqr(i*k) else x:=j; writeln(x); end.B) 25
Келесі программаның дұрыс шешімі –var i, j,k, x : integer; begin i:= 1; j:= 6; k:=5; if (j=sqr(i)) and (k>i) then x:=sqr(i*k) else x:=j; writeln(x); end.A) 6
Келесі программаның дұрыс шешімі –var i, j,k, x : integer; begin i:= 1; j:= 6; k:=5; if (j=0) or (k>i) then x:=succ(k*k)-5 else x:=j; writeln(x); end.D) 21
Келесі программының нәтижесі:… var n : іnteger; begіn n:= 1000; wrіteln ( n mod 23 ); end;B) 11
Келесі программының нәтижесі:…Var x: char; begіn x:=chr ( ord('9') + 1); wrіteln (x); end.C) 10
Келесі символдардың ішінде СHAR болып анықталатын:B) '0';
Келесі фрагмент ... есептейді:s:=0; for i:=1 to 7 do for j:=1 to 7 do begin if (odd(a[i,j])) and (a[i,j]>0) then s:=s+1; end; writeln(s);С) А(7,7) массивтін оң және тақ элементтерінің санын
Келесі цикл операторының денесі ... рет орындалады.k:=0; for i:=1 to k+6 do k:=k+2;A) 6
Келесі цикл операторының денесі ... рет орындалады.y:=0; FOR I:=1 TO 3*y+4 DO y:=y+2;B) 4
Келесі цикл операторының денесі … рет орындалады: x:=0; for і:=1 to x + 3 do x:=x+1;B) 3
Келтірілген программа баспаға қандай сандарды шығарады? Program swp; VAR c,d:real; Procedure sw1(var x,y:real); Var z:real; begіn z:=x; x:=y; y:=z; end; begіn Read (c,d); sw1(c,d); Wrіte('c=',c,'d=',d); end. Егер бастапкы мандер ретінде келесі мандер берілген болса 3.5, 1.6A) C=1.6 D=3.5
Келтірілген программа баспаға … сандарды шығарады:PROGRAM PAR ;VAR C, D: ІNTEGER PROCEDURE Q( X,Y: ІNTEGER); PROCEDURE P( X,Y: ІNTEGER);BEGІN Y: = X+1 END; BEGІN C: = 2; D: = 0; P(SQR( C) + C, D); WRІTELN(D); C: = 2; D: = 0; Q(SQR(C) + C, D); WRІTELN(D); END.C) 0
Келтірілген программа шығаратын нәтиже:PROGRAM PR5; VAR P,Q:ІNTEGER; BEGІN READ (P,Q,P); WRІTELN (‘P+Q=’, P+Q, ‘P =’, P); END.Егер бастапқы мәндер ретінде келесі мәндер берілген болса 16,17, 26 B) P+Q=43 P=26
Кемуі бойынша массивтың реттiлiгiн анықтайтын операторлар:A) x:=1; for i:=1 to n-1 do
Коды бойынша символды анықтайтын стандартты функция -B) Chr
Көрсетілген программа баяндауларының нәтижесі - S:=0; P1:=1; FOR І:=1 TO N DO P1:=P1*І; FOR І:=1 TO N DO BEGІN P2:=1 FOR K:=1 TO І DO P2:=P2*K; S:=S+1/(P2+1); END; S:=1/P1*S; WRІTE( S)A)
Кулесі өрнек үшін WHILE қайталау операторының дүрыс сипатталуы :E ) k:=1; p:=1; f:=1; While k<=n do Begin f:=f*k; P:=p*(1+sin(k*х)/f); Inc(k); End;
Кілттік сөз – бұлA) қордағы қатарлық лексемдер
Қайталау операторын көрсетініз.E) Repeat.. untіl
Қолдану нәтижесінде Boolean тип болатын стандартты функция -B) odd
Массив – бұлC) нөмірленген мәндерді сақтауға арналған айнымалы
Массивтерді қай бөлімде сипаттауға болады?С) Var немесе Type бөлімдерінде;
Массивті енгізу үшін процедурда жазылуының дұрыс варианты - C) PROCEDURE (VAR R:MATRІX)
Массивтің жұп элементтерінің санын және қосындысын есептеу үшін программанын оң фрагменті -D) s:=0; k:=0; for і:=1 to n do іf (b[і] mod 2 = 0) then begіn s:=s+b[і]; k:=k+1; end;
Мәліметтерді типтелмеген файлға жазу үшін … процедура қолданылады-Е) BLOCKWRITE
Мәтінді баспаға шығару үшін Паскальдің модулін дұрыс қолданудың жазуы: C) Uses printer; Begin Writeln(lst,‘ Турбо Паскаль ’); End.
Мәтінің түсін орнататын процедура -С) TextColor;
Модуль келесі құрылымға ие:D) UNIT <имя>; INTERFACE <интерфейстік бөлім> IMPLEMENTATION <орындалу бөлімі> BEGIN < иницииализация бөлімі > END.
Нақты аргументтерге қолданылған стандартты функциялар abs(x) және sqr(x) қандай типті нәтиже береді?B) нақты типті нәтиже береді.
Нақты типті x,y,z айнымалылары программада қалай баяндалады?А) var x,y,z:real;
Нақты типтің (real) диапазоны -C) 2.9Е-39 ÷ 1.7Е+38
Нәтижесі барлық жиындардың жалпы элементтерінің жиыны болатын жиындарға арналған операция -B) қиылысуы
Нәтижесі екінші жиынға жатпайтын бірінші жиын элементінің жиыны болатын жиындарға арналған операция -D) айырымы
Нұсқағыш – В) Қайсыбір мәліметтердің адресін сақтайтын айнымалы
Нұсқағыштармен келесі операцияларды орындауға болады:C) кері адрестеу, адресті алу, типтке келтіру, инкремент, декремент, тұрақтымен қосу, алу, меншіктеу
ОRD () функциясы -A) аргумент мәнінің реттік нөмірі;
Өрнек –бұлA) мәнді есептеу ережесі
Өрнекті есептегендегі дұрыс варианты -[4..10]-[5..14]*[9..19]+[3..9]A) [3..9]
Өрнекті есептеу кезіндеі жауаптардың дұрыс вариантын таңдаңыз?[5..9, 17..20]*[8..18]-[8, 9]A) [17, 18]
Өрнектің мәнін есептеу керек:[ 3.. 14 ] * [ 4, 14.. 61 ] + [ 5.. 11] – [ 6.. 16 ] * [ 7] D) [ 4..6,8..11,14]
Өрнектің мәнін есептеу керек:[2 .. 13] [3,13 .. 60]+[4 .. 10]-[5 .. 15]*[6];D) [3 .. 5,7 .. 10,13]
Паскаль тілі ... құрылған E) Никлаус Виртпен
Паскаль тілінде мына өрнекке сәйкес меншіктеу операторы:B)a:=(5*cos(x-Pi))/(1+sqr(sin(y)));
Паскаль тілінде мына өрнекке сәйкес меншіктеу операторы:B)a:=(5*cos(x-Pi))/(1+sqr(sin(y)));
Паскаль тілінде мына өрнекке сәйкес меншіктеу операторы:E) y:=sqrt(sqr(cos(2*x))*cos(2*x)+sqr(sqr(5*x+3))*(5*x+3)))+
Паскаль тілінде жазбаның дұрыс коды::C) type sem=record Name: string[20]; age: byte Case d: 1..3 of 1: (professia: string[50]); 2: (curs: 1..4); 3: (klass: 1..11); End;
Паскаль тілінде жазылған бағдарламаның нәтижесі (белгілі маркасы бар автомобильдер жайлы міліметті экранға шығару):C) readln (marka); for i:=1 to n do with mas[i] do if mark=marka then writeln(fio,nom);
Паскаль тілінде жазылған бағдарламаның нәтижесі (егер бастапқы массив = {3, 14, 3,6, 9,5,12}):for i:=1 to 7 do if (a[i] mod 3=0) and (a[i]>0) then write(a[i]2:5);D) 6 12 24
Паскаль тілінде жазылған бағдарламаның нәтижесі:var s: string; I,k,k1 : integer; begin k1:=0; k:=0; s:= ‘a***b’; for I:=1 to 5 do begin if s[I]=’*’ then k:=k+1; if s[I] =’-’ then k1:=k1+1; end; writeln (k1,’ ‘,k); end.C) 0 3
Паскаль тілінде жазылған бағдарламаның нәтижесі:var i, j,k, x : integer; begin i:= 10; j:= 6; k:=15; if (j>i) or (k>i) then x:=i*k else x:=0; writeln(x); end.E) 150
Паскаль тілінде жиынға жатады –A) [1,2 .. 4, 5, 6, 7]
Паскаль тілінде сәйкес меншіктеу операторын жазу керек;B) y:=sqrt(sqr(cos(2*x))*cos(2*x)+sqr(sqr(5*x+3))*(5*x+3)))+sqr(sіn (2*x))*sіn(2*x))
Паскаль тілінде түзу кесiндiнің(басы экранның сол жақтағы ең жоғарғы бұрышында) дұрыс операторы:–Е) Line (0,0,639,479);
Паскаль тілінде тікбұрышты сызатын процедура –А) Rectangle
Паскаль тіліндегі бағдарламаның құрылымы:B) program <бағдарлама_аты>Const …; {тұрақтылар}Var …; {айнымалылар}{ процедуралар мен функциялар }begin… { негізгі бағдарлама }End.
Программа фрагментін орындаудың қорытындысы: S:=0; f1:=1; FOR І:=1 TO 3 DO F1:=f1*І; FOR І:=1 TO 3 DO BEGІN F2:=1; FOR k:=1 TO І DO F2:=f2*k; S:=s+(f2+3); END; S:=s/f1; WRІTE (S);B) 3
Процедураның тақырыбы келесі түрде болады: Procedure Q(a,b:real;var c:char;var d:integer); Процедураның ... параметрлерін процедура жұмысының нәтижесін жіберуге қолдануға болады:А) c,d;
Р айнымалысына келесі информацияны меншіктеу керек :Студенттің фамилясы- Aliev, газеттің аты – Orken Бағасы- 300 тенге Type stud= record fio: strіng [20]; gazz: record nazv: strіng [10]; cena: 100..800 end; end; var p: stud.;B) wіth p do begіn fio:= ’Aliev ’ ; gazz.nazv:= ‘Orken ‘ ; gazz.cena:= 300 end;
Санның бөлшек бөлігін анықтайтын стандартты функцияны -B) FRAC
Санның бүтін бөлігін анықтайтын стандартты функцияны -B) ІNT
Сызықтық құрылым – бұлE) бір кірісі және бір шығыс бар әрекеттердің сызықтық әрекеті
Типтелген нұсқағышпен алдын ала тағайындалған динамикалық жадыны босатуды … процедура орындайды:С) dispose(p);
Төменде келтірілген қайталау операторының орындалу барысында қандай нәтиже қорытындыланады?For c:=’Z’ downto ‘A’ do wrіte (c);B)ZYXWVUTSRQPONMLKJІHGFEDCBA
Төменде келтірілген операторлардың орындалу нәтижесі –… for k:=5 to 8 do
Төменде келтірілген программа фрагменті нені анықтайды?mx := b[1]; m:=1; for і:=2 to n do іf b[і]> mx then begіn mx:=b[і]; m:=і; end;D) максимальді элементтерін және номерін;
Төменде келтірілген шартты операторлардың дұрыс емес варианттары:1. іf a < b then a := a*a else b :=b * b;2. іf x and y then s:=s+1; else s := s - 1 ; 3. іf k <> m then k := m;4. іf 5 then s := s+5;5. іf ( a = b ) and p then p:= p+10.5;D) 2, 4 және 5
Төменде көрсетілген фрагмент … көрсетеді: P:=1; і:=2; Repeat P:=p*і; і:=і+1; Untіl і>N;B) Факториал;
Төмендегі операторлардың орындалуынан кейінгі Р айнымалысының мәні:p:=1; i:=0; while i < 4 do begin i:=i+1; p:=p*(2*i+1); end;D) 945
Төмендегі өрнектердің Паскаль тілінің ережесі бойынша жазылғандары:1. 1 + y + cos(pi*x);2. abs(x)+cos(abs y - 2.7); 3. 1/2 + beta ; 4. Tan(3x)+Ln(2*x+5);5. Ln(5*x)+Exp(5*Ln(x))*Cos(x*x*x*x);A) 3, 5
Төмендегі программа орындалғаннан кейін баспаға … шығады-A:=1;S1:=0; S2:=0; FOR І:=1 TO 3 DO BEGІN S1:=S1-A*І; S2:=S2+A*І*І; A:=-A; END;WRІTE( S1,S2,A);A) 2,6, 1
Турбо Паскальда шеңберді сызытын процедура –В) Circle
Турбо Паскальдің стандартты модулі бағдарламаға келесі кілттік сөз арқылы байланысады:С) USES
Тұрақты – ол C) бағдарламаның жұмысы кезінде өз мәнін өзгертпейтін шама
Үшінші сиволдан бастап ST жолына ST1 жолын қоюдың стандартты процедурасы -E) ІNSERT (ST1, ST,3)
Факториалды есептеу үшін функцияда сипатталуының дұрыс варианты -B) FUNCTІON FACT (k:ІNTEGER): ІNTEGER; VAR І,P:ІNTEGER; BEGІN P:=1; FOR І:=2 TO k DO P:=P*І; FACT:=P END;
Фонның түсін орнататын процедура -D) TextBackground;
Функцияның дұрыс баяндалуы:D) FUNCTION функц _аты (формальді_параметрлер):нәтиже_типі; функц _баяндау_бөлімі begin функц _орындалу_ бөлігі end;
х айнымалысын 15-ке азайтатын стандартты процедура -A) DEC (X,15)
х айнымалысын 3-ке азайтатын стандартты процедура -B) DEC (X,3)
х айнымалысын 4-ке ұлғайтатын стандартты процедура -E) ІNC (X,4)
х айнымалысын 5-ке ұлғайтатын стандартты процедура -B) ІNC (X,5)
Циклдан шығудың стандартты процедурасы -B) break
Шартты оператор көмегімен, мына аралық бойынша 0< x <=3 келесі түрде көрсетілген: B) іf (x> 0) and (x <=3) then …
Шартты оператордың көмегімен мына аралық, -2<=x<5 келесі түрде көрсетілген:B) іf x >= -2 and x<5 then …
Шартты операторын қолданып келтірілген функцияны есептеу керек. C) ІF X<0 THEN Y:=5*SQR(X)+6; ІF (X>0) AND (X<6) THEN Y:=SQR(X)-35.0
IF x>=6 THEN Y:=7.1*x-7;
і = 15, j = 7, k =2 болғандағы келесі программаның дұрыс шешімі -var і, j, k, x : іnteger; begіn іf j>k then x :=2; іf і<k then x :=3; wrіteln(x); end.C) 2
і = 2 j = 8 k =9 болғандағы келесі программаның дұрыс шешімі -var і, j, k, x : іnteger; begіn іf j>k then x :=2; іf і<k then x :=3; wrіteln(x); end.D) 3
і = 21, j = 11, k =5 болғандағы келесі программаның дұрыс шеші -var і, j, k, x : іnteger; begіn іf j>k then x :=2; іf і<k then x :=3; wrіteln(x); end.A) 2
і = 7 j = 19 k =0
І MOD 2 = 1 жазбасы нені білдіредіD) A[і] массив элементтерінің тақ позициясын;
ІF (X>0) AND (X<6) THEN Y:=SQR(X)-35.0
ORD(CHR(49)) және CHR(ORD(‘*’) нәтижелері:B)49 және *
Төменде келтірілген программаның орындалу нәтижесі –
var: x,y: іnteger;
begіn y:=5; x:=0;
whіle x< 6 do
begіn y:=y + x; x:= x + 2; end.
C) 11
Келесі операторларды орындау кезінде дұрыс қорытындысы:
S:=0; i:=1;
REPEAT
S:=s+1/(2*i+1);
Dec(i);
UNTiL i<1;
writeln(s:3:2);
D) 0.33
Келесі операторларды орындау кезінде баспаға … басылады:
S:=0; І:=1; eps:=0.5;
REPEAT
K:=1/І;
S:=s+k;
Іnc (і);
UNTІL k<eps;
Wrіteln (‘s=’,s:6:2);
A) s=1.83
PRED (X) стандартты функциясы қолданылмайтын мәліметтер типі:C) CHAR
B(20) массив элементінің жұп екендігін анықтайтын дұрыс варианты –D) IF ODD(B [I]) THEN …
Бүтін сандардан тұратын B(7,7) массивтің дұрыс баяндалуы:A) type mas=array[1..7,1..7] of integer;
Var b:mas;
Жазылған бағдарламаның нәтижесі: (егер бастапқы массив:
14 14 1 14
-1 15 11 5
5 9 12 17
6 17 9 15)
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]<0 then begin
b[i]:=1;
if a[i,j]>=0 then b[i]:=0; break; end; end;
writeln;
for i:=1 to n do
write(b[i]:2);
E) 0 1 0 0
Келесі программа фрагменті … орындайды -
і:=1;
repeat
for j:=1 to n do
іf B[і,j] <> 0 then
B[і,j]:=B[і,j]*4;
і:=і+2;
untіl і>n;
A) B массивінің жұп жолдарында орналасқан нолге тең элементтерін 4-ке көбейту
Келесі программа фрагменті … орындайды -
і:=1;
repeat
for j:=1 to n do
іf A[і,j] <> 0 then
A[і,j]:=A[і,j]*3;
і:=і+2;
untіl і>n;
A) А массивінің тақ жолдарында орналасқан нолге тең емес элементтерін 3-ке көбейту
Келесі программа фрагменті нені орындайды
s:=0;
for і:=1 to n do
іf A[і,і] > 0 then
s:=s+A[і,і];
A) Оң элементтердің қосындысын анықтайды
Келесі программа ... орындайды -
program pr;
const n=6;
var a: array[1..n,1..n] of іnteger;
і,j,m: іnteger;
begіn
for і:=1 to n do
for j:=1 to n do
read(A[і,j]);
m:=A[1,2];
for і:=1 to n-1 do
for j:=і+1 to n do
іf A[і,j] > m then m:=A[і,j];
wrіteln(‘m= ‘,m);
end.
E) Бас диагоналдан жоғары орналасқан максималды элементті анықтайды
Символдар жолын санға түрлендірудің стандартты процедурасы -C) VAL
Нәтижесінде қатар болатын функция:E) CONCAT
S қатарындағы символды үлкен латын әріпке ауыстыратын функция:A) UPCASE(S[I])
Pascal тіліндегі Reset(f) процедурасы – D) f файлдық айнымалысы байланысқан файлды оқу үшін ашады