Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
1nf3rn0
0 / 0 / 0
Регистрация: 10.06.2011
Сообщений: 13
1

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

21.06.2011, 11:26. Просмотров 709. Ответов 4
Метки нет (Все метки)

Создать файл, элементами которого являются сведения о студентах: фамилия, возраст, место проживания. Вывести на экран фамилию самого старшего студента и средний возраст для всех студентов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.06.2011, 11:26
Ответы с готовыми решениями:

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

Вывести на экран фамилию и инициалы, средний балл успеваемости каждого студента.
Дан список студентов. О каждом студенте известно Ф. И. О.,группа и...

Вывести самого старшего студента
программа должна выводить самого старшего и обязательно нужно использовать...

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

Для студентов заданной группы, имеющие средний балл, больший 4.5, вывести фамилию и средний балл
Для студентов заданной группы,имеющие средний балл,больший 4.5,вывести...

4
KaiTheCat
К.О.
531 / 496 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
21.06.2011, 12:18 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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Uses crt;
Type
  Stud = record
    sur: string[10];
    age: byte;
    ad: string[30];
    end;
 
Var
  a: Stud;
  f: file of Stud;
  FileName: string[20];
  st: string[3];
  MaxAge,n: byte;
  sr,b: integer;
  key: char;
 
Begin
  Clrscr;
  Write('Введите имя файла: ');
  Readln(FileName);
  Assign(f,FileName);
  Rewrite(f);
  Repeat
    Writeln;
    Inc(n);
    With a do
      begin
        Write('Фамилия: ');
        Readln(sur);
        Repeat //для контроля вводимых данных
          Write('Возраст: ');
          Readln(st);
          Val(st,age,b)
        Until b = 0;
        Inc(sr,age);
        If age>MaxAge then MaxAge:=age;
        Write('Место проживания: ');
        Readln(ad);
      end;
    Write('Добавить еще запись? Д/Н ');
    Readln(key)
  Until upcase(key)='Н';
 
  Writeln('Самые старшие студенты:');
  Seek(f,0);
  While not eof(f) do
    begin
      Read(f,a);
      If a.age = MaxAge then writeln(a.sur)
    end;
  Close(f);
  Writeln;
  
  sr:=sr div n;
  Writeln('Средний возраст: ',sr);
  Readkey
End.
1
1nf3rn0
0 / 0 / 0
Регистрация: 10.06.2011
Сообщений: 13
22.06.2011, 08:27  [ТС] 3
спасибки =)
0
MAN-HUNT
27 / 27 / 26
Регистрация: 17.01.2011
Сообщений: 153
22.06.2011, 09:51 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от 1nf3rn0 Посмотреть сообщение
Создать файл, элементами которого являются сведения о студентах: фамилия, возраст, место проживания. Вывести на экран фамилию самого старшего студента и средний возраст для всех студентов.
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
type
    stud=record
               name:string[45];
               age:integer;
               adress:string;
    end;
var
   f:file of stud;
   i:integer;
   name:string;
   age:integer;
   adress:string;
   max:string;
   sage:real;
   p:stud;
   ch:char;
begin
     assign(f,'file.bat');
     rewrite(f);
     repeat
           inc(i);
           writeln('Input data');
           read(name);
           read(age);
           read(adress);
           p.name:=name;
           p.age:=age;
           p.adress:=adress;
           write(f,p);
           write('Continue? y/n');
           read(ch);
     until ch='n';
     close(f);
     reset(f);
     writeln;
     read(f,p);
     max:=p.name;
     sage:=p.age;
     while not eof(f) do
           begin
                read(f,p);
                if length(p.name)>length(max) then
                   max:=p.name;
                sage:=sage+p.age;
           end;
     write(max,'    ',sage/i:3);
     writeln;
     close(f);
end.
0
KaiTheCat
К.О.
531 / 496 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
23.06.2011, 16:15 5
Держи, Дим. Сейчас точно работает><
0
Вложения
Тип файла: rar DIMA.rar (876 байт, 14 просмотров)
23.06.2011, 16:15
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.06.2011, 16:15

Вывести средний балл каждого студента и номер студентов,не сдавших сессию
Задана матрица размерности н на м.н-количество студентов,м-количество сданных...

Вывести содержание файла на экран, изменить фамилию студента
Создать файл из списка 10 студентов с их оценками(номер,фио,3 оценки(должно...

Выбрать и вывести фамилии неуспевающих студентов и по каким предметам, подсчитать средний бал оценок каждого студента
По итогам аттестации по нескольким предметам выбрать и вывести фамилии...


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

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

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