Ребят, помогите, пожалуйста, дорешать
База не очень большая и поэтому не могу разобраться. Задача сначало запрашивает упользователя список студентов с данными(эту часть я выполнила), затем нужно произвести сортировку по году рождения и фамилии.
uses crt type studlub = record nomerzach:string[30]; FIO:string[20]; mestorojd:string[20]; godrojd:string[6]; nomerstud:string[6]; hobbi:string[10]; end; var stud:studlub; f:file of studlub; g:text; i, max, n:word; begin clrscr; assign(f, 'stud.dat'); rewrite(f); writeln('Vvodite dannie o studentax'); repeat with stud do begin write('nomer zachetki: '); readln(nomerzach); write('FIO: ');readln(Fio); write('mestorojd: ');readln(mestorojd); write('Godrojdeniy: ');readln(godrojd); write('nomer studencheskogo: ');readln(nomerstud); write('hobbi: ');readln(hobbi); end; write(f, stud); clrscr; writeln ('ENTER-prodolghenie vvoda, ESC-zavershenie vvoda'); until readkey=#27; clrscr; reset(f); writeln('Spisok studentov:' :40); writeln; writeln('-----------------------------------------------------------------------'); writeln('| ьzacotki| FIO | Mesto rojd | God rojdeniy | Nomer stud | hobbi |'); writeln('-----------------------------------------------------------------------'); while not eof(f) do begin read(f, stud); with stud do begin gotoXY(1,whereY);write('| ',nomerzach); gotoXY(11,whereY);write('| ',Fio); gotoXY(21,whereY);write('| ',mestorojd); gotoXY(34,whereY);write('| ',godrojd); gotoXY(50,whereY);write('| ',nomerstud); gotoXY(63,whereY);write('| ',hobbi); gotoXY(73,whereY);write('|'); end; writeln; end; writeln; close(f); writeln('ENTER - exit programm'); readkey; end. |
Простите, решается на ПАСКАЛЬ
|
Цитата:
Цитата:
Ну неужели трудно нормально сформулировать условие задачи? |
Да. в меня должны спросить тип сортировки и в зависимости от этого отсортировать по году(убыванию) и студентов по алфавиту
|
Цитата:
Код:
uses crt; |
Спасибо большое! буду разбираться
|
Часовой пояс GMT +4, время: 06:24. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.