avadnure

03.07.2021 19:12 •  Информатика

Дописать программу на языке 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 " : "; 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 " za distancii(500m,1000m,5000m, " 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но у меня не получается отсортировать