ign="justify"> getch ();
}
Результат виконання програми
В
Завдання 5
Розробіть програму обробки структур. У програмі використовуйте структуру, що містить поля з інформацією про учнів:
прізвище та ініціали;
дата народження;
номер групи;
оцінки за семестр з предметів: фізика, математика, інформатика, етика, психологія.
Організуйте введення вихідних даних, середній бал кожного учня розрахуйте за введеним оцінками. На екрані відображуватимете всю введену інформацію і здійсните пошук даних у відповідності з варіантом. p align="justify"> Виведіть анкетні дані учнів, які мають середній бал вище загального середнього бала всіх учнів.
Текст програми
# include
# pragma hdrstop
# include
# include TZap
{char FIO [30]; year, group, fiz, mat, inf, eti, psi; s_b;
} Zap; size = sizeof (TZap); * Fz, * Ft; File_Zap [] = В«zapisi.datВ»; File_Rez [] = В«rezult.txtВ»; Out (TZap); main ()
{kod, D_f, i = 0, j, kol, ng; len; sum = 0; st, * mas_Z; = fopen (File_Rez, В«wВ»); (true)
{(В« n Actions: Create-1 Insert-2 View-3 Info-4 Exit-0В»); (В«% dВ», & kod); (kod)
{1: ((Fz = fopen (File_Zap, В«wbВ»)) == NULL)
{(В« n Create ERROR!");;
} (Fz); (В« n Create New File% s! nВ», File_Zap);; 2: = fopen (File_Zap, В«abВ»); (В« n FIO -В» ); (stdin); (Zap.FIO); (В»Year -В»); (В«% dВ», & Zap.year); (В»Group -В»); (В«% dВ», & Zap.group ); (В»Phisics -В»); (В«% dВ», & Zap.fiz); (В»Mathematics -В»); (В«% dВ», & Zap.mat); (В»Informatics -В»); ( В«% dВ», & Zap.inf); (В»Etika -В»); (В«% dВ», & Zap.eti); (В»Psihology -В»); (В«% dВ», & Zap.psi );. s_b = (Zap.fiz + Zap.mat + Zap.inf + Zap.eti + Zap.psi)/5.; (& Zap, size, 1, Fz); (Fz);; 3: = fopen (File_Zap, В«rbВ»); _f = fileno (Fz); = filelength (D_f); = len/size; _Z = new TZap [kol]; (i = 0; i
// вивід повного списку (i = 0; i
Out (mas_Z [i]); (В« n"); (Ft, " n"); [] mas_Z;; 4: = fopen (File_Zap, В«rbВ»); _f = fileno (Fz); = filelength (D_f); = len/size; _Z = new TZap [kol];
(i = 0; i
} (Fz); = sum/kol; (В« nAverage score =% 6.3lf nВ», sum); (В« n t - Students with midscore more then average - n В»); (Ft," n t - Student...
