Программа с записями

[Jamguranga]

Помогите организовать массив, содержащий сведения о 16 веществ: указать название вещества, его удельный вес и проводимость (проводник, полупроводник, изолятор).
а) найти удельный вес и название всех полупроводников.
б) выбрать данные о проводники и упорядочить их по убыванию удельного веса;
в) вывести на экран названия веществ, которые являются изоляторами с выяснением удельного веса.

вот мои наработки, я не знаю как сделать пункт б... и есть ещё одно замечание) нужна информация о 16 веществах, а вводить её с клавиатуры, сами понимаете, сложно, можно как-то считывать с файла?

uses crt;
type info=record;
     name,providnist:string;
     vaga:real;
          end;
var a: array[1..100] of info;
    i,n,v: integer;
 
Begin
 Clrscr;
 
 write('Vvedu kilkist rechovun:');
 read(n);
 
     writeln('Vvedu nazvy, putomy vagu ta providnist(p-providnuk, n-napiv, i-izoliator):');
          for i:= 1 to n do
           begin
            write('#',i);
            with a[i] do
             readln(name,vaga,providnist);
           end;
           
    writeln('Vvedu variant zavdannia(1,2,3):');
     read(v);
     
if v=1 then
        BEGIN
 readln;
 write('Result:');
    for i:= 1 to n do
     with a[i] do
          if (providnist='n') then
           begin
            writeln;
            write('Nazva - ',name,' Vaga= ', vaga);
            writeln;
           end;
        END
  else if v=2 then {тут начинается ем.. проблемы}
        
  readln
 end.

Заранее спасибо за помощь

[hon]

Считывать с файла?

var
  f:textfile;
  s:string;
  i:integer;
.....
   Assignfile(f,'C:\input.txt');
   Reset(f);
   for i:=1 to КоличествоСтрок do
      Readln(f,s)
   Closefile(f);
.....

И из файла читаются строки.

[Jamguranga]

да я знаю что из файла читаются строки и знаю как это делается, НО при разделении строки на слова мы используем массив, а это не совсем то что нужно, нужно считывать по 3 элемента со строки

[Serge_Bliznykov]

НО при разделении строки на слова мы используем массив,

ой, с чего бы это?!

Считывайте строку, потом разбирайте её на отдельные элементы.
Никакой массив (ну, если саму строку не считать массивом символов ) при разборе не нужен!

Возможно, в вашем случае более подходящим будет способ, когда каждый элемент будет НА ОТДЕЛЬНОЙ строке. Тогда можете испльзовать
ReadLn( ff, ЭлементСтруктуры )

[Jamguranga]

Хм... А суть не меняется, сделал я так, как вы и говорили

uses crt;
type info=record;
     name,providnist:string;
     vaga:real;
          end;
var a: array[1..100] of info;
    f:text;
    i,n,v: integer;

Begin
 Clrscr;
 assign(f, 'd:\STUDENT\jamgur\lab7lobo\f.txt');
 reset(f);

while not eof(f) do
 with a[i] do
  begin
   inc(n);
   read(name);
   readln(vaga);
   readln(providnist);
  end;

     {writeln('Vvedu nazvy, putomy vagu ta providnist(p-providnuk, n-napiv, i-izoliator):');
          for i:= 1 to n do
           begin
            write('#',i);
            with a[i] do
             readln(name,vaga,providnist);
           end;}
           
    writeln('Vvedu variant zavdannia(1,2,3):');
     read(v);
     
if v=1 then
        BEGIN
 readln;
 write('Result:');
    for i:= 1 to n do
     with a[i] do
          if (providnist='n') then
           begin
            writeln;
            write('Nazva - ',name,' Vaga= ', vaga);
            writeln;
           end;
        END;

  close(f);
  readln
 end.

Выбивает мою "любимую" ошибку "выход за границы диапазона" и мигает на read(name);

[Jamguranga]

Ошибка была в том что a[i] всегда было a[0], вот в этой части:

Begin
 Clrscr;
 assign(f, 'd:\STUDENT\jamgur\lab7lobo\f.txt');
 reset(f);
  i:=1;
while not eof(f) do
 begin
  with a[i] do
    begin
      inc(n);
      read(f,name);
      readln(f,vaga);
      readln(f,providnist);
    end;
   inc(i);
  end;

А теперь запара как пункты б и в сделать

[Jamguranga]

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

[Niro]

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

а есть принципиальная разница?

как обычный массив, но не весь подряд, а

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

только те его элементы, которые являются проводниками

[Jamguranga]

их же ещё нужно упорядочить по убыванию их удельного веса

[Serge_Bliznykov]

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

var tmp : info;
  j : integer; 
....
begin
....
 {сортировка}
 for i:=1 to n-1 do
   for j:=i+1 to n do
     if a[i].vaga<a[j].vaga then begin
       tmp := a[i];
       a[i] := a[j];
       a[j] := tmp 
     end;
  {всё. сортировка завершена}

  {выведем все проводники}
  WriteLn('Все проводники по убыванию их удельного веса:');
  WriteLn('------------------------------------------------');
  WriteLn('|  name                           |   ves      |');
  WriteLn('------------------------------------------------');
  for i:=1 to n do
    if a[i].providnist = 'p' {проводник} then
      WriteLn(' | ',a[i].name:32, ' |    ',a[i].vaga:10:5,'    |');
  WriteLn('------------------------------------------------');
  
...