Запись, с файлом и без Опции

[Lady_Dark]

Знаю, что было уже такое, но я все равно не понимаю, как это делать.
Посмотрела ВСЕ материалы, которые тут есть.

Сначала без файла. Вот задача. Делала по форумским задачам, ничего не получилось, взяла у одногрупницы похожую, переделала, ничего как видите не происходит. Уже месяц мучаюсь.. Объясните что там не так, у нас препод никому ничего не объясняет...

А с файлом я не понимаю как делать вообще.
мне не понятно: там (переменная,dann[i].xx,переменная2) что это? и это:

(* Имеем массив записей TBase, i-й элемент массива содержит информацию об i-ом студенте, для того чтобы получить например имя 4-го студента, надо обратиться сначала к 4-й записи, а после к нужному полю b[4].name, его оценка по 2-му предмету - b[4].maks[2]*)

(это из Записи. Record.

Как это совмещать с прогой? Надеюсь на Вашу помощь...



Сформировать запись, имеющую след. структуру:
type: спортсмен=record фамилия:string;
страна:string;
рост:150..220;
вес:30..100;
год рождения:integer;
результат:integer;
end;

и определить:
- средний рост и вес спортсменов данной страны
- найти лучшего спортсмена данной страны
- список спортсменов данного возраста с результатом, не хуже данного.

[volvo]

Смотри, что я бы изменил в программе...

(приведенная программа НЕ тестировалась, хотя компиляцию проходит. Файл только создается, работает программа НЕ с ним, а с массивом, чтобы работа производилась с файлом, надо немного подкорректировать процедуры, их возможные вызовы для этого случая я привел как комментарии)

[Lady_Dark]

volvo, огромное спасибо!!! Выручил... Все прекрасно работает...

Таак, а если с файлом, то, я так понимаю, перед всеми dann[i].xxxx должна стоять f? или не везде?

Вот, как в примере с игрушками:

Код

begin
assign(f,'c:\data.txt');{c:\data.txt - путь к файлу с данными}
reset(f);
repeat
  n:=n+1;
  readln(f,info[i].title);
  readln(f,s);
  val(s,info[i].price,er);
  if info[i].price>maxp then maxp:=info[i].price;
  readln(f,s);
  val(s,info[i].age_1,er);
  readln(f,s);
  val(s,info[i].age_2,er);
until eof(f);
close(f);
clrscr;

эмм... тут правда не с процедурами... что делать в процедурах? я пыталась вставить val и (и или) f перед данн... ничего... чето не знаю я даж... всех этих правил... =(
и еще, что делать, чтобы меню сразу появлялось?..

Сообщение отредактировано: Lady_Dark - 15.03.2007 22:46