Массивтер. Ашық типті жолдар

Мазмұны :
Кіріспе ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...3

1.Массивтер ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..4
1.1. Массивтер түрлері ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..4
1.2. Массивтердің параметрлері ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..5

2.Ашық типті жолдар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 6
2.1.Жолдық қатарлар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .6
2.2.Жолдық өрнектермен амалдар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 7
2.3.Жолдық процедуралар мен функциялар ... ... ... ... ... ... ... ... ... ... ...8
2.4.Жолдық қатарларға программа құру ... ... ... ... ... ... ... ... ... ... ... ... .13

3. Турбо Паскаль тілінің қазіргі кездегі қолданылуы ... ... ... ... ... ... ...18

Қорытынды ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 19
Әдебиеттер тізімі ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 21
Қосымшалар ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...23
        
        Мазмұны :
Кіріспе
............................................................................
...........................3
1.Массивтер
............................................................................
..................4
1.1. ... ... ... ... ... ... ... ... ... ... ... ... тілінің қазіргі ... ... тілі ... ... оқып-үйренуге жеңіл, түрлі салалық
информациямен жұмыс істеуде нәтижелі болғандықтан, дүние жүзінде ... ... ... Pascal ... ... ... тілдер сияқты өзіне тән алфавиті
бар.
Жоғарғы деңгейлі программалау тілдерінің бірі − Паскаль. ... ... ... ... ондаған диалектісі бар, оның ішінде IBM
PC-ге үйлесімді ... ... ... ... алатын Турбо Паскаль
диалектісінің варианттары да жеткілікті.
Turbo Pascal жүйесінде қарапайым есептерді ... ... ... ... қорын құрудың сан қырлы жұмыстары жүргізіледі.
Паскаль тілі бұрын құрылған (Фортран, Алгол және т.б.) ... ... ... ол ... программалау идеясын өмірге
біртіндеп енгізу.
1. Массивтер
1.1 Массивтер түрлері
Borland Pascal ... ... ... ретінде беріліп отырған кез
келген массивтің ... ... ... керек. Соған орай, параметр-
массивтерден ... ... мен ... ... ... ... ... шектеледі. Берілген шектеулікті алдырту үшін –
ашық массивтерді қолдану керек.
Ашық массивтер – индекс типі ... ... ... жазылым
конструкциясы.
Берілген анықтама бағдарламаның формалды параметрлерін сипаттауда
ғана мүмкін. Ашық массивтерді ... ... ашық ... ... ... ... ... нөлден басталады. Массив параметрінің
шынайы элемент саның екі ... ... ... ... ... ... ... беру;
2. арнайы функцияларды қолдану.
Массив элементтерін `МayFile5.in` файлына жазу процедурасының ... ... ... text;
begin
{нақтылы файлмен айнымалы
арасындағы байланыс}
assing (FileOut,`mayFile.in`);
{файлды жазуға дайындау}
rewrite(FileOut);
{массив өлшемдерiн жазу және курсорды жаңа жолға ... ... ... i=1 to JolSany ... элементтерiн бос орын арқылы жолға жазу}
for j=1 to BaganSany do
write(FileOut,San[i,j],``);
{j-циклiн аяақтаған соң, ... жаңа ... ... ... ... ... () – қарапайым массив үшін массив
индексінің жоғарғы ... ... ашық ... үшін – ... ... () – ... массив үшін массив
индексінің жоғарғы шегін қайтарады, ашық массив үшін – нөль.
2 Ашық типті жолдар.
2.1 Жолдық қатарлар.
Программаларда кездесетін әр ... ... ... ... ... деп ... Өрнектерде жолдық қатарлар апострофқа алынып
жазылады.
Turbo Pascal-да жолдық қатарларға компьютердің жадынан 0 байттан 255
байтқа дейін орын ... ... ... ұзындығына – 255 символ,
ұзындықтың мәніне – 1 символ).
Жолдық ... ... ... String типі ... Идентификатордың типінен кейін тік ... ... ... ... мәні неше ... тұруы мүмкін екені
көрсетіліп кетеді. Егер бұл мән көрсетілмесе, онда ... ... ... ... 255 ... дейін орын беріледі.
Жолдық қатарлы идентификаторды типтер бөлімінде (TYPE) немесе ... ... (VAR) ... ... ... қатар программалауда
жолдық қатарлар тұрақты ... ... де ... ... ... ... сипатталу мысалдары:
PROGRAM Katarlar;
CONST S=’Қайсар’; {S тұрақтысы Қайсар тіркесіне тең }
TYPE Gumn=String [10];
VAR X: String [17]; {Х ... ... 17 ... ... String [6]; ... ұзындығы 6 символға дейін}
B: String; {В ... ... 255 ... ... Gumn; {C айнымалысының ұзындығы 10 символға дейін}
2.2 Жолдық өрнектермен амалдар.
Операндалары жолдық қатар ... ... ... ... деп ... ... ... айнымалылардың мәнін беру
үшін меншіктеу операторы ... Егер ... ... ... саны ... бөлімінде көрсетілген шамадан
асып кетсе, онда идентификатор қатардың сол жағынан бастап көрсетілген
шамаға тең ... ... ғана ... ал оң ... ... ... қалады.

VAR X: String [4]
Begin X:=’Gymnazy’ {Х-ке ‘Gymn’ тіркесі ғана меншіктеледі}
Writeln (X);

Жолдық қатарлармен біріктіру және салыстыру ... ... ... амалы бірнеше жолдық қатарды біріктіріп шығару үшін
қолданылады. ... ... ... ... ... ... B:=’Қазақстанымның’;
Writeln (A+’ ‘+B) {Менің Қазақстанымның – ... ... ... ‘+Y; {Z ... 10 жыл- тіркесін меншіктейді}
Writeln (Z); {де, осы ... ... ... ... салыстыру амалы екі жолдық қатарды салыстыру ... ... ... ... оңға ... ең ... ... емес символға дейін жүргізіледі. Егер қай жолдың қатардың ... ... ... ... ... ... нөмірі үлкен
болса, сол жолдық қатар үлкен деп ... Егер ... ... мен ... символдары сәйкес келсе, олар тең деп ... ... ... қатардың ұзындықтары әр түрлі болып, ал символдары сәйкес ... онда ... ... ... ... жолдық қатар есептеледі. Жолдық
қатарлардың салыстыру амалдарының нәтижесі әрқашан бульдік тип ... ... ... ... ... False}
‘Duron’ = ‘Duron’ ... ... ... ... = ... ... False}
2.3 Жолдық процедуралар мен функциялар.
Жолдық қатардың ұзындығын есептеу үшін LENGTH функциясы қолданылады,
нәтиженің типі 0-ден 255-ке дейінгі бүтін сан (Byte) ... ... (А); //Х ... А жолдық қатарының
ұзындығын
меншіктейді.
Writeln (LENGTH (А)); // экранға А жолдық қатарының
ұзындығы ... ... Х ... ... ... ... табылып,
ол бүтін сан болатын А идентификаторына меншіктелген:
PROGRAM Kat1;
VAR X:String; A:lnteger;
BEGIN X:= ... ... ... ‘А); Readln ... ... фрагмент көшіріп алу үшін COPY ... (A,N,M); //А ... ... N ... ... М ... ... алады.
Х:=COPY (‘Облыстық гимназия’, 10,4); //Х ... ... ... (COPY ... ... 10,8); //экранға гимназия сөзі
шығады.
Төмендегі программада Х қатарынан Pentium сөзі ... ... ... ... ... ... ... X,А:String;
BEGIN X:= ‘Pentium-lll’; A:=Copy (Х,1,7);
Writeln (‘A=’ ‘А); Readln END.
Жолдық қатарлар фрагменттерін біріктіру үшін CONCAT ... ... Х және А ... біріктіреді.
Writeln (Concat (‘Гимн ‘,’ Азия’, )); ... Гимн Азия ... ... //Y Гимн Азия ... программада жолдық қатар болып ... ... X ... ... ... А ... белгіленген
жолдық қатарға меншіктеледі:
PROGRAM Kat3;
CONST Y=’Input’ ; VAR X,A: String;
BEGIN X:=’Output’; A:=Concat (Y,X);
Writeln (‘A=’,A) ; Readln END.
Жолдық ... ... ... бір ... орнын анықтау
үшін РОS функциясы қолданылады.Бұл функция мәнінің типі бүтін және ... ... ... ... басталатын позиция нөміріне тең
болады. Ал егер жолда ... ... ... онда ... 0-ге ... ... (X,A); // Х ... А ... ... ... ... ... // ... 4-ке тең болады.
POS (‘зал’,’Гимназия’); // ... 0-ге тең ... ... Х ... Y ... ... ... сан болатын А идентификаторына меншіктелген.
PROGRAM Kat4;
CONST Y=’Input’ ;
VAR X: String;
BEGIN ... (X,Y) ; Writeln ... ; Readln ... ... бір ... өшіріп тастау үшін DELETE
процедурасы қолданылады, жазылуы:
DELETE (A,N,M) //А жолдық қатарының N ... ... M ... ... ... ... ... 10,4); // Облыстық азия тіркесі қалады
Төмендегі программада Х қатарының N – ші ... М ... ... ... X,A: String; N,M : ... Readln (N,M); ... (X,N,M) Writeln ... ; Readln END.
Жолдық қатарға бір фрагмент қосу үшін ... ... (A,X,N) // Х ... ... N-ші позициясынан бастап А
фрагментін қою.
Төмендегі ... Х ... 3 ... ... ... ... Х ... Internet мәніне өзгереді.
PROGRAM Kat6;
VAR X,A: String; N: Byte;
BEGIN N:=3 X:=’Internet’; A:=’Ler’;
Internet (A,X,N); Writeln (‘A=’,A) ; Readln ... ... кіші ... бас ... ... ... функциясы қолданылады.
UPCASE (X);// Х жолдық қатарындағы кіші әріптерді бас әріптерге өзгертеді.
Келесі программаларда Х символы (‘a’) мен Х ... ... ... бас ... айналдырылған:
1-ші программада
PROGRAM Kat7;
VAR X: Char ; K: Byte;
BEGIN X:=’t’; X:=Upcase (X);
Writeln (‘X=’,X); Readln END.
2-ші программада
PROGRAM ... X: String; K: ... ... For K:=1 To Length (X)Do ... (X[K]);
Writeln (‘X=’,X) Readln END.
STR процедурасы кез-келген сандық шаманы бір жолдық
қатарға қою үшін қолданылады, жазылуы:
STR (150,X); //150 саны Х ... ... ... орналасады.
Төмендегі программада А нақты санын Х жолдық ... әрі ... Х ... Y ... ... қолданылған:
PROGRAM Kat9;
VAR X,Y,S: String ; A: Integer;
BEGIN A:=134; S:=’TU’; Str (A,X); Y:=S+X;
Writeln (‘Y=’,Y); Readln END.
Жолдық ... ... ... ... үшін ... қолданылады, жазылуы:
VAL (X,A,C);
Төмендегі программада Х жолдық қатарын А нақты санына
айналдырып, әрі қарай А шамасы Yөрнегін есептеп табуда ... ... X: String ; Y,A : Real; C: ... ... ; Val (X,A,C); ... ... A:3:2); Writeln (‘Y=’, Y:3:2); Readln END.
2.4 Жолдық қатарларға программа құру.
1. Әр түрлі тіркестермен ... ... ... X,A: String; [17] ; Y,A,B,C: String ; N,M,Z,P: ... ... гимназия ‘;
Z:=Length (X); {ұзындығын анықтау}
P:=Pos (‘азия’,’Облыстық гимназия ‘);
Readln (N,M);
Y:=Copy(X,N,M); {жолдан фрагмент щйып алу}
A:=Copy(X,1,3); ... ... ... тізбегінен Облгимназия сөзін шығару}
Writeln (Z,’’,Y,C)
Readln END.
ә)
PROGRAM Katar2;
CONST X=’Облыстық’; ... A,B,C,D: String [15]; ... I,N: ... ... B:= ‘ Pentium -11’; ... ... ... үлкенін табу}
IF A>B Then D:=A Else D:=B;
IF D>C Then Writeln (I’ max =’, D) Else Writeln (‘max=’,=C)
K:=X+’’+Y; ... ... ... ... K=Concat (X,Y) Then Writeln ... Else ... (‘K ten emes X+Y’ ); Writeln (‘k=’,k) End.
Delete (A,8,2); ... ... алып ... ... (B,2,6); ... ... алып ... ... (‘pentium’, B,2); ... ... ... ... (Y,1,4); ... ... ... алу}
Writeln (‘K1=’,K);
I:=Pos (K,Y); {Y ... К ... ... ... ... ... ... ... (Concat (x,’ ‘,y)); ... біріктіріп шығару}
Writeln (‘a-max ‘, Upcase (‘a’)); {бас әріп етіп шығару}
Readln END.
2. Кез-келген ... ... ... ... ... бас әріпке айналдыру программасын құру.
PROGRAM Kat3;
VAR X: String; K: Byte;
BEGIN Write ... ... ... Readln ... K:=1 To ... Do ... ... (‘Қатардың жаңа мәні X=’, X);
Readln END.
3. Х жолдық қатарында ... ‘а’ ... ... ‘b’ ... ... ... құру.
PROGRAM Kat4;
VAR X: String; K,N: Byte;
BEGIN Write (‘Қатардың мәнін енгіз:’); Readln (X);
For K:=1 To Length(X) Do lf X[K]=’a’ ... N:=N+1; ... ... (‘Қатардың жаңа мәні X=’, X,’ қатарда ’, N, “а” символы болды’);
Readln END.
4. Х қатарындағы фигуралық ... ... ... алып ... ... программасы.
PROGRAM Katar6;
Type Katar= String;
VAR X: Katar; K,I: Byte;
BEGIN Write (‘Қатардың мәнін енгіз:’); Readln (X);
Repeat
K:=Pos (‘{‘,X); lf K>0 Then Begin I: Pos ... l>K Then Delete ... ... ... ... жаңа мәні X=’, X); Readln END.
5. Берілген сөздің екі жаққа да ... ... ... ... ... ... ... қазақ, ана, ата, ара, нан, шаш т.с.с. сөздер)
а) 1 түрі
PROGRAM Kat7;
VAR X,Y: String; K: ... Write ... ... енгіз:’); Readln (X); Y:=”;
For K:=Length(X) Downto 1 Do Y:=Y+Copy (X,K,1);
lf Х=Y Then Writeln (‘Екі ... да ... Else Writeln ... ... ... 2 түрі
PROGRAM Kat7;
VAR X: String; K,N: Byte;
BEGIN Write (‘Қатардың мәнін енгіз:’); Readln (X); ... K:=1 To ... Div 2 ... X[K] = ... ... Then N:= N+1;
lf N= Length(Х) Div 2 Then Writeln (‘Қатар екі жаққа да ... ... Writeln ... ... ... ... ... тізімінен Т әрпінен
басталатын футбол командаларын алып тастап, қайта
шығару программасы.
PROGRAM Katar8;
CONST N:Array [1…5] of ... ... ... ‘Taraz’,
‘Tor’);
VAR K,N,I: Byte;
BEGIN For K:=1 To 5 Do Write ... ... K:=0; Repeat ... Copy ... Do Begin ... T [I]:=T [I+1]; I:=I+1; Until I>=N;
T[N]:=”; N:=N-1; End;
Until K>=N;
Writeln (‘Жаңа тізім:’);
For K:=1 To N Do ... ... ... ... ... аттарын кері шығару
программасы (мысалға: Tobol сөзі lobaT болып шығу керек).
а) 1 түрі
PROGRAM Katar9;
CONST N:Array [1…5] of ... ... ... ... K,I: Byte; S:Char; P:Array [1…5] of String;
BEGIN For K:=1 To 5 Do Write ... ... K:=1 To 5 Do Begin ... I:= ... Downto 1 Do P[K]:= P[K]+ ... End;
Writeln (‘Жаңа массив:’);
For K:=1 To 5 Do Write(Р[K]:7); Readln END.
ә) 2 түрі
PROGRAM Katar9;
CONST Т:Array [1…5] of ... ... ... ... K,I: Byte; ... For K:=1 To 5 Do Write (T[K]:7); ... K:=1 To 5 ... I:=1 To Trunc ... ... S:= T[K] [I]; T[K] [I]:= T[K] ... ... ... (‘Жаңа массив футбол командаларының кері аттарынан тұрады:’);
For K:=1 To 5 Do Write(Р[K]:7); Readln END.
3 ... ... ... ... ... ... Паскальді өңдеудегі А. ... ... Turbo Pascal ... ... талабына сай, қуатты программалау
жүйесіне айналды. Turbo Pascal – жоғарғы деңгейлі программалау жүйесі. ... ... әр ... ... дәл ... ... ... Бейсик
тілі сияқты, Паскаль оқып-үйренуге жеңіл, түрлі салалық информациямен жұмыс
істеуде ... ... ... ... көп ... ... ... ыңғайлылығы:
• тілге дамытылған берілгендер типтері енгізілген. Олар ... ... ... ... ... және ... ... енгізуге мүмкіндік береді;
• мұнда кішігірім жеңіл программалармен бірге ... ... құру да ... тіл ... қиын ... ... (операторлардың) саны
мүмкіндігінше азайтылған, т.б.
Turbo Pascal жүйесінде қарапайым есептерді шешудің ... ... ... ... ... сан қырлы жұмыстары жүргізіледі.
Қорытынды
Сонымен қорыта келіп біз жолдық қатарлардан тұратын идентификаторлар
String типі сипатталатынын білдік.Жолдық ... ... ... (TYPE) ... ... ... ... (VAR) сипаттауға
болады. Сонымен қатар программалауда жолдық қатарлар тұрақты ... де ... ... ... ... ... беру үшін меншіктеу
операторы қолданылады. Егер меншіктеу операторы орындалғанда, символдар
саны ... ... ... ... асып ... ... қатардың сол жағынан бастап көрсетілген шамаға тең болатын
символдарды ғана меншіктейді, ал оң жақтағы артық ... ... ... ... біріктіру және салыстыру амалдарын орындауға болады.
Біріктіру амалы бірнеше жолдық қатарды біріктіріп шығару үшін қолданылады.
Жолдық ... ... ... екі жолдық қатарды салыстыру үшін
қолданылады. Қатарларды салыстыру солдан оңға қарай ең ... ... емес ... ... ... Егер қай ... ... бірдей
емес символының информация алмастыру стандартты таблицасындағы нөмірі үлкен
болса, сол ... ... ... деп ... Егер ... ... мен ... символдары сәйкес келсе, олар тең деп есептеледі. Ал
егер жолдық қатардың ұзындықтары әр ... ... ал ... ... болып
келсе, онда үлкені болып ұзындығы үлкен жолдық қатар есептеледі. Жолдық
қатардың ұзындығын есептеу үшін LENGTH ... ... ... 0-ден 255-ке ... бүтін сан (Byte) болып табылады.
Жолдық қатардың ішіндегі тұрған бір ... ... үшін РОS ... ... функция мәнінің типі бүтін және
ол жолдық қатарда берілген ... ... ... ... ... Ал егер жолда ондай фрагмент кездеспесе онда ... 0-ге ... келе біз ... ... ... ... ... программалар құра алады екенбіз.
Пайдаланған әдебиеттер:
1. Блашкин И.И., Буров А.А. Новые возможности Turbo Pascal 6.0. СПб.: ... ... П.П. ... ... − мой ... М.: ... ... 1995.-96
б.
3. Зуев Е.А. Язык программирования Turbo Pascal 6.0-М.: Унитех, ... ... Turbo Pascal и ... ... и ... ... ... Справочник по процедурам и функциям Borland Pascal with Objects 7.0 ... ... ... ... Фаронов В.В. Программирование на персональных ЭВМ в среде Турбо
паскаль.-М.: Изд-во МГТУ, ... ... ... В.В. ... ... (в 3-х ... Кн.1. ... Турбо Паскаля.-
М.: Учебно-инженерный центр «МВТУ-ФЕСТО ДИДАКТИК», 1992.-304 ... ... В.В. ... Паскаль (в 3-х книгах). Кн.3. Практика
программирования. Часть 1.-М.: ... ... ... ... ... Фаронов В.В. Турбо Паскаль (в 3-х ... Кн.3. ... ... 2.-М.: ... ... «МВТУ-ФЕСТО
ДИДАКТИК», 1993.-304 б.
10. Федоров А. Особенности ... на Borland ... ... ... ... Р. Турбо Паскаль /2-е изд., перераб.-Вологда: МП «МИК», 1991.-
342 б.
12. Культин. Программирование в Turbo Pascal 7.0 и Delphi /2-е ... и ... ... ... ... ... Ю.С., Касаткин А.И., Мороз С.М. Программирование в ... ... ... ... ... 1992.-158 б.
14. Перминов О.Н. Программирование в языке Паскаль.-М.: Радио и связь,
1988.-244 ... Эрбо Х.Э., ... О. ... в программирование на языке Паскаль.-М.:
Мир, 1989.-299 б.
Қосымшалар

Пән: Информатика
Жұмыс түрі: Курстық жұмыс
Көлемі: 20 бет
Бұл жұмыстың бағасы: 400 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
"Дербес электронды есептеу техникасының архитектурасы."8 бет
Арал теңізінің тартылу себептері6 бет
Басқарушы және басқару жүйесі24 бет
Ерекше балаға – ерекше мектеп15 бет
ИТБАЛЫҚТАР ТҰҚЫМДАСЫ (Phocidae)4 бет
Көпоперациялы станоктар. Жоңғыш, жошылай – бұрғылайтын, жонатын топтағы станоктар базасындағы негізгі түзілімдердің орындалуы. Негізгі және қосымша жүріс5 бет
Махамбет өлеңдерінің жанрлық ерекшеліктері10 бет
Мемлекеттік рәміздер6 бет
Сөз түрленуіндегі ерекшеліктер4 бет
Түрік қағанаттарындағы мемлекеттілікті нығайту үшін күрес24 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь