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

@telepuzic21 · Регистрация: 11.12.2013

Люди добрые, помогите с задачей, если есть таковы!

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

@Oleg98 · 19.12.2013, 23:00

Pascal

const n = 10;
type date = record
       imia : string;
       familia : string;
       otenca : real;
     end;
     
var list : array [1..n] of date;
    i, x, y : byte;
    d : date;
    
begin
  for i := 1 to n do
  begin
    write ('Введите имя студента: ');
    readln (list[i].imia);
    write ('Введите фамилию студента: ');
    readln (list[i].familia);
    write ('Введите оценку студента: ');
    readln (list[i].otenca);
  end;
  
  for x := 1 to n-1 do
    for y := 1 to n-x do
    begin
      if list[y].familia < list[y+1].familia then
      begin
        d := list[y];
        list[y] := list[y+1];
        list[y+1] := d;
      end
    end;
 
  for i := 1 to n do
    writeln (list[i].imia, ' ', list[i].familia);
end.

@Legend_13 · 01.06.2015, 14:48

А как можно записать в массив переменные типа данных record? и возможно вообще это?

прошу помочь

@ZX Spectrum-128 · 01.06.2015, 18:00

Legend_13, а в программе выше что делается?

@telepuzic21 0 / 0 / 0 Регистрация: 11.12.2013 Сообщений: 6
		1
	Написать список студентов в порядке убывания по фамилии 17.12.2013, 20:23. Просмотров 1466. Ответов 3 Метки нет (Все метки) Люди добрые, помогите с задачей, если есть таковы! "Написать список студентов в порядке убывания по фамилии." 0

@Legend_13 0 / 0 / 0 Регистрация: 18.03.2015 Сообщений: 8
	01.06.2015, 14:48	3
	А как можно записать в массив переменные типа данных record? и возможно вообще это? прошу помочь 0

@ZX Spectrum-128 6436 / 4349 / 4659 Регистрация: 05.06.2014 Сообщений: 21,276
	01.06.2015, 18:00	4
	Legend_13, а в программе выше что делается? 0

Опции темы

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

Решение