1.Гиперссылка - это часть документа, ссылающаяся на элемент в этом документе или на другой объект.
Гиперссылки мы находим в практически каждом документе, например:
Научная статья (в ней может находится ссылка на какой-либо другой источник, либо же какой-то другой документ указывает на статью гиперссылку)
Резюме (в нём могут быть ссылки на ваш почтовый ящик, файлы)
Также гиперссылки используются просто в больших документах, где можно создать лист "Оглавление" для быстрого перехода на нужные Вам страницы.
// PascalABC.NET 3.6
type
TR = record
Имя, Отчество, Фамилия: string;
Возраст, НомерКласса: integer;
БукваКласса: char;
end;
function ПринятьСведения: TR;
begin
Result.Имя := ReadlnString('Имя:');
Result.Отчество := ReadlnString('Отчество:');
Result.Фамилия := ReadlnString('Фамилия:');
Result.Возраст := ReadlnInteger('Возраст:');
Result.НомерКласса := ReadlnInteger('Номер клвсса:');
Result.БукваКласса := ReadlnChar('Буква класса:');
procedure ВывестиСведения(L: List<TR>);
foreach var r in L do
Writeln(r.Имя+' '+r.Отчество+' '+r.Фамилия:40,
r.Возраст:4, r.НомерКласса+r.БукваКласса:4)
var p := new List<TR>;
var n := ReadlnInteger('Сколько учеников добавить?');
loop n do
p.Add(ПринятьСведения);
p := p.OrderByDescending(t -> t.Имя).ToList;
ВывестиСведения(p);
end.
1.Гиперссылка - это часть документа, ссылающаяся на элемент в этом документе или на другой объект.
Гиперссылки мы находим в практически каждом документе, например:
Научная статья (в ней может находится ссылка на какой-либо другой источник, либо же какой-то другой документ указывает на статью гиперссылку)
Резюме (в нём могут быть ссылки на ваш почтовый ящик, файлы)
Также гиперссылки используются просто в больших документах, где можно создать лист "Оглавление" для быстрого перехода на нужные Вам страницы.
// PascalABC.NET 3.6
type
TR = record
Имя, Отчество, Фамилия: string;
Возраст, НомерКласса: integer;
БукваКласса: char;
end;
function ПринятьСведения: TR;
begin
Result.Имя := ReadlnString('Имя:');
Result.Отчество := ReadlnString('Отчество:');
Result.Фамилия := ReadlnString('Фамилия:');
Result.Возраст := ReadlnInteger('Возраст:');
Result.НомерКласса := ReadlnInteger('Номер клвсса:');
Result.БукваКласса := ReadlnChar('Буква класса:');
end;
procedure ВывестиСведения(L: List<TR>);
begin
foreach var r in L do
Writeln(r.Имя+' '+r.Отчество+' '+r.Фамилия:40,
r.Возраст:4, r.НомерКласса+r.БукваКласса:4)
end;
begin
var p := new List<TR>;
var n := ReadlnInteger('Сколько учеников добавить?');
loop n do
p.Add(ПринятьСведения);
p := p.OrderByDescending(t -> t.Имя).ToList;
ВывестиСведения(p);
end.