|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.06.2011, 18:11 | #1 |
Регистрация: 29.05.2011
Сообщений: 5
|
Сортировка Паскаль
нужно отредактировать так чтобы выводился только список студентов упорядоченных по дате рождения
program wwod_swed; uses crt; Type birthday = Record dd:1..31; mm:string[10]; yy:integer; end; student=Record famil:string[20]; name:string[15]; date:birthday; ball: array[1..3] of integer; srball:real; end; Var gruppa: array[1..20] of student; n,k:word; i:integer; m:real; begin clrscr; Write('сколько человек в группе? '); Readln(n); Writeln ('введите фамилию студента:'); for i:=1 to n do with gruppa[i] do begin write(i,' студент '); writeln('фамилия '); Readln (Famil); writeln('имя '); Readln (name); writeln('дата рождения '); Read (date.dd); Read (date.mm); Readln (date.yy); write('оценки'); Read (ball[1]); Read (ball[2]); Readln (ball[3]); srball:=(Ball[1]+ball[2]+ball[3])/3; end; for i:=1 to n do with gruppa[i] do begin if(ball[1] and ball[2] and ball[3])=2 then writeln(Famil,' ',name,' ',date.dd,' ',date.mm,' ',date.yy,' ',ball[1],ball[2],ball[3],' ' ,srball); end; Readln; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сортировка паскаль | Arabic_Coffee | Помощь студентам | 1 | 18.05.2011 21:03 |
Паскаль. Сортировка | recerpascal | Помощь студентам | 3 | 20.04.2011 00:42 |
Сортировка, Паскаль | masterlomaster | Помощь студентам | 1 | 16.12.2010 11:16 |
паскаль,одномерный массив,сортировка вставка,сортировка убывания,от максимального до конца | немозг | Помощь студентам | 11 | 06.02.2010 21:57 |