Program Olympic;
const
nMax = 50; { максимум 50 команд }
cGold = 7;
cSilver = 6;
cBronze = 5;
type
cName = string[20];
RC = record
position: byte;
name: cName;
nGold: byte;
nSilver: byte;
nBronze: byte;
cTotal: byte
end;
tM = array[1..nMax, 1..2] of byte;
procedure Shell(var a: tM; n: integer);
{ Сортировка методом Шелла массива a[1..n, 1..2]
по убыванию значений элементов второго столбца. }
var
i, j, step, t1, t2: integer;
begin
step := n div 2;
while step > 0 do
begin
for j := n - step downto 1 do
begin
i := j;
while i <= n - step do
begin
if a[i, 2] < a[i + step, 2] then
begin
t1 := a[i, 1]; t2 := a[i, 2];
a[i, 1] := a[i + 1, 1]; a[i, 2] := a[i + 1, 2];
a[i + 1, 1] := t1; a[i + 1, 2] := t2
end;
i := i + step
end
end;
step := step div 2
end
end;
{ Основная программа }
var
f: file of RC;
a: tM;
i, n: byte;
s: cName;
t: RC;
begin
{ Организуем ввод данных }
Assign(f, 'Olympic.in');
Rewrite(f);
n := 0;
repeat
Writeln('Введите наименование команды или * для окончания ввода');
Readln(s);
if s[1] <> '*' then
begin
n := n + 1;
Write('Количество медалей: золото, серебро, бронза: ');
Readln(t.nGold, t.nSilver, t.nBronze);
t.position := n;
t.name := s;
t.cTotal := t.nGold * cGold + t.nSilver * cSilver + t.nBronze * cBronze;
Write(f, t);
a[n, 1] := t.position; a[n, 2] := t.cTotal
end
until s[1] = '*';
Reset(f);
{ Выполняем сортировку заполненного массива a,
определяя положение записей в файле }
Shell(a, n);
{ Выводим результаты, используя прямой доступ к файлу }
Writeln('Результаты олимпиады');
for i := 1 to n do
begin
seek(f, a[i, 1] - 1);
Read(f, t);
Writeln(i, ': ', t.name, '(', t.nGold, ' зол, ', t.nSilver, ' сер, ',
t.nBronze, ' бронз), очков- ', t.cTotal)
end;
Close(f);
end.
<u>Тестовое решение:</u>
Введите наименование команды или * для окончания ввода
Веселые медузы
Количество медалей: золото, серебро, бронза: 4 6 10
Введите наименование команды или * для окончания ввода
Юные сурки
Количество медалей: золото, серебро, бронза: 2 0 5
Введите наименование команды или * для окончания ввода
Черепашки-ниндзя
Количество медалей: золото, серебро, бронза: 3 7 11
Введите наименование команды или * для окончания ввода
*
Результаты олимпиады
1: Черепашки-ниндзя(3 зол, 7 сер, 11 бронз), очков- 118
2: Веселые медузы(4 зол, 6 сер, 10 бронз), очков- 114
3: Юные сурки(2 зол, 0 сер, 5 бронз), очков- 39
Разьем для микропроцессора
разъемы шин PCI, PCI-Express
<span>разъемы под оперативную память
</span>BIOS
батарейка
разъемы под жесткий диск с интерфейсом SATA
южный и северный мост (и их радиаторы)
конденсаторы обычные и твердотельные (один дутый)
слева выглядывает чип питания
чип звуковой карты в окружении сопротивлений и диодов
какая-то перемычка (толком не разглядеть)
катушки индуктивности
разъем для питания вентилятора
разъемы для подключения блока питания
несколько диодных мостов
какие-то микросхемы (невидно нужна лупа)
и сам многослойный текстолит на котором этот металлолом держится
Вторая задача, Паскаль АВС
Program Robiertmusin;
uses crt;
const n = 15;
type
MyArray = array [1..n,1..n] of integer;
procedure ArrayOutput(A: MyArray);
var i,j: integer;
begin
for i := 1 to n do
begin
for j:= 1 to n do
write(A[i,j]:4, ' ');
writeln;
end;
writeln;
end;
procedure RowSort(var A: MyArray; Nom: integer);
var i, j, temp: integer;
begin
for i := 1 to n-1 do
for j := i+1 to n do
if A[nom,i]>A[nom,j] then begin
temp:=A[nom,i];
A[nom,i]:=A[nom,j];
A[nom,j]:=temp;
end;
writeln(nom,'-я строка упорядочена');
end;
var
mass:MyArray;
i,j:integer;
begin
writeln('В матрице целых чисел А (n*n) программа упорядочивает те строки,'); writeln('в которых диагональные элементы не содержат семерок');
{Создаём начальный массив и выводим его}
randomize;
for i := 1 to n do
for j:= 1 to n do
mass[i,j]:=random(20);
ArrayOutput(mass);
{Просматриваем строки}
for i := 1 to n do
begin
if (mass[i,i]<>7) and (mass[n-i+1,n-i+1]<>7) then RowSort(mass, i);
end;
{Выводим итоговый массив}
writeln('Упорядоченный массив: ');
ArrayOutput(mass);
end.
