Ќазаќстан Республикасыныѕ Білім жјне Єылым Министрліrі


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



бет11/11
Дата16.01.2022
өлшемі200,5 Kb.
#112319
түріРеферат
1   2   3   4   5   6   7   8   9   10   11
Байланысты:
f60423376f3107

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. Блок схема құрылымы.

















































S_history=0

S_stat=0

S_math=0























































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.



Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9   10   11




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет