Файлы, Паскаль

netsky9 · 01.03.2014, 13:38

Дан текстовый файл с данными о соревновании: название команды, количество набранных очков, количество забитых голов, количество пропущенных голов. Вывести список команд на экран. Вывести в текстовый файл команды, упорядоченные в зависимости от занятого места.
Вот программа с выводом на экран, проблема в том что не знаю, как вывести отсортированный список в файл.

PHP код:


			
uses crt;

type sport=record

           naz:string[20];

           kol,zab,pro:integer;

           end;

const nmax=20;

var a:array[1..nmax] of sport;

    x:sport;

    n,i,j:byte;

begin

clrscr;

repeat

write('Количество команд до ',nmax,' n=');

readln(n);

until n in [1..nmax];

writeln('Введите данные:');

for i:=1 to n do

 begin

  writeln('Команда ',i);

  with a[i] do

   begin

    write('Название: ');readln(naz);

    write('Количество очков: ');readln(kol);

     write('Количество забитых голов: ');readln(zab);

      write('Количество пропущенных голов: ');readln(pro);

   end;

 end;

clrscr;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i].kol<a[j].kol then

 begin

  x:=a[i];

  a[i]:=a[j];

  a[j]:=x;

 end;



for i:=1 to n do

with a[i] do

 begin

  gotoXY(1,whereY);write(' ',i,')');

  gotoXY(9,whereY);write(naz);

  gotoXY(79,whereY);writeln(' ');

 end;



readln

end.

Vladimir_S · 01.03.2014, 19:55

Да ладно, всё Вы (судя по другой задачке) умеете! Объявите файл, откройте на запись да и выводите в него. Только в файл выводите без этих CRT-шных рюшечек типа GotoXY(). В конце закройте файл, да и всё.

netsky9 · 01.03.2014, 22:05

Цитата:

Сообщение от Vladimir_S

Да ладно, всё Вы (судя по другой задачке) умеете! Объявите файл, откройте на запись да и выводите в него. Только в файл выводите без этих CRT-шных рюшечек типа GotoXY(). В конце закройте файл, да и всё.

ОК попробую. если не получиться добавлю изменённый код.

01.03.2014, 13:38	#1 (permalink)
netsky9 Новичок Регистрация: 15.02.2014 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Файлы, Паскаль Дан текстовый файл с данными о соревновании: название команды, количество набранных очков, количество забитых голов, количество пропущенных голов. Вывести список команд на экран. Вывести в текстовый файл команды, упорядоченные в зависимости от занятого места. Вот программа с выводом на экран, проблема в том что не знаю, как вывести отсортированный список в файл. PHP код: uses crt; type sport=record naz:string[20]; kol,zab,pro:integer; end; const nmax=20; var a:array[1..nmax] of sport; x:sport; n,i,j:byte; begin clrscr; repeat write('Количество команд до ',nmax,' n='); readln(n); until n in [1..nmax]; writeln('Введите данные:'); for i:=1 to n do begin writeln('Команда ',i); with a[i] do begin write('Название: ');readln(naz); write('Количество очков: ');readln(kol); write('Количество забитых голов: ');readln(zab); write('Количество пропущенных голов: ');readln(pro); end; end; clrscr; for i:=1 to n-1 do for j:=i+1 to n do if a[i].kol<a[j].kol then begin x:=a[i]; a[i]:=a[j]; a[j]:=x; end; for i:=1 to n do with a[i] do begin gotoXY(1,whereY);write(' ',i,')'); gotoXY(9,whereY);write(naz); gotoXY(79,whereY);writeln(' '); end; readln end.

01.03.2014, 13:38
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Полезные советы по решению проблемы можно найти в аналогичных обсуждениях Файлы паскаль Паскаль, файлы Паскаль, файлы Паскаль, файлы Файлы в Паскаль Паскаль, файлы

01.03.2014, 19:55	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Да ладно, всё Вы (судя по другой задачке) умеете! Объявите файл, откройте на запись да и выводите в него. Только в файл выводите без этих CRT-шных рюшечек типа GotoXY(). В конце закройте файл, да и всё.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070