курсовой

Курстық жұмысты жасау барысында мен тапсырмаларды тәжірибелік бағытта жасауға, мәліметтер қорын бағдарламалауға, Turbo Pascal бағдарламалау тілінде жұмыс жасауға және алгоритмді қарастырып, шеберлігін арттыруға үйрендім. Және алған негізгі сабағым, Turbo Pascal тілі белгілі бір ережелерге сәйкестендірілген тіл. Егер ол ереженің біреуі орындалмаса, онда бағдарламада қате пайда болады. Сондықтан кез келген операторды дұрыс, қатесіз, орынды енгізуге тырысуы керек.

Осы Курстық жұмысты жазу барысында мен Паскаль тілі жайлы көптеген ақпарат жинастырдым. Алынған мәліметтер болашақта өз септігін тигізеді деп ойлаймын.

ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ

1. А.И. Марченко, Л.А. Марченко «Программирование в среде Турбо Паскаль», пятое издание, базовый курс, Киев, «ВЕК+», 1999 – 464с.

2. А.О. Меженный Турбо Паскаль М: издательский дом "Вильялес".

3. Б. Страуступ «Языки программирования», М. Изд.ин.лит., 2000 г.

4. Васильев П.П. Турбо Паскаль − мой друг: М.: Компьютер, ЮНИТИ,1995.-96 б.

5. В.Ф. Шаньгин, Л.М. Поддубная «Программирование на языке Паскаль»,М.,Высшая школа, 1991 г.

6. В.В. Фаронов «Основы Турбо-Паскаля» - М., Учебно-инженерный

центр«МВТУ-ФЕСТО ДИДАКТИК», 1992 г.

7. В.В. Фаронов «Турбо Паскаль 7.0.Учебноепособие. Издание 7, перераб.» - М., Нолидж,издательМолгачеваС.В., 2001–416с.

8. Ж.Ж. Айтқожа "Turbo Pascal 7.0" Қарағанды 2008.

9. Ж.Ә. Массанов, П.А. Белгібаев, А.С. Бижанова, Ә.Ә. Маңұлов."Turbo Pascal."Алматы 2004.

10. Культин. Программирование в TurboPascal 7.0 и Delphi /2-е изд.,перераб. и доп.-СПб.: БХВ-Петербург, 2002.-151 б.

11. Клинт Хикс «Руководство пользователя», Ин.лит., 2000 г.

12. С.А.Абрамов «Задачи по программированию», М.,Наука,1988 г., 225с

13. С.А. НемнюгинTurboPascal практикум - Санкт - Петербург "Питер".

14. Никита Культин «Самоучитель. Программирование в TurboPascal 7.0 и Delphi», 2-е изд, перераб. и доп., СПб, БХВ-Петербург, 2002 г.–416 с.

15. О. Камардинов "Информатика" Алматы 2004.ый учебник «СИ

и Паскаль»,Ким С.Т.,Мырзаев Р.С.,2003 г.

16. BIVV. TurboPascal 7.0, Киев, 1996.

ҚОСЫМША А

1 Бағдарламаның орындалуы

Қалай көресіздер, мына бағдарламада өзгергіште imax

Анықтау, қайда элементтер барынша көп және ең

Элементтердің барынша көп және ең аз ізделіп отырған

Массивтің жазылуы

Массивті жазу үшін, компиляторға хабарлама беру керек.

Қанша элементі бар?

Элементтердің типі қандай?

Олар қалай нөмерленеді?

Массив деректердің стандартты типі болып табылады, сондықтан типтердің

type –тип аты = array [индекс_тип] of

Мұндағы туре – типтік хабарлау бөлімінің басы array

type mas=array [1…10] of real;

Мұнда масссив элементі бірден онға дейінгі нөмірленген элементтерден

Массивті хабарлағаннан кейін кез келген стандартты тип сияқты,

Var a, b: mas;

Осындай операторларды кездестірген компилиятор, а және в массивтермен

Массив элемен.ттерімен квадрат жақшаның ішінде элементтің реттік нөмірі

Массив дегеніміз – бір типтегі берілгендер жиыны. Басқаша

1.6, 14.9, -5.0, 8.5, 0, 46 – ны

Егер бағдарламада массив пайдаланатын болса, онда ол

Индекс типті стандартты, бүтін немесе нақты бола алмайды.

VAR a: array [5] of real;

немесе

VAR a: array [integer] of real;

Массивтерді дұрыс жазуға мыссалдар келтірейік:

VAR mas: array [1...n] of real;

Жыл array [қаңтар...желтоқсан] of integer;

L: array [char] of boolean;

M1: array [char] of шеңбер;[3]

2 Бағдарламаның листингі

Program Bol1;

Var x:arrray [1...15] of integer;

i: integer;

s: Real;

Begin

s:= 0;

Writeln('sandardi bos orin kaldirip endir:');

For i:= 1 to 15 do

Begin

Read(x [i]);

S:= s+x [i];

End;

Writeln;

S:= s/13;

Writeln ('s=',s:8:4);

For i:= 1 to 15 do Writeln (s-x[i]);

End.

Program num_positive_1;

const

n= 10;

a:array [1..n] of integer = (1, 3, -5,

var

i : integer;

imax : integer;

imin : integer;

ibeg : integer;

iend : integer;

count : integer;

begin

for i := 1 to n do write

imax:= 1; imin:= 1;

if a [i]>a [imax] then imax:= i;

if a [i]end.

Writeln ('max=', a [imax], 'min=', a[imin];

if imax< imin then ibeg:= imax else ibeg:=

if imax< imin then iend:= imin else iend:=

writeln ('ibed=', ibeg,' iend =', iend);

count:= 0;

for i := ibed +1 to iend -1

if a [i] > 0 then inc (count);

writeln ('colishestvo polojitelnih:'.count);

end.

program index_max_elem;

const n= 10;

var

a: array [1..n] of integer;

i: integer;

imax: integer;

begin

writeln (' ',n,'елементін ендір');

for i:= 1 to n do read (a

imax:= 1;

for i:= 2 to n do

if a [i]>a [imax] then imax:= i;

writeln (массив элементінің нөмері:',imax);

writeln (масив злементі:', a [imax]);

end.

22