Record Опции

[Anastacia Adesso]

Люююдиии!
Кто понимает эти записи?
У меня вообще ничего в этой прге не пашет, даже когда убрано почти всё..

А по идее это база данных: спортсмены с результатами по прыжкам в высоту..
 UZD7.PAS ( 3.76 килобайт ) Кол-во скачиваний: 460

[volvo]

Нет, не так...

procedure vvod;
var sport:sportsmeny;
begin
  inc(n); { <--- }
  ...

begin
  clrscr;
  { Вот так будет надежнее }
  n := 0;
  vvod;
  ...

Если ты сделаешь так, как показала - то будешь записывать все данные на первую позицию массива... Как результат - потеряешь всю информацию, кроме одной записи...

Второе.

for s:=1 to popytki do begin
  readln(rez[s]); { <--- Здесь ... }
end;

Ты ВСЕ данные о прыжках занесешь в одно и то же место - массив rez у тебя один, и пишешь ты в него (при вводе каждого спортсмена) начиная с первого элемента - результаты прыжков предыдущего спортсмена будут утеряны... Чтобы было корректно - нужно внести массив rez внутрь структуры sportsmeny, чтобы в каждой структуре был свой массив...