Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 11.12.2013
Сообщений: 6
1

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

17.12.2013, 20:23. Просмотров 1466. Ответов 3
Метки нет (Все метки)

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

"Написать список студентов в порядке убывания по фамилии."
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2013, 20:23
Ответы с готовыми решениями:

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

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

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

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

3
10 / 10 / 7
Регистрация: 05.12.2013
Сообщений: 42
19.12.2013, 23:00 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
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
0 / 0 / 0
Регистрация: 18.03.2015
Сообщений: 8
01.06.2015, 14:48 3
А как можно записать в массив переменные типа данных record? и возможно вообще это?
прошу помочь
0
Эксперт Pascal/Delphi
6436 / 4349 / 4659
Регистрация: 05.06.2014
Сообщений: 21,276
01.06.2015, 18:00 4
Legend_13, а в программе выше что делается?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2015, 18:00

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

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

Структуры: список студентов, вывод в порядке убывания среднего балла
Задача: Дан список студентов, включающий в себя ФИО, 4 оценки, город проживания студента и...

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

Вывести список неуспевающих студентов в порядке убывания количества пропущенных ими занятий
Сама задача: Группе студентов в результате полусеместровой аттестации были выставлены оценки по...


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

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

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