Вывести фамилии пассажиров по алфавиту - Pascal ABC

  1. Вводятся фамилии пассажиров и масса багажа(двузначное число). Вывести 2 списка:1-пассажир-багаж в алфавитном порядке, 2-пассажир-багаж по убыванию багажа,использовав метод пузырька.


textual

Код к задаче: «Вывести фамилии пассажиров по алфавиту - Pascal ABC»

type pass=record
          fam:string;
          bag:integer;
          end;
var a:array[1..20] of pass;
    n,i,j:integer;
    x:pass;
begin
repeat
writeln('Введите число пассажиров от 2 до 20 n=');
readln(n);
until n in [2..20];
for i:=1 to n do
 begin
  writeln('Пассажир ',i);
  write('Фамилия: ');
  readln(a[i].fam);
  repeat
  write('Вес багажа, двузначное число: ');
  readln(a[i].bag);
  until a[i].bag in [10..99];
 end;
for i:=1 to n-1 do
for j:=1 to n-i do
If a[j].fam>a[j+1].fam then
 begin
  x:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=x
 end;
writeln('Список по алфавиту');
for i:=1 to n do
writeln(a[i].fam,' ',a[i].bag);
for i:=1 to n-1 do
for j:=1 to n-i do
If a[j].bag<a[j+1].bag then
 begin
  x:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=x
 end;
writeln('Список по убыванию веса багажа');
for i:=1 to n do
writeln(a[i].fam,' ',a[i].bag);
end.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.300 из 5



Похожие ответы
  1. Составьте процедуру, выводящую строку из n одинаковых цифр. Длина строки и цифра, которая выводится, являются параметрами процедуры. Вывести пять строк разной длины из разных цифр. Процедуру оформить несколькими способами. P.S. Помогите пожалуйста с заданием)Заранее спасибо

  1. С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.

  1. Народ, плиз, помогите заочнику!Замучилась искать помощь в офлайне 1. Надо вычислить D при любых значениях a, x: D= (двойная скобка, не знаю, как тут ее найти) , если ; , если . 2. Заданы три числа a, d, c. Вывести на экран сообщение, превышает ли наибольшее из них заданную величину Q. 3. S=cos(x+1)+cos(x+2)+cos(x+3)+...+cos(x+21) Это срочно, зачет через полтора часа! Кто откликнется - самая огромная благодарность!!!!!!

  1. Помогите пожалуйста решить задачу: дано целое число. Вывести на экран значение наименьшей его цифры.

  1. Решите пожалуйста задачу на строки. Если можно можете еще объяснить что сделали. Вывести все буквы которые есть во всех словах. К примеру вводим слова: папа, мама Выводить должен: п,а,м

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!

  1. Вывести квадраты 10 первых натуральных чисел.

  1. Дан файл f, содержащий сведения о студентах: ФИО, группа, оценки за экзамены. Вывести в файл f1 и на экран сведения о студентах-хорошистах; подсчитать их количество. Использовать при решении подпрограммы. Предусмотреть проверку открытия файла.

  1. Дан текст, в которой слова разделены пробелами, а в конце стоит точка. Если количество слов в тексте нечётное - вывести среднее слово; если чётное - вывести 2 средних слова.

  1. Вывести на экран все русские согласные буквы строки в алфавитном порядке.Добавлено через 2 часа 7 минут пж ребят