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

Выделить первого человека в группе по алфавиту и самого молодого

19.09.2014, 09:58. Просмотров 1029. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста!!!
Дан список группы в 10 человек в виде
ФАМИЛИЯ И.О. ГОД_РОЖДЕНИЯ
25 символов 4симв. 4 симв.
Данные в одной строке отделяются друг от друга пробелами.
Например: Иванов И.И. 1978 г.р.
Выделить первого по алфавиту и самого молодого. Соответствующие строки напечатать.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.09.2014, 09:58
Ответы с готовыми решениями:

Определить, на сколько лет возраст самого старого человека превышает возраст самого молодого
Решите задачу: В массиве хранится информация о годе рождения каждого из 30 человек. Определить,...

Найти самого молодого человека из представленного в файле списка
В файле хранится список участников в виде: Фамилия/Год_рождения(прим. Иванов/1985). Кто из них...

Найти самого тяжелого человека в группе
• Известна масса каждого человека из группы в 20 человек. Найти самого тяжёлого из них. Напишите...

Определить самого высокого человека в группе
Нужна программа, которая определяет людей, чей рост выше r. Данные хранить в двумерном массиве.

2
2504 / 1125 / 582
Регистрация: 07.06.2014
Сообщений: 3,271
19.09.2014, 11:36 2
Лучший ответ Сообщение было отмечено Sah600 как решение

Решение

тут удобно использовать записи:
Pascal
1
2
3
4
5
type StudRec = record
  FAM : string[15];
  IMYOTCH : string[4];
  GOD : integer;
end;
дальше - по вкусу - можно определить массив на 10 записей (Gruppa : array[1..10] of StudRec;
прочитать все1 10 строк в этот массив (строки нужно разбирать на составляющие или, ещё говорят, "парсить")
Потом перебором в массиве найти студента с минимальной фамилией (символы в таблице ASCII расположены в алфавитном порядке, поэтому 'ИВАНОВ' < 'СИДОРОВ'
и найти студента с максимальным годом рождения.

Можно обойтись без массива: завести две переменные FirstFAMStud, YoungStud : StudRec,
считывать строчки, разбирать и сразу сверять с запомненными в переменных, если они лучше -то менять.

что у тебя не получается?
0
Эксперт Pascal/Delphi
2275 / 1264 / 1478
Регистрация: 29.08.2014
Сообщений: 4,575
19.09.2014, 13:23 3
Тут не только Фамилии, еще и инициалы сортировать надо (на случай одинаковых Фамилий)

Добавлено через 32 минуты
c дополнительным массивом пожалуйста:
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
program sortirovka;
var
  s,y:array[1..10] of string;
  i:integer;
 
procedure sort(var A:Array of string;n:boolean);
{if n-true sorting accendind else descending}
var
  i,j:integer;
  tmp:string;
begin
  for i:=Low(A) to High(A)-1 do
    for j:=i to High(A) do
      if ((n) and (A[i]>A[j])) or (not (n) and (A[i]<A[j])) then begin
        tmp:=A[i];
        A[i]:=A[j];
        A[j]:=tmp;
      end;
end;
 
begin
  for i:=1 to 10 do begin
    write (i,'.>');
    readln(s[i]);
    y[i]:=copy(s[i],length(s[i])-3,length(s[i]))+#32+copy(s[i],1,length(s[i])-5);
  end;
   Sort(s,true);
   Sort(y,false);
      i:=0;
      repeat
        i:=i+1
      until (pos(copy(s[1],1,length(s[1])-5),y[i])<>0) or (i=10);
      writeln(copy(y[i],6,length(y[i]))+#32+copy(y[i],1,4));
 readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.09.2014, 13:23

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

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

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

Получить первого и следующего человека по алфавиту (с помощью интерфейса)
Здравствуйте. У меня задача получить первого и следующего человека по алфавиту. Сделать нужно с...

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


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

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

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