|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.02.2009, 15:07 | #1 |
Регистрация: 10.02.2009
Сообщений: 3
|
Файлы нужна помощь
понимаете осталась последняя задача и я её не как написать не могу в программу.
помогите кто может пожалуйста Файл включает фамилию студента и их оценки по трём предметам в сессии. Распечатать по вводимой фамилии - оценки, а кроме того список студентов, получивших степендию ( не имеющих 2 и 3), получивших повышеную степендию(тока 5) |
10.02.2009, 15:09 | #2 |
Регистрация: 10.02.2009
Сообщений: 3
|
вот сделал вроде а связать не могу
Type Tname=string[20]; Trec=record name1:Tname; ball: array [1..3] of integer; end; TArrRec=array [1..50] of trec; Tfile = file of Trec; procedure Addfromfile(var s:TarrRec; var count:integer; f:Tfile); begin assign(f,'file.rec'); reset(f); count:=0; while not eof(f) do begin count:=count+1; read(f,s[count]); end; close(f); end; procedure showball(a:TarrRec; count:integer; s:Tname); var i,j:integer; begin for i:=1 to count do begin if a[i].name1=s then begin for j:=1 to 3 do writeln(a[i].name1,' ',a[i].ball[1],' ',a[i].ball[2]' ',a[i].ball[3]); end; end; procedure showball2(a:TarrRec; count:integer); var i:integer; begin for i:=1 to count do if (a[i].ball[1]=5) and (a[i].ball[2]=5) and (a[i].ball[3]=5) then writeln(a[i].name1,' ',a[i].ball[1],' ',a[i].ball[2]' ',a[i].ball[3]); end; незнаю может чё нибудь не правильно сделал |
10.02.2009, 18:25 | #3 |
Регистрация: 10.02.2009
Сообщений: 3
|
помогите пожалуйста
|
10.02.2009, 18:38 | #4 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Посмотрите пример
А вот пример про студентов с 2-мя оценками и искал их по фамилии, группе, по всем хор оценкам или у кого есть неуд Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
Последний раз редактировалось alex_fcsm; 10.02.2009 в 18:42. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нужна помощь | DIzza | Помощь студентам | 54 | 22.02.2009 13:29 |
Нужна помощь не решении задачи (файлы). | VirtualPC | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 20.12.2008 15:18 |
Очень нужна помощь по Turbo Pascal...Не могу составить програму,по теме:"Процедуры и файлы"...( | Zara | Помощь студентам | 2 | 02.12.2008 18:23 |
требуется помощь записи и типизированные файлы в паскале | GaJIbI4 | Помощь студентам | 3 | 27.11.2008 21:28 |
текстовые файлы ОЧЕНЬ НУЖНА ПОМОЩЬ | leest | Помощь студентам | 6 | 30.01.2008 10:05 |