|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.04.2011, 21:41 | #1 |
Новичок
Джуниор
Регистрация: 28.04.2011
Сообщений: 2
|
программа на тему "записи"
Условие: База данных студентов содержит ФИО и средние баллы за 5 сессий. Написать программу, осуществляющую вычисление среднего балла каждого студента за все обучение и распечатывающую записи о студентах по трем категориям. Первая категория - средний балл за все обучение >= 4.6
Вторая >= 3.6 , но меньше 4.6.Третья - все остальные. Базу данных задать самостоятельно (20 записей). ----------------------------------------------------- мои потуги: Код Pascal program zapisi; type zap=record fam:string[15]; name:string[10]; ball:array[1..5] of integer; end; var inp,out:text; k,i:integer; z:zap; begin assign(inp,'H:\03-107\MART\lab_3.txt'); reset(inp); assign(out,'H:\03-107\MART\lab_3.txt'); rewrite (out); writeln(out,'ФИО студента ':50); writeln(out,'Средний балл':50); writeln(out); repeat read(inp,z.fam,z.name); for i:=1 to 5 do read (inp,z.ball[i]); readln(inp); for k:=1 to 5 do if z.ball [k]>=4.6 then begin write(out,z.name[1],' ',z.fam); for i:=1 to 5 do write (out,z.ball[i]:3); writeln(out); end; until eof(inp); close(inp); close(out) ---------------------------------------------------------------- Помогите пожалуйста... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа на тему:"Теоретическая мехника" | Andreyko | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 05.06.2010 10:59 |
Паскаль.Программа "Верификация", "Кака бригадиру разделить заработанные деньги?".Сложные | Valik102 | Помощь студентам | 11 | 23.06.2009 15:30 |
Помогите пожалуйста решить задачки на тему "Записи" | АполинАрия | Помощь студентам | 3 | 26.05.2009 22:10 |
Паскаль. 2 задачи (Программа "Верификация","КАК БРИГАДИРУ РАЗДЕЛИТЬ ЗАРОБОТАННЫЕ ДЕНЬГИ") | Valik102 | Помощь студентам | 3 | 20.05.2009 20:42 |
если пользователь наберет какой-то другой символ не "y" или "n" и нажмет enter, программа проигнорирует | skobets | Общие вопросы C/C++ | 2 | 03.06.2008 06:51 |