Инф олимпиада doc
жүктеу/скачать 91,93 Kb.
|
1544775476 (1)
- Бұл бет үшін навигация:
- Begin Write (‘katardin manin engiz:’);Readln (X); For K:= 1 To Length (X) Do If X[K]=’a’ Then Begin N:=N+1;X[K]:=’b’ End;
| Y:=Copy(X,N,M);
A:=Copy(X,1,3);B:=(X,10,8);C:=Concat(A,B); Writeln (Z,’’,Y,C); Readln End. 20.Х жолдық қатарында кездесетін ‘a’ символдарын санап,оларды ‘b’ символымен ауыстыру программасын құрыңыз. Program Kat20; Var X:String;K,N:Byte; Begin Write (‘katardin manin engiz:’);Readln (X); For K:= 1 To Length (X) Do If X[K]=’a’ Then Begin N:=N+1;X[K]:=’b’ End; Writeln (‘Katardin gana mani X=’,X’,katarda’,N,’’’a’’ simvoli boldi’); Readln End. Тест сұрақтары 1.Turbo Pascal-да жолдық қатарларға компьютердің жадынан қанша орын беріледі? а)6-16. байтқа дейін. б)0-255 байтқа дейін. с)155-255 байтқа дейін. д)500 байтқа дейін. е)1000 байтқа дейін. 2.Жолдық қатарлардан тұратын идентификаторлар қай тип арқылы сипатталады? а)Byte. б)BOOLEAN. с)String. д)integter. е)real. 3.Сперандалары жолдық қатар болып табылатын өрнектерді ..... деп атаймыз. а)Айнымалы өрнектер. б)Қатарлық өрнектер. с) Сперандалық өрнектер. д)Жолдық өрнектер. е)Жолдық қатарлар. 4.Жолдық қатарлардың ұзындығын есептеу үшін қай функция қолданылады? а)Concat. б)Copy. с) Length. д)Val. е)Upcase. 5.Жолдық қатарларға бір фрагмент қосу үшін қай процедура қолданылыды? а)delete. б)insert. с) Length. д)pos. е)Upcase. 6.кез келген сандық шаманы бір жолдық қатарға қою үшін қай процедура қолданылыды? а)Str б) Val. с) Length. д)Pos. е)Arrey 7.Қатар программалауда жолдық қатарлар қандай шамалар ретінде қолданылады? а)Айнымалы. б)Тұрақты. с) Идентификаторлар. д)Өрнек шамалары. е)Жолдық. 8.Ұзындық мәніне қанша интервал беріледі? а)1 символ. б)2 символ. с) 3 символ. д)4символ. е)89символ. 9.Өрнектерде жолдық қатарлар қалай жазылады? а)Жақшамен. б)2 Тырнақша арқылы. с) Апостровқа алынып. д)Керісінше. е)Бас әріппен. 10.Программада кездесетін әр түрлі символдан тұратын тізбектер? а)Айнымалыр. б)Тұрақтылар. с) Идентификаторлар. д)Өрнек шамалары. е)Жолдық қатарлар. Тест есептері 1. Мына программа қандай нәтежие береді? А:=’менің’; B:=’Қазақстанымның’; X:=’тәуелсіздігіне’; X:=’10жыл’; Z:=X+’+Y’; Writeln(Z); а)Тәуелсіздігіне. б)10 жыл. с) Қазақстаным. д) Тәуелсіздігіне 10 жыл. е)Менің Қазақстаным. 2.Берілген прогамманы аяқтап, қатардың ұзындығын тап. Program kat; Var Z:string;A:integer: Begin Z:=’компьютер’ Writeln (‘A=’,A);readln end. а)A:=length(z); 8. б)Y:= length(z); 10. с) Z:=val(z); 7. д) F:=concat(z); 6. е)E:= val(z); 7 3. Мына программа қандай нәтежие береді? Program kat; Var Х,А:string; Begin Х:=’pentium-III’;A:=copy(X,1,7); Writeln (‘A=’,A);readln end. a)Pen. б)Pentium-III. с) Pentium . д) Tium. е) Pentium-I. 4. Мына программа орындалғанда қандай сөз шығады? Program kat; Var Х,А:string;N:=byte; Begin N:=3;X:=’innet’;A:=’ter’; Insert(A,X,N); Writeln (‘X=’,X);readln end. a)Inter. б)Net. с) Internet. д) Innet. е)Ternet. 5.Төмендегі программаның қызметі қандай? Program kat; Var Х,А:string;К:=byte; Begin Х:=’Қызылорда’;For K:= 1 to length(x) do X[K]:=upcase(X[K]); Writeln (‘X=’,X);readln end. a)Орда сөзі шығады. б)Сөздерді буынға бөледі. с) Керсінше аударады. д) Кіші әріптерді бас әріке айналдырады. е)Сөзді тасмалдайды. 6. Төмендегі программаның қызметі қандай? Program kat; Var Х:string;N,М:=byte; Begin readln (N,M)X:=’колледж’; Delete(X,N,M); Writeln (‘X=’,X);readln end. a)N-ші позициасынан бастап М символын өшіреді. б)М- позициясынан бастап N символын өшіреді . с) Х қатарын көшіреді. д) Х қатарындағы сөздерді буынға бөледі . е)Х қатарын М қатарына ауыстырады. 7. Мына программа қандай нәтежие береді? Program kat; Const Y:=’гимн’; Var Х,A:string;N,М:=byte; Begin X:=’азия’;А:=concat`(Y,X); Writeln (‘A=’,A);readln end. a)Наз. б)Назия. с) Гимназия. д) Гимн. е)Азия. 8. Мына программа орындалғанда қандай сөз шығады? Program kat; Var A:string;N,М:=byte; Begin readln X:=’Облыстық гимназия’ Delete(A,N,M) Delete(’Облыстық гимназия’,10,4); Writeln (‘A=’,A);readln end a) Облыстық гимн. б)Облыстық азия. с) Гимназия. д) Обылыс наз. е)Азия. 9. Төмендегі программаның қызметі қандай? Program kat; Var Х,Y,S:string;A:integer; Begin A:=134;S=’tu’str(A, X);Y:=S+X; Writeln (‘Y=’,Y);readln end а)Жолдық қатарды А нақты санына айналдырады. б) А нақты санын Х жолдық қатарына айналдырады. с) Сандарды сөзбен жазады. д) Сөзді санға айналдырады. е)Барлық жауап дұрыс. 10. Төмендегі программаның қызметі қандай? Program kat; Var X:char;K:byte; Begin Х:=’t’;X:upcase(X); Writeln (‘X=’,X);readln end a) Кіші әріпті бас әріпке айналдырады. б)Бас әріпті кіші әріпке айналдырады. с) Неше символ бар екенін анықтайды. д) Х қатарының ұзындығын анықтайды. е) Х қатарының орнын анықтайды Тапсырмалар Пернетақтадан енгізілген қатардағы барлық әріптер санын табу программасын құрыңыз. Жолдық қатардан фрагмент қалай көшіруге болады? Қазақстан сөзінен бес түрлі сөз шығатын программа жаз. Оқу,кітап,ине,қаз,алғандай,менің сөздерін пайдалана отырып ,қазақтың “Оқу инемен құдық қазғандай”мақалы шығатын программа құр. Пернетақтадан енгізілген қатардағы ең ұзын сөзді табыңыз.Қатардағы сөздер бір-бірімен бос орын арқылы жазылады деп есептеңіз. Европа және гимназия сөздерін пайдалана отырып Евразия сөзі шығатын программа жаз. Қазақстан сөзінен қазан сөзін шығаратын программа жаз. Жолдық қатарындың ішінен қол сөзін өшіретін программа жаз. А қатары берілген.Қатардың жұп нөмірлі орындарында тұрған символдарын өшіріп тастау программасын құр. 10.Екі А және В жолдық қатары берілген.Ақатарынан В қатарында кездесетін символдарды алып тастау программасын құр. жүктеу/скачать 91,93 Kb. Достарыңызбен бөлісу:
|