Дописать программу на языке 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но у меня не получается отсортировать
Ответы
Const n = 15; var x: array[1..n] of integer; i, min, max: integer; begin randomize; writeln('элементы массива'); min : = 32767; max : = -32768; for i : = 1 to n do begin x[i] : = random(101) - 50; write(x[i]: 4); if (x[i] > 0) and (min > x[i]) then min : = x[i] else if (x[i] < 0) and (max < x[i]) then max : = x[i] end; writeln; writeln('min=', min, ', max=', max) end. тестовое решение: элементы массива 29 -28 -14 -46 -22 13 -6 16 24 -47 -1 39 49 47 -23 min=13, max=-1 const n = 15; var x: array[1..n] of integer; i, max, max1: integer; begin randomize; writeln('элементы массива'); max : = -32768; max1 : = max; for i : = 1 to n do begin x[i] : = random(100); write(x[i]: 3); if max < x[i] then begin max1 : = max; max : = x[i] end else if max1 < x[i] then max1 : = x[i] end; writeln; writeln('второй максимум равен ', max1) end. тестовое решение: элементы массива 37 66 92 11 39 32 70 17 28 80 51 37 1 56 41 второй максимум равен 80
$rows = 20; $cols = 20; $table = '< table border="1"> '; for ($tr=1; $tr< =$rows; $tr++){ $table .= '< tr> '; for ($td=1; $td< =$cols; $td++){ if ($tr===1 or $td===1){ $table .= '< th style="color: white; background-color: blue; "> '. $tr*$td .'< /th> '; }else{ $table .= '< td> '. $tr*$td .'< /td> '; } } $table .= '< /tr> '; }$table .= '< /table> '; echo $table;
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Cколько байтов в компьютерной памяти займёт слово «волос»?
Автор: nalich8524
Преобразуй алгоритм в программу на языке Паскаль:
Автор: polikarpov-70
