Версия для печати темы

Автор: lekking 13.05.2008 2:40

Здравствуйте. Я уже 3 неделю пытаюсь решить эту задачу.Помогите мне пожалуйста её решить.Дан файл в котором содержится марка трубы,страна производитель, фирма, металл, размер. Создать чтение данных в массив записей. Отсортировать данные по убыванию размеров ключей,вывести отсортированные данные на экран и записать их в файл.
Большое спасибо!
Всё что смог написать.[program sort;
uses crt;
type katal = record
mar: string[15];
str: string[15];
fir: string[15];
met: string[15];
raz: string[15];
end;
const t=10;
var
stop:boolean;
k:integer;
book:katal;
f:text;
i,j,n:integer;
a:array [1..100]of katal;
begin
clrscr;
assign(f,'c:\kat.pas');
reset(f);
for i:=1 to t do
with a[i] do
begin
readln(f,mar,str,fir,met,raz);
i:=i+1;
end;
repeat
stop:= true;
for k:=1 to 3 do
if a[k].raz>a[k+1].raz then
begin
book:=a[k];
a[k]:=a[k+1];
a[k+1]:=book;
stop:=false
end
until stop;
for k:=1 to t do
writeln(a[k].mar,a[k].str,a[k].fir,a[k].met,a[k].raz);
end.]


Прикрепленные файлы
 RAAAB.PAS ( 621 байт ) Кол-во скачиваний: 261

Автор: Client 13.05.2008 12:27

Почитай тут http://forum.pascal.net.ru/index.php?showtopic=3065

for i:=1 to t do
with a[i] do
begin
readln(f,mar,str,fir,met,raz);
i:=i+1; // зачем?
end;