|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.05.2010, 20:16 | #1 |
Пользователь
Регистрация: 24.05.2010
Сообщений: 26
|
Накосячил :-(
program zadacha2;
type TSport = record end; var family,name,fater:string; chas:word; height,long:word; i,n:integer; a:array [1..60] of TSport; best : Real; bestID : Integer; begin; writeln ('vvedite koli4estvo sportsmenov'); readln(n); for i:=1 to n do begin writeln ('vvedite family'); readln(family); writeln('vvedite name'); readln(name); writeln('vvedite fater'); readln(fater); writeln('vvedite vremya za 1km'); readln(chas); writeln('vvedite prijok v visoty'); readln (height); writeln ('vvedite prijok v dlinny'); readln(long); end; best:=long; bestID:=1; for i:=2 to n do begin if long > best then begin best:=long; bestID:=i; end; end; writeln(bestID); readln; end. помогите, чуть неправильно выдает ответ, всмысле не показывает который макс прыгул в длинну. Язык:турбо Паскаль, условие Организовать массив записей, который содержит информацию о соревнованиях спортсменов троеборцев (ФИО, время на 1км, прыжок в высоту, прыжок в длину). определить лучшего спортсмена по прыжкам в длину. (если можно напишите полностью рабочую программу от програм до енд. ) заранее оч. большое спасибо! |
24.05.2010, 20:58 | #2 |
БохЪ
Форумчанин
Регистрация: 30.09.2009
Сообщений: 724
|
Код:
PS ты вообще понял что в твоем коде делается? Небось слышал звон да не знаешь где он? PSS я не поленился переписать код, а ты не поленись нажать на весы и сказать спасибо)
В планах порабощение вселенной...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Си++. Помогите составить прогу а то я чё то накосячил | Sid-666 | Помощь студентам | 1 | 06.05.2009 01:55 |
Накосячил..что делать???(( | vip131 | Свободное общение | 2 | 07.02.2008 07:42 |
Где я накосячил? | Acid | Помощь студентам | 4 | 30.05.2007 12:56 |