Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 04.01.2011
Сообщений: 3
1

Напечатать на экран фамилии студентов в порядке убывания среднего балла

04.01.2011, 23:30. Просмотров 1729. Ответов 2
Метки нет (Все метки)


Дан фаил содержащий сведение о студентах группы.Каждая запись файла содержит:Фамилию и инициалы
студента,возраст,средний балл за последнию сессию!!!
Обновить фаил путём увеличения возраста на 1год !!!напечатать на экран фамилии студентов в порядке убывания среднего балла!!!!Помогите пж!!!Очень нужно!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.01.2011, 23:30
Ответы с готовыми решениями:

Вывести на экран ФИО студентов, средний балл которых выше среднего балла всей группы
дана группа студентов которая сформирована ФИО. номер группы и 5 оценок. вывести на экран ФИО....

Составить программу вычисления среднего балла каждого учащегося, среднего балла в группе в целом
В группе 5 учеников , известны результаты сдачи экзаменов по трем предметам.Составьте программу...

Составить программу вычисления среднего балла каждого учащегося, среднего балла в классе в целом
в классе 8 учеников, известны результаты сдачи экзаменов по 3- м предметам. Составить программу...

Вывести количество студентов со значением среднего балла не менее 3,5
3. Табель успеваемости группы студентов содержит следующие сведения: номер по порядку, фамилию,...

2
25 / 31 / 22
Регистрация: 25.01.2010
Сообщений: 322
Записей в блоге: 1
05.01.2011, 00:28 2
вот вам в помощь
Пример: Cоздать файл из списка 10 студентов с их оценками ( номер, Ф.И.О. и три оценки). Вывести его содержимое на экран, изменить фамилию студента с номером, введенным с клавиатуры, заново прочитать файл.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Program  file; 
Type
wed  =  record      {Тип wed включает 3 поля: n, fio, bal}
n : byte ;       fio : string[15] ;
bal : array [1..3] of byte;   {Поле bal – массив из 3 оценок }
end;
Var    spisok : wed ;       {Запись spicok  типа  wed}
sp : file  of wed;  {Файл записей типа wed}
procedure vvod;     { процедура создания файла}
var    i,j:byte;
begin
{ оператор assing  находится в основной прграмме }
rewrite ( sp);            {открытие файла для записи}
with spisok do
For   i:=1  to  10  do      begin
n:=i;               
writeln (' Введите фамилию -  ',  i );    readln (fio);  
writeln (' Введите 3 оценки  ', fio );    For  j:= 1 to 3 do  readln ( bal [j] );
write (sp , spisok);     { запись в файл информации о студенте}
end;
close (sp);      { закрытие файла для записи }
end;
procedure    print;  { процедура  чтения   и печати всего файла }
var    j : byte;
begin
reset ( sp);               {открытие файла для чтения}
writeln (‘                 Список студентов:  ‘); 
while not eof (sp) do     
with spisok do 
begin 
Read (sp, spisok);   {чтение данных из файла}
write (n,'  ',fio);      {вывод записи на экран}
For  j:= 1 to 3 do  write (' ', bal [j] );
writeln ;
end;
readln;
close (sp) ;
end;
procedure       work;
var    num: integer;
begin
reset ( sp);               {открытие файла для чтения}
writeln ('номер= ');    readln (num);
seek (sp, num-1); {поиск записи с указанным номером (нумерация записей с 0)}
read (sp,spisok);{чтение и перемещение указателя к сле*д. записи}
write ('fio='); writeln (spisok.fio);
seek (sp,filepos(sp)-1); {возвращение к изменяемой записи }
writeln (‘ Введите новую фамилию’  ); readln (spisok.fio);
write (sp, spisok);  {запись в файл измененной записи}
close (sp);
end;
 
begin      {начало основной программы}
assign (sp,'Vedom.DAT'); {связать файловую перем-ю  sp с файлом Vedom.dat}
vvod;      print; {процедуры создания и чтения файла}     
work;   print;   {корректировка и чтение измененного файла}
readln
end.
0
0 / 0 / 0
Регистрация: 04.01.2011
Сообщений: 3
05.01.2011, 00:43  [ТС] 3
Благодарю
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.01.2011, 00:43

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Распечатать список студентов, упорядоченный по возрастанию их среднего балла
Написать программу обработки записей в соответствии с вариантом задания. Количество студентов...

Вывести количество студентов со значением среднего балла не менее 3,5
Табель успеваемости группы студентов содержит следующие сведения: номер по порядку, фамилию, имя,...

Вывести количество студентов со значением среднего балла не менее 3,5
Табель успеваемости группы студентов содержит следующие сведения: номер по порядку, фамилию, имя,...

Выдать список абитуриентов в порядке убывания их балла
"Известны фамилии и суммарный балл, полученный каждым из N абитуриентов на вступительных экзаменах....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.