Нужна помощь в программе, тип - запись. Создать файл содержащий сведения о веществах. (Паскаль)

[lizka270398]

Создать файл содержащий сведения о веществах.Структура записи: название вещества,удельный вес,проводимость(проводник,полупров одник,изолятор).Количество записей не менее 15.Написать программу выдающую следующую информацию:
- о всех полупроводниках;
-данные о проводниках,упорядоченные по убыванию их удельных весов;
-изолятор с максимальным удельным весом.
-есть ли сведения стекле ,если нет- дописать данную информацию в файл.

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

Const Veshestvo = 1;

Type Material = Record {материал}
                Name: String[20]; {наименование}
                Weight: Real; {удельный вес}
                Provod: Integer; {проводимость}
                                 {0 - изолятор}
                                 {1 - полупроводник}
                                 {2 - проводник}
           End;


Var Result,I,J,N: Integer;
    F : Array[1..20] Of Material;

    
Begin

F[1].name := 'Медь';           F[1].Weight := 4.00; F[1].Provod := 2;
F[2].name := 'Бумага';         F[2].Weight := 66.0; F[2].Provod := 0;
F[3].name := 'Кремний';        F[3].Weight := 5.40; F[3].Provod := 1;
F[4].name := 'Германий';       F[4].Weight := 21.5; F[4].Provod := 1;
F[5].name := 'Арсеид галлия'; F[5].Weight := 3.00; F[5].Provod := 1;
F[6].name := 'Алюминий';       F[6].Weight := 50.0; F[6].Provod := 2;
F[7].name := 'Керамика*';       F[7].Weight := 9.90; F[7].Provod := 0;
F[8].name := 'Резина';         F[8].Weight := 80.0; F[8].Provod := 0;
F[9].name := 'Фторпласт';     F[9].Weight := 4.00; F[9].Provod := 0;

       N := 9;
       Result := 0;

       Writeln('Наименование материала   Удельный вес     Проводимость');
       Writeln('-----------------------------------------------------------');
       For I := 1 to N Do
           If (F[I].Provod = Veshestvo) Then Begin
              Write(F[I].Name:22,F[I].Weight:15:2);

              Case F[I].Provod Of
              0: WriteLn('изолятор':15);
              1: WriteLn('полупроводник':15);
              2: WriteLn('проводник':15);
              End;

              Result := Result + 1;
           End;
       Writeln('-----------------------------------------------------------');
       Writeln('Найдено' , Result , 'материала.');

       If Result = 0 Then WriteLn('Такого материала нет');
       Readln;
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

Это несложно.
Надо объявить файловую переменную

var f: file of Material;

связываете с файлом на диске и открываете на запись:

Assign(f, 'D:\YourFile.rec');
Rewrite(f);

и писать нужные элементы:

Write(f, F[i]);

потом закрыть файл

Close(f);

Учтите, что файл будет типизированный (бинарный) и просто так его не откроешь и не посмотришь - только программным путём можно получить доступ к его содержимому.

Есть вопросы?

[lizka270398]

Спасибо,Вы прекрасно объяснили как создать файл с информацией!Мне это очень помогло!!! Но самая большая загвоздка на самом деле в записи в этот файл дополнительной информации о стекле и упорядочении удельных весов по убыванию может Вы и в этом мне поможете?! (студентка 1 курса)

[Serge_Bliznykov]

Но самая большая загвоздка на самом деле в записи в этот файл дополнительной информации о стекле

нужно прочитать файл, последовательно проверить все записи, если среди них name='Стекло', если есть, то ничего не делать, иначе перейти в конец файла и записать в конец новую запись про стекло.
в коде это выглядит примерно так:

Reset(f);
flagIsStekloInFile:=false;
while Not Eof(f) do begin
  Read(f, OneRec);
  if OneRec.Name='Стекло' then begin 
    flagIsStekloInFile := true;
    break    
  end;
end;
if not flagIsStekloInFile then begin {записи о Стекле нет, нужно добавить}
  Seek(f, FileSize(f)); {перейти в конец файла}
  OneRec.Name := 'Стекло';
  OneRec.Weight := КакоеТочисло_удельный_вес_стекла; 
  OneRec.Provod := 0; {если мне память верна, то стекло - это изолятор}
  Write(f, OneRec); {дописали в конец файла}
end;
Close(f); {закрыли файл}

упорядочении удельных весов по убыванию

Вы имеете в виду:

данные о проводниках,упорядоченные по убыванию их удельных весов;

я бы не парился.
описал статический массив, размером записей на 1000 (с запасом, так сказать).
Прочитал из файла в него только те записи, которые являются проводником (.Provod=2)
Отсортировал массив любым удобным способом (да хоть тем же "Пузырьком")
Вывел содержимое массива.

Что вызывает сложности из описанного?

[lizka270398]

спасибо большое ,что возитесь со мной!

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

я бы не парился.
описал статический массив, размером записей на 1000 (с запасом, так сказать).
Прочитал из файла в него только те записи, которые являются проводником (.Provod=2)
Отсортировал массив любым удобным способом (да хоть тем же "Пузырьком")
Вывел содержимое массива.

во это вызывает сложности,тоже вчера читала про пузырьковый метод,но не особо понимаю как сделать чтоб выходили не удельные весы,а наименование ещества.
и еще паскаль требует двоеточия после Assign(f, 'C:ximi.pas') выдает ошибку,
еще никак не могу записи записать он то равенство требует ,то двоеточие

[Serge_Bliznykov]

и еще паскаль требует двоеточия после Assign(f, 'C:ximi.pas') выдает ошибку,

какой у Вас компилятор Паскаля?
если Delphi или FreePascal, то вместо Assign нужно писать AssignFile()
и, кстати, вместо Close(f) нужно писать CloseFIle(f)

Массив нужно описывать с типом ваших записей:

const MaxCount = 1000;

var
  F : Array[1..MaxCount] Of Material;

а отсортировать его проще простого:
пусть в этом массиве есть n записей.
тогда:

  {сортировка}
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if F[i].Weight<F[j].Weight then begin
        temp:=F[i];
        F[i]:=F[j];
        F[j]:=temp;
      End;

[min@y™]

какой у Вас компилятор Паскаля?
если Delphi или FreePascal, то...

можно этот код выкинуть и написать свой новый годный код.

з.ы. поосторожней с веществами. а то у нас тут за инфу про вещества чуть википедию не забанили!