Программа спортсмен на Паскаль

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

Для этого воспользуемся оператором ветвления и командами ввода и вывода  из основ Паскаль:

[code]
Program Sport;
var
NumS : Array [1..8] of Integer;
TimeS: Array [1..8] of Real;
TimeSred: Array [1..8] of Real;
KolS: Integer;
DlinaDist: Real;
i:Integer;

Begin
Write(‘Введите количество спортсменов: ‘);
Read(KolS);
Write(‘Введите номера спортсменов: ‘);
for i:=1 to KolS do
ReadLn(NumS[i]);
Write(‘Введите время спортсменов: ‘);
for i:=1 to KolS do
begin
Write(‘N: ‘,NumS[i], ‘: ‘);
ReadLn(TimeS[i]);
end;
Write(‘Введите длину дистанции: ‘);
ReadLn(DlinaDist);

for i:=1 to KolS do
TimeSred[i]:= DlinaDist/TimeS[i];
WriteLn(‘N сп. | сред. скорость’);
WriteLn(‘———————-‘);
for i:=1 to KolS do
WriteLn(NumS[i]:5,’ | ‘,TimeSred[i]:12:3);
End.
[/code]

1 Star2 Stars3 Stars4 Stars5 Stars (нет рейтинга)
Вы можете пропустить чтение записи и оставить комментарий. Размещение ссылок запрещено.
Оставить комментарий