|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.10.2011, 17:16 | #1 |
Новичок
Джуниор
Регистрация: 03.10.2011
Сообщений: 1
|
Найти min и упорядочить список.Error 113
Доброго времени суток всем!
Есть такая задача: Составить список учебной группы(25чел). Для каждого указать (..). Вывести ФИО, курс, группу студентов и колонку с min средним балом. Упорядочить список по последней колонке(min средний балл). Листинг программы: program min_sr_ball; uses crt; const st=25; {кол-во студентов} type student=record {составная запись СТУДЕНТ} fio:string[40]; {ФИО} data_rozhd:record day:integer; mounth:integer; year:integer; end; god_post:integer; group:string[8]; kurs:integer; ocenki:array[1..40] of integer; sr_ball:real; {Средний балл} end; var spisok:array[1..st] of student; {массив - список студентов} {Ввод студентов} procedure vvod; var i,j,k,sr:integer; min:real; begin for i:=1 to st do begin clrscr; writeln(i,'fio data_rozhd god_ost group kurs ocenki'); gotoxy(1,2); readln(spisok[i].fio); gotoxy(18,2); readln(spisok[i].data_rozhd.day, spisok[i].data_rozhd.mounth, spisok[i].data_rozhd.year); gotoxy(31,2); readln(spisok[i].god_post); gotoxy(41,2); readln(spisok[i].group); gotoxy(50,2); readln(spisok[i].kurs); sr:=0; for j:=1 to spisok[i].kurs do begin gotoxy(56,1+J); for k:=1 to 4 do begin readln(spisok[i].ocenki[(j-1)*4+k]); gotoxy(56+2*(k), 1+j); sr:=sr+spisok[i].ocenki[(j-1)*4+k]; end; end; {Определение среднего балла} spisok[i].sr_ball:=sr/(spisok[i].kurs*4); {Поиск минимального среднего балла} min:=spisok[1].sr_ball; if spisok[1].sr_ball<min then min:=spisok[i].sr_ball; end; {Вывод отсортированного списка} procedure vyvod; =<<<< error 113: Error in statement= var i,j,k,str:integer; srend:real; stud:student; begin for i:=1 to st-1 do for j:=1 to st do begin stud:=spisok[i]; spisok[i]:=spisok[j]; spisok[j]:=stud; end; end; clrscr; str:=2; {Вывод сведений о студенте} writeln('fio data_rozhd god_ost group kurs ocenki sr_ball'); for i:=1 to st do begin gotoxy(1,str); (..) Не стала дописывать программу до конца, решила сначала разобраться с проблемой (которая выделена в листинге), но не смогла.. Строго не судите, это только 4ая моя "программа" в Turbo Pascal. Прошу помочь с этой ошибкой и, если еще что-то заметите кроме того, буду рада |
03.10.2011, 17:46 | #2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,709
|
еще энда выше не хватает
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
найти min max в массиве | lubafffka | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 4 | 08.06.2011 15:48 |
найти индекс min | misha25525 | Помощь студентам | 0 | 11.04.2010 12:03 |
выдаёт error 113 | sergio11 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 21.03.2010 11:48 |
Как найти max и min элементы матрицы????? | ЕвгениуS | Помощь студентам | 19 | 02.03.2008 19:47 |
Упорядочить символьный список по убыванию элементов - язык Пролог | yulia | Помощь студентам | 4 | 07.10.2007 18:53 |