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

По списку студентов из файла найти самого молодого студента

03.01.2011, 18:13. Просмотров 554. Ответов 1
Метки нет (Все метки)

Дан список студунтов в катором указан фамилия и год рождения студента Отпечатать список студентов заданого года рождения.
1.створыты типизованый ваел.
2.Знайты наймолодшого студунта.
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
Program sss;
uses crt;
   type
dan = record
 name:string[10];
 year:word;
end;
 
var f:file of dan; p:dan; ch:char; d,n,i:byte;s:longint;
LineCount:word;
 begin   clrscr;
 
assign (f,'primer.zap');
rewrite(f);
Write ('Vvedite kolichestvo studentov  ') ;
readln(n) ;
for i:=1 to n do begin
  Write ('Vvedite imya studenta  ');read(p.name);
  Write ('Vvedite god rozhdeniya studenta  ');readln(p.year);
write(f,p); end;
close(f);
reset(f); s:=0;
 Writeln ('Vvedite god rozhdeniya studenta');
readln (d);
while not Eof(f) do  begin
read(f,p);
if p.year=d then
Writeln(p.name:20); 
end;
 
while not Eof(f) do  begin
read(f,p);
if p.year<p.year
Writeln(p.name:20); 
end;
readln
end.
Подскажыте как найты наймолодшого студунта со списка.
Ато я написал а ано не работает.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.01.2011, 18:13
Ответы с готовыми решениями:

Вывести на экран фамилию самого молодого студента и его возраст.
Помогите с задачами. 1.Дан текстовый файл, содержащий данные о студентах: фамилия студента,...

Вывести на экран фамилию самого старшего студента и средний возраст для всех студентов
Создать файл, элементами которого являются сведения о студентах: фамилия, возраст, место...

Найти и вывести на экран самого молодого студента
Дан массив записей, содержащй сведения о студентах группы: фамилия и нициалы студента, дата...

Найти самого молодого родившегося осенью студента
помогите исправить код данный код: найти самого молодого родившегося осенью исправить: найти...

1
Mawrat
12936 / 5788 / 1704
Регистрация: 19.09.2009
Сообщений: 8,807
03.01.2011, 23:01 2
Поиск младшего студента:
заменить:
Pascal
1
2
3
4
5
while not Eof(f) do  begin
read(f,p);
if p.year<p.year
Writeln(p.name:20); 
end;
на:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
...
  StMin : Dan;
...
begin
...
StMin.Year := 9999;
StMin.Name := '';
Reset(f);
while not Eof(f) do  begin
  read(f,p);
  if p.year < StMin.Year then StMin := p; 
end;
Close(f);
Writeln('Имя младшего студента:');
if StMin.Name = '' then
  Writeln('В файле нет сведений.')
else
  Writeln(StMin.Name);
;
...
end.
При работе с файлом надо не забывать открывать его через Reset(f) и после работы закрывать: Close(f). Если файл уже открыт, но требуется читать его от начала, тогда опять делается Reset(f) - при этом файловый указатель устанавливается на начало файла. Либо, при уже открытом файле, можно переместить файловый указатель в начало так: Seek(f, 0).
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.01.2011, 23:01

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

Найти и вывести на экран самого молодого студента
Дан массив записей, содержащий сведения о студентах группы: фамилия и инициалы студента, Дата...

Найти и вывести на экран самого молодого студента, родившегося осенью
Приветствую всех. Я на вашем форуме новенький, поэтому поправляйте, если что не так. Мне нужна...

Определить самого молодого и самого старшего из студентов, их порядковые номера
Пожалуйста помогите написать программу) Дан массив Z возрастов студентов группы . 1)...

Определить самого молодого и самого старшего из студентов
Пожалуйста помогите написать программу) Даны сведения о возрасте студентов группы V . 1) ...


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

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

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