|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.05.2010, 14:44 | #1 |
Пользователь
Регистрация: 24.05.2010
Сообщений: 26
|
Что то не работает как надо...
вот тут то и выскакивает ошибка, почему, где и как исправить? Продвиньте вперед новичка
цель программы :Организовать массив записей, который содержит информацию о соревнованиях спортсменов троеборцев (ФИО, время на 1км, прыжок в высоту, прыжок в длину). определить лучшего спортсмена по прыжкам в длину. program zadacha2; var i,n:integer; a:array[1..99] of integer; begin; readln(n); for i:=1 to n do writeln ('vvedite FIO, vrema 1 km, prijok v visotu, prijok v dlinu'); readln (a[i].fio, a[i].km, a[i].height, a[i].long); best:=a[1].long; bestID:=1; for i:=2 to n do begin if a[i].long>best then begin best:=a[i].long; bestID:=i; end; end; writeln(a[i].fio); readln; end. |
24.05.2010, 15:07 | #2 |
Пользователь
Регистрация: 24.05.2010
Сообщений: 26
|
Спасибо за помощь....
|
24.05.2010, 15:50 | #3 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
В вашем задании необходимо объявить массив записей!!! А вы объявили массив целых чисел
a: array [1..99] of Integer; !!! Необходимо написать так type TSport = record family,name,fater: string; {фамилия, имя, отчество} chas: word; {время} hieght,long: word; {прыжок в высоту и в длину} end; А теперь объявляем массив записей: a: array [1..99] of TSport; Поиск лучшего спортсмена у вас проделан правильно, только для вывода ФИО надо записать так: writeln(a.family,' ',a.name,' ',a.fater);
ICQ: 593-013-807
|
24.05.2010, 15:55 | #4 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
И еще ввод данных о спортсменах нужно осуществлять следующим образом:
for i:=1 to n do with a do begin readln(family); readln(name); readln(fater); readln(chas); readln(height); readln(long); end; При этом для каждого оператора readln можно добавить пояснитильную запрись типа writeln('Введите фамилию: ') и т. д.;
ICQ: 593-013-807
|
24.05.2010, 16:17 | #5 |
Пользователь
Регистрация: 24.05.2010
Сообщений: 26
|
Дон карлеоне, 2642711 в асю стукните пожалуиста, а там договоримся
|
24.05.2010, 16:22 | #6 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
У меня аськи нет! А договариваться о чем будем???
ICQ: 593-013-807
|
24.05.2010, 16:34 | #7 |
Пользователь
Регистрация: 24.05.2010
Сообщений: 26
|
о сумме за 3 задачки
просто мя преподавательница завтра скушает, а мама потом еще и поджарит я сам толком не шарю... |
24.05.2010, 16:37 | #8 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
Напиши что ты готов за них заплатить и скинь условия задач на dryshkov@yandex.ru
ICQ: 593-013-807
|
24.05.2010, 18:33 | #9 |
Пользователь
Регистрация: 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, 22:27 | #10 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
исправлять не буду, прогу тебе уже написали.
ICQ: 593-013-807
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как работает программа и что делает | dragun4ik | Помощь студентам | 0 | 23.05.2010 15:51 |
Таймер обратного отсчета работает не так как надо.. нужно найти ошибку в коде... | Человек_Борща | Общие вопросы Delphi | 10 | 13.04.2010 20:06 |
Прога не работает как надо - код С | NightManiak | Помощь студентам | 2 | 21.01.2010 08:15 |
С#.NET. Маленькая проблемка - условие не работает так , как надо | Ksy | Общие вопросы .NET | 11 | 24.12.2009 21:07 |
Что и как надо сделать?? | Кириллович | Помощь студентам | 3 | 25.05.2009 12:43 |