Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.10.2012, 21:11   #1
JosH7
Пользователь
 
Регистрация: 25.03.2012
Сообщений: 12
По умолчанию Паскаль. Сортировка за алфавитом

Здравствуйте. Помогите:
нужно сделать список студентов, упорядочений за алфавитом. в него должны входить год рождения, год поступления, курс, группа.
Как его отсортировать?
Спасибо.
JosH7 вне форума Ответить с цитированием
Старый 13.10.2012, 21:22   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
Как его отсортировать?
Цитата:
упорядочений за алфавитом.
судя по заданию по Алфавиту) а выбирать вам сортировок Вагон какую сможете реализовать ту и берите)
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 13.10.2012, 21:49   #3
JosH7
Пользователь
 
Регистрация: 25.03.2012
Сообщений: 12
По умолчанию

вот код..идет туго очень(
Код:
program lab11 (input, output);
type
  stud=record
  pr, im, grup: string;
  rikn: 1970..2000;
  rikv: 2000..2012;
  kurs: 1..6;
  end;
var spys: array [1..10] of stud; i,j,k: integer;  c: char;
begin
writeln ('vv spysok stydentiv: priz, im, grup, rikn, rikv, kurs');
for i:=1 to 10 do
  with spys[i] do
    begin
    for j:=1 to 10 do read(pr[j]);
    for j:=1 to 10 do read(im[j]);
    for j:=1 to 10 do read(grup[j]);
    readln (rikn, rikv, kurs)
    end;
for i:=1 to 10 do
    with spys[i] do
  begin
   if pr[i]>pr[i+1] then
     begin
     c:=pr[i+1];
     pr[i+1]:=pr[i];
     pr[i]:=c;
     end;
  end;
for i:=1 to 10 do
 with spys[i] do
 begin
    for j:=1 to 10 do write(pr[j]);
    for j:=1 to 10 do write(im[j]);
    for j:=1 to 10 do write(grup[j]);
    writeln (rikn, rikv, kurs);
    end;
end.

Последний раз редактировалось Stilet; 14.10.2012 в 12:32.
JosH7 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как заполнить StringGrid русским алфавитом рандомно без повтора буквы LatuSerge Помощь студентам 2 18.04.2011 15:45
Работа с русским алфавитом 0479 Общие вопросы по Java, Java SE, Kotlin 4 09.11.2010 23:12
Шифрование файла алфавитом 0479 Паскаль, Turbo Pascal, PascalABC.NET 3 13.09.2010 23:11
паскаль,одномерный массив,сортировка вставка,сортировка убывания,от максимального до конца немозг Помощь студентам 11 06.02.2010 21:57
Сортировка за алфавитом $T@LKER Помощь студентам 2 30.03.2009 16:02