Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Определение типа введенного числа https://www.cyberforum.ru/ pascalabc/ thread1045786.html
Определить тип введенного числа с помощью оператора Case.... of. Возможны такие варианты ShortInt, Byte, Integer, Word, LongInt, , Real
Pascal ABC Найдите пожалуйста элемент, наиболее близкий к среднему значению всех элементов массива
Одномерный массив 12 элементов заполнить случайными положительными и отрицательными значениями. Найдите элемент, наиболее близкий к среднему значению всех элементов массива можете помочь, а то я не...
Найти значение функции Pascal ABC
найти значение функции y=cos(x) на интервале
Pascal ABC В матрице найти максимальный элемент в массиве A(3,3) найти максимальный элемент https://www.cyberforum.ru/ pascalabc/ thread1045754.html
Pascal ABC Нужна программа https://www.cyberforum.ru/ pascalabc/ thread1045753.html
Которая выведет последовательность из N нечётных случайных чисел от 1 до +K;
Анимация на Паскале Pascal ABC
Доброго времени суток. Прошу вашей помощи с анимацией на паскале. Есть вот такая божья коровка. uses graphABC; var x,y:integer; begin setwindowsize(360,400); setpenwidth(3);...
Вычисление знака по китайскому календарю Pascal ABC
добрый день, нужна помощь в составление программы, которая при получение даты рождения, указует знак по восточному календарю, (тигр, лошадь, итд.). и определить высокосный это год или нет. часть...
Pascal ABC записать косинус в степени, ошибка NaN помогите найти ошибку, нужно записать вычисление следующей формулы, но выдает NaN program a1; var s1, s2, u, b, z:real; a, i:integer; begin s1:=exp(b*ln(cos(a))); a:=3; b:=1;... https://www.cyberforum.ru/ pascalabc/ thread1045735.html
Pascal ABC Вывести все цифры из текста в возрастающем порядке https://www.cyberforum.ru/ pascalabc/ thread1045731.html
Вывести все цифры из текста в возрастающем порядке. В единственной строке входного файла содержится одно предложение, которое состоит из не более чем 1000 символов.
Pascal ABC Вычислить сумму n слагаемых: 1+1/2+⅓+.+1/n Вычислить сумму n слагаемых: 1+1/2+⅓+...+1/n. https://www.cyberforum.ru/ pascalabc/ thread1045728.html
10 / 10 / 7
Регистрация: 05.12.2013
Сообщений: 42
19.12.2013, 23:00 0

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

19.12.2013, 23:00. Просмотров 1506. Ответов 3
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение


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
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.


Вернуться к обсуждению:
Написать список студентов в порядке убывания по фамилии
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2013, 23:00
Готовые ответы и решения:

Вывести список студентов в выходной текстовый файл в порядке убывания оценок студентов
Во входном текстовом файле находится информация о студентах: фамилия, имя и оценка - целое число...

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

Выведите фамилии и имена студентов в порядке убывания их среднего балла
Выведите фамилии и имена студентов в порядке убывания их среднего балла

Вывести фамилии студентов, которым необходимо повысить успеваемость в порядке убывания
Составить программу, которая выводит список фамилий студентов, которым по итогам сессии необходимо...

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