Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 0
Регистрация: 11.09.2013
Сообщений: 34
1

Обработать данные результатов соревнований по бегу

22.09.2013, 23:54. Просмотров 1043. Ответов 1
Метки нет (Все метки)

Обработать данные результатов соревнований по бегу

Результаты соревнований по бегу

Спортсмен Результат, сек

(до 20 символов) 99,99

Вывести данные призовых мест (с 1 по 3):
«Спортсмен», время
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.09.2013, 23:54
Ответы с готовыми решениями:

Обработать данные результатов соревнований по бегу
Задание. Подготовить исходные данные в текстовом файле (не менее 10 строк). Исходные данные...

Составить итоговый протокол соревнований на основании трех результатов соревнований по прыжкам в длину
Тщетные попытки сделать курсовую работу. На основании трех результатов соревнований по прыжкам в...

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

Можете пожалуйста создать базу данных для расчета результатов соревнований
Разработать информационную систему «Старт» для подсчета результатов соревнований. БД состоит из...

1
Модератор
61237 / 45897 / 31680
Регистрация: 18.05.2008
Сообщений: 110,564
23.09.2013, 08:38 2
Лучший ответ Сообщение было отмечено mi_muerte как решение

Решение

Через массив записей.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses crt;
type beg=record
         fm:string[20];
         rs:real;
         end;
var z:array[1..100] of beg;
    n,i,j:byte;
    x:beg;
begin
clrscr;
write('Количество спортсменов n=');
readln(n);
writeln('Введите данные о ',n,' спортсменах');
for i:=1 to n do
 begin
  writeln('Спортсмен ',i);
  write(' Фамилия: ');readln(z[i].fm);
  write(' Результат: ');readln(z[i].rs);
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if z[i].rs>z[j].rs then
 begin
  x:=z[i];
  z[i]:=z[j];
  z[j]:=x;
 end;
writeln('3 лучших результата:');
for i:=1 to 3 do
writeln(z[i].fm,' ',z[i].rs:0:2);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.09.2013, 08:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Среди результатов соревнований по лыжным гонкам, вводимых пользователем, вычислить три лучших результата
Помогите пожалуйста: Среди результатов соревнований по лыжным гонкам, вводимых пользователем,...

Разработать информационную систему "Старт" для подсчета результатов соревнований
База данных состоит из трех таблиц: "Участники": * фамилия и инициалы; * стартовый номер...

Разработать информационную систему "Старт" для подсчета результатов соревнований. База данных
Помогите пожалуйста создайте базу данных. Очень буду благодарен Разработать информационную систему...

Разработать информационную систему "Старт" для подсчета результатов соревнований. База данных в MS Access
Разработать информационную систему "Старт" для подсчета результатов соревнований. База данных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.