Помогите дописать программу на языке FreeBasic.Даны результаты бега N спортсменов в конькобежном многоборье на 4-ч стандартных дистанциях: 500м, 1000м, 5000м, 10000м. Результаты(времена на дистанциях) должны вводится реальные(сек; мин., сек; мин., сек; мин., сек.Сформировать таблицу баллов по дистанциям и суммарные баллы всех участников, приводя времена к 500-метровой дистанции(выражая все в секундах), число баллов пропорционально времени в секундах. Вывести таблицу, в которой участники соревнований отсортированы по местам, занятым ими( в формате: фамилия, баллы по дистанциям, сумма баллов, место).Исходная информация вводится с клавиатуры.(Далее идет сама прога).CLS TYPE Turnir Family AS STRING vrema5 AS SINGLE vrema10 AS SINGLE vrema50 AS SINGLE vrema100 AS SINGLE END TYPE INPUT"vvedite kolichestvo uchastnikov",N DIM Ch(i) AS Turnir CLS FOR i = 1 TO N PRINT "_____uchastnik :"; i INPUT "Vvedite familiju:", Ch(i).Family INPUT "Vvedite vrema(sec) 500m:", Ch(i).vrema5 INPUT "Vvedite vrema(sec) 1000m:", Ch(i).vrema10 INPUT "Vvedite vrema(sec) 5000m:", Ch(i).vrema50 INPUT "Vvedite vrema(sec) 10000m:", Ch(i).vrema100 NEXT i PRINT "_______Balli za distancii(500m,1000m,5000m,10000m)_______ " FOR i = 1 TO N B1!= (Ch(i).vrema5)* 0.1 B2!= (Ch(i).vrema10)* 0.1 B3!= (Ch(i).vrema50)* 0.1 B4!= (Ch(i).vrema100)* 0.1 Summb! = B1!+B2!+B4!+B3! PRINT"familiya "; RTRIM$(Ch(i).Family); " ";"balli:";B1!;" ";B2!; " "; B3!;" ";B4!;" ";"summa ballov:";Summb! NEXT iНо у меня не получается отсортировать участников,помогите,пожалуйста.

Загрузить картинку
Не нравится ответ?

Если ответ на твой вопрос отсутствует, или он не полный, то рекомендуем найти информацию через поиск на сайте.

Найти другие ответы
Новые вопросы и ответы