Сортировка записей. Во время лыжных соревнований в центральный судейский компьютер поступают данные в следующем виде: номер участника, его фамилия, страна. - презентация

1 Сортировка записей

2 Во время лыжных соревнований в центральный судейский компьютер поступают данные в следующем виде: номер участника, его фамилия, страна и показанный результат. Составить программу, которая после ввода очередной информации выдает таблицу результатов участников в порядке ухудшения.

3 Program Uses Type record end Var Program Ski; Uses Crt; Type inf= record num: byte; name,strana: string[30]; rez: real; end; Var m: array [1..100] of inf; x:inf; i,j,k,l: integer;

4 Procedure Begin Write ReadLn For todo withdo begin WriteReadLn WriteReadLn WriteReadLn WriteReadLn WriteLn; end; End; Procedure Input; Begin Write('Введите количество участников соревнований: '); ReadLn(k); For i:=1 to k do with m[i] do begin Write('Введите номер участника: '); ReadLn(num); Write('Введите фамилию: '); ReadLn(name); Write('Какую страну представляет: '); ReadLn(strana); Write('Показанный результат: '); ReadLn(rez); WriteLn; end; End;

5 Procedure Begin If then End Procedure Vich; Begin For i:=1 to k-1 do For j:=i+1 to k do begin If m[j].rez

6 Procedure Begin For to do withdo begin end End Procedure Output; Begin For i:=1 to k do with m[i] do begin WriteLn('',i,'-ое место занял:'); WriteLn('участник под номером: ',num); WriteLn('Его фамилия: ',name); WriteLn('Представляет страну : ',strana); WriteLn('Показанный результат: ',rez:3:1); WriteLn; end; End ;

7 Begin Begin ClrScr; Input; Vich; Output; ReadKey; End End.

8 По окончании школы ученики сдавали экзамены по литературе, математике, физике и информатике. Определите экзамен, на котором ученики получили наиболее высокий средний бал и выведите список учащихся в порядке убывания результатов по этому экзамену.

9 Const Const Kol = 1000; Type End Type Entry = Record Autor, Title, Publisher, City : String; Year : ; End; Var Var List : Array[1..Kol] of Entry; Но что если требуется внести в базу данных информацию не о книге, а о журнале? Ведь в этом случае поля записи будут совсем другими!

10 Type EntryType = (Book, Magazine); Caseof Entry = Record Autor, Title : String; Year : ; Case EntryType of Book : (Publisher, City : String); Magazine : (MagName : String, Volume, Issue : Integer) End; Поля Autor, Title, Year составляют фиксированную часть. Оставшаяся часть описания Entry образует вариантную часть.

11 Но как программа может хранить информацию о текущем состоянии каждой записи? Другими словами, каким образом можно узнать, что List[3] содержит ссылку на книгу, а List[4] - ссылку на журнал? Решение этой проблемы заключается в добавлении в каждой записи нового поля, называемого полем тега. Type Case of EntryType = (Book, Magazine); Entry = Record Autor, Title : String; Year : ; Case TAG : EntryType of Book : (Publisher, City : String); Magazine : (MagName : String, Volume, Issue : Integer) End;

12 Procedure Begin If Then Else Begin End End Procedure PrintRef(Citation : Entry); Begin Writeln(Citation.Autor); Writeln(Citation.Title); Writeln(Citation.Year); If Citation.TAG = Book Then Writeln(Citation.Publisher,', ',Citation.City) Else Begin Writeln(Citation.MagName); Writeln(Citation.Volume'-',Citation.Issue) End; End;

13 Figure Figure Опишите под именем Figure вариантную запись. Если переменная типа Figure представляет собой круг, то она должна содержать радиус соответствующей окружности. Если эта переменная представляет треугольник, то она должна содержать величину угла и длины двух сторон, образующих этот угол. Если эта переменная представляет прямоугольник, то она должна содержать длины двух сторон. Выполните одну из следующих задач: Figure а) Напишите процедуру, которая запрашивает и получает значение типа Figure от пользователя. Figure б) Напишите функцию, которая получает на входе значение типа Figure и вычисляет площадь фигуры. Figure в) Напишите функцию, которая получает на входе значение типа Figure и вычисляет периметр фигуры.