Turbo Pascal

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

5. Блок  схема құрылымы.

 

     

 

 

 
 
 
 

 
 
 
 

 

 
 
 
 
 

 
 

 
 
 

 

 

 
 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

6. Программаның түсінігі. 

6.1 Алгоритмнің  түсінігі. 

     Бұл программада енпзу - шығару операторларына блок – схема құрылған.

     Бұл блок - схемада n таңбасын студенттер санына өзгертеміз. With - оператор көмегімен студенттердің аты жөнін; тобын, туғaн жылын және әрбір пән бойынша алған бағаларын енгіземіз. Fоr оператор көмегімен студентердің әрбір пән бойынша алған бағаларының орташа бағасын есептейміз және олардың жауабын шығарамыз. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

7. Қолдану ережесі. 

Программаны іске қосыңыздар. Программа А:\ Student. ехе орналасқан.

Сіздің  алдыңыздан меню терезесі көрінеді. Көрінген меню терезесінен керек жолды таңдап алып, (бағыттаушылар жоғары, төмен) таңдауды растау үшін "Enter" пернесін басыңыз.

     Егер  сіз «Программа туралы» жолды  таңдасаңыз, онда сіз Авторы кім

екенін және программа аты туралы ақпарат көресіз. Жалғастыру үшін "Enter" пернесін басыңыз.

     Егер  сіз "Енгізу" жолын тандасаныз, онда алдыңыздан "Turbo Pascаl - дағы енгізу және шығару операторлар программасы" - на хабарлама шығады. Студенттердің санның енгізіңіз, "Enter" пернесін басыңыз, содан соң  студенттердің аты - жөнің енгізіңіз, "Enter" пернесін басыңыз, сонан кейін олардың тобын енгізіңіз, "Enter" пернесін басыңыз және туған жылын енгізіңіз, "Enter" пернесін басыңыз,осылардан кейін студенттердің әрбір пән бойынша алған бағаларын енгізіңіз, "Enter" пернесін басқаннан кейін бастапқы меню терезесіне шығасыз.

     Енгізілетін мәндерді енгізіп болғаннан кейін  «Жауабы» жолын таңдасаңыз экранға программа нәтижесі шығады.

     «Шығу»  жолын тандасаңыз программадан шығасыз . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8. Программа. 

{Приложение  А.                    Листинг модуля Student.pas}

{О каждом  студенте известна следующая  информация

~ Ф.и.о.

~ Год рождения

~ Группа

~ Оценка по  математики

~ Оценка по  истори

~ Оценка по  в.т.

~ Оценка по  статистики

Сформируйте таблицу, записав в нее всю известную  о қаждом студенте и его средний балл. Подсчитайте средний балл по каждому предмету выведите таблицу на экран дисплея в алфотвитном порядке.} 

{Автор: Бақтығалиев Бекнұр}

{Подключения  модуля CRT.}

Uses CRT;

{Описания записи  о каждом студенте. } 

type

     tablica=record

     паmе: string[15];

     group: string[6];

     god: integer;

     vt, history, stat, math: byte;

     sr bal:real;

     end;

var

     i,j, n:integer;a:tablica;

     {Таблица- массив записей.}

     mas: array [1 .. 30] of tablica;

{Переменные  для сравнение средних значении пo предметам. }

     s vt, s history, s stat, s math: real;

begin

{Bвод количества n записи.}

     write('n='); readln(n);

{Ввод элементов в массив записей.}

     for і:=l to n do

     with mas [і] do

begin

     writeln (' і=', і: 4);

     writeln ('FIO');

     readln (nаmе);

     writeln('GROUP') ;

     readln (group);

     writeln ('Year');

     readln (god);

     writeln ('Otsenki');

     readln(vt,history,stat,math);

     sr_bal:=(vt+history+stat+math)/4;

end;

{Вычисление  средних значении по каждому  предмету. }

     s vt:=0; s history:=0; s stat:=0; s math:=0;

     for і:=l to n do

begin

     s vt:=s vt+mas[i] .vt;

     s history:=s history+mas[i] .history;

     s stat:=s stat+mas[i] .stat;

     s -math:=s -math+mas[i] .math;

end;

     s vt:=s vt/n;

     s history:=s history/n;

     s stat:=s stat/n;

     s math:=s math/n;

{Упорядочение  массива записей в алфавитном порядке фамилии.}

     for і:=l to п-l do

     for j:=l to п-l do

     if mas[j] .name>mas[j+l] .пате then

begin a:=mas[j];

     та s [j ] :=та s [j +1] ;

     mas[j+l] :=а;

end;

{Вывод результатов.}

     clrscr;

     write(' ':8,'FIO , , .. 4) .,•

     wr і te (' ': 2, 'GROUP ');

     write(' ':l,'Year ',":2);

     write (": 3, 'OTSENKI', '

     writeln('Sr.Bal') ;

     for і:=l to n do

     with rnas[i] do 

begin

     write(narne:15);

     write (' ',group: 8);

     write(' ',god:4);

-- _. о. _

     writeln(' ',vt:з,' ',history:3,' ',stat:3,’math : 3,' ', sr_bаl : 5 : 2) ;

end;

     writeln (' , ' Sr. bа1: ' " ': 24, s_vt: 3 : 1, ' ',s_history:3:1, , ',s_stat:3:1, S rnath:3:1);

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

9. Программаның нәтижеcі. 

Енгізілген мәндер: 

1. n = 3

2. і= 1 Ф.И.О.:Бисенов Нүргелді

3. Группа: 11-122

4. Год рождения: 1988

5. Отценки: 5454

6. і= 2 Ф.И.О. : Бақтығалиев Бекнұр

7. Группа: 11-122

8. Год рождения: 1989

9. Отценки: 5 4 5 5

10.і = 1 Ф.И.О.: Амангелді Медет

11.группа: 11-122

12.Год рождения: 1989

13.0тценки: 5 444 

Енгізілген  мәндердің нәтижесі: 

        Ф.И.О.              Группа     Год рождения            Отценки           Среднии бал

Бақтығалиев Бекнұр    11-122             1989                5   4      5      5          4.75

Бисенов Нүргелді        11-122             1988             5    4      5        4          4.50

Амангелді Медет         11-122             1989          5    4      4        4           4.25

Средний бал:                                                                 5.0 4.0   4.7    4.3 
 
 
 
 
 
 
 
 
 
 
 
 
 

10. Қорытынды. 

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

11. Қолданылған әдебиеттер. 

1. Авторы: Алексеев Е. Р. "Турбо Паскаль 7.0" Идеалный учебный курс. Численные методы. Москва - 2006. 

2. Авторы: Немнюгин  С. А. "Turbo Pascal" учебник. Санк-Петербург - 2002. 

3. Авторлары:  Б. Бөрібаев. Б. Нақысбеков Т.  Мадиярова. "Инфарматика және есептеуіш техника негіздері". Алматы – 2002.