19.05.2012, 20:10 | #1 (permalink) |
Новичок
Регистрация: 28.10.2011
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Комбинированный тип. Указатели и динамические структуры данных
Сведения о студентах содержат следующую информацию: фамилия, имя, курс, оценки по предметам (математика, физика, информатика). Создать массив записей (из 6-10 элементов) и заполнить его данными. Найти фамилию и имя студента 2-го курса, который учится хуже остальных. Решить эту же задачу с использованием очереди (вместо массива). Программа через массив. program Student; type TPtr = ^TElem; TElem = record inf : integer; link : TPtr; end; TMarks=record Kyrs:byte; Matematika:byte; Phys:byte; Inform:byte; end; TStudent=record SurName:string[30]; Name:string[20]; Marks:Tmarks; end; TGroup=array [1..6] of TStudent; var group1:TGroup; i,max,imax:integer; smark:array [1..6] of integer; begin for i:=1 to 6 do with group1[i] do begin Writeln('Введите фамилию'); readln(SurName); writeln('Введите имя'); readln(Name); writeln('Введите курс обучения'); readln(Marks.Kyrs); writeln('Введите оценку по математике'); readln(Marks.Matematika); writeln('Введите оценку по физике'); readln(Marks.Phys); writeln('Введите оценку по информатике'); readln(Marks.Inform); end; writeln('ФИ Курс Математика Физика Информатика '); for i:=1 to 6 do begin writeln(group1[i].SurName,' ',group1[i].Name,' ',group1[i].Marks.Kyrs,' ',group1[i].Marks.Matematika,' ',group1[i].Marks.Phys,' ',group1[i].Marks.Inform); end; for i:=1 to 6 do begin smark[i]:=group1[i].Marks.Matematika + group1[i].Marks.Phys + group1[i].Marks.Inform; end; max:=smark[1]; imax:=1; for i:=1 to 6 do begin if (group1[i].Marks.Kyrs)=2 then begin if smark[i]<max then begin max:=smark[i]; imax:=i; end; end; end; writeln('Худший студент 2-го курса ',group1[imax].SurName,' ',group1[imax].Name); end. |
19.05.2012, 20:10 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Данные темы могут вам хорошо помочь в решении вопроса Задачи на комбинированный тип, Pascal Указатели поворотов и аварийка |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|