Запись в текстовый фаил Опции

[Spaun]

Здравствуйте есть программа и для нее надо организовать запись результатов работы программы в текстовый фаил. Не могли бы кто нибудь подсказать как осуществить сие действие.
Вот код:

program nomer4;
uses crt;
type
sport=record
sur:string;
name:string;
nomber:integer;
ass:byte;
res:integer;
end;
var
mas:array[1..100] of sport;
x,y:real;
n,i,maxI,minI:integer;
g:text;
procedure spisok(x:real);
begin
writeln('Самый лучший и худший из результатов :');
writeln;
writeln;
writeln('-------------------------------------------');
writeln('Фамилия|',' Имя   |','Номер школы|','Класс|','Результат|');
writeln('-------------------------------------------');
maxI := 1;
minI := 1;
for i:=2 to n do begin
  if mas[i].res > mas[maxI].res then maxI:=i;
  if mas[i].res < mas[minI].res then minI:=i;
  end;
begin
writeln(mas[maxI].sur:7,'|',mas[maxI].name:7,'|',mas[maxI].nomber:11,'|',mas[maxI].ass:5,'|',mas[maxI].res:9,'|');
writeln(mas[minI].sur:7,'|',mas[minI].name:7,'|',mas[minI].nomber:11,'|',mas[minI].ass:5,'|',mas[minI].res:9,'|');
end;

writeln('--------------------------------------------');
end;
BEGIN
assign (g, 'C:\123.txt');
rewrite (g);
clrscr;
writeln('Введите количество спортсменов');
readln(n);
for i:=1 to n do
begin
writeln('Введите фамилию');readln(mas[i].sur);
writeln('Введите имя');readln(mas[i].name);
writeln('Введите номер школы');readln(mas[i].nomber);
writeln('Введите класс');readln(mas[i].ass);
writeln('Введите результат');readln(mas[i].res);
writeln('___________________________________________________________________');
end;
clrscr;
writeln('-------------------------------------------');
writeln('Фамилия|',' Имя   |','Номер школы|','Класс|','Результат|');
writeln('-------------------------------------------');
for i:=1 to n do
begin
writeln(mas[i].sur:7,'|',mas[i].name:7,'|',mas[i].nomber:11,'|',mas[i].ass:5,'|',mas[i].res:9,'|');
end;
writeln('-------------------------------------------');
writeln;
writeln;
writeln;
spisok(x);
close(g)
end.

[volvo]

Да но как тогда сделать чтобы чтобы обращение в процедуру было все время за разными данными

У тебя в программе нет разных данных, вычисляется только мин/макс, поэтому было предложено такое решение. Если тебе надо вычислять каждый раз разные вещи - об этом надо было говорить сразу. Уточняй, что именно может понадобиться выводить в файл...

понять не могу как оно должно работать.

С экраном (она же консоль) можно работать точно так же, как с обычным текстовым файлом... Для этого нужно либо самому связать файл с устройством CON:

Assign(f, 'CON'); Rewrite(f);
... { Здесь - вывод в файл (в смысле, на экран) }
Close(f);

либо воспользоваться стандартным паскалевским файлом output, который уже связан с этим устройством...

единственное что от этого измениться так это то чту будет дозапись в фаил и то неизвестно

Что неизвестно? Что будет добавление? Используешь Append, значит, информация будет добавляться...

Сообщение отредактировано: volvo - 12.06.2008 17:10