WRITE (' Т = ' , N: 3,": 4, ,М = ' , М: 4: 2)

болса, онда Т-ның үш орынды мәнінен соң 4 бос орын қалады да, одан соң М-нің нақты мәні жазылады.

Айталық, х= 7, ү= 15, Z= 11, ал R= 450,08 болсын, оларды экранға

шығарудың әр түрш тәсілдерін мына кестеде көрсетілген.

Оператордың жазылуы	Экрандағы нәтижесі
Write (х, у); Write (Х'_,_' ,у); Write ('Х =',Х); Write (Х, ": 3, Z); Write (Х+Ү =',Х+Ү); Write (Z,'- соңы); Write ('бітті'); Write (R);	7 15 7_,_ 15 Х=7 7 11 Х+Ү=22 ІІ-соңы бітті 4.5008Е+02

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

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

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

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

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

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

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

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

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

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

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

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

~ Ф.и.о.

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

~ Группа

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

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

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

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

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

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

Uses CRT;

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

tablica=record

паmе: string[15];

group: string[6];

god: integer;

vt, history, stat, math: byte;

sr bal:real;

end;

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 записи.}

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

for і:=l to n do

with mas [і] do

begin

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

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 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 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;

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

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

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);

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

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. Қорытынды.

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