Выбрать данные о проводниках и упорядочить их по убыванию удельного веса - Turbo Pascal

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


textual

Код:

program recfile;
{Создать файл f. содержащий сведения о веществах: название вещества, его удельный вес, проводимость 
(проводник, полупроводник, изолятор). 
выбрать данные о проводниках и упорядочить их по убыванию удельных весов}
uses
  crt;
type
  InfSub = record
  NameS : string[20];
  SpGr : real;
  conduct : (provodnik, poluprovodnik, izolyator);
  end;
var
  f : file of InfSub;
  a, b : InfSub;
  s : string[1];
  i,j : word;  
begin
  clrscr;
  assign(f,'FileRec.dat');
  rewrite(f);
  repeat
   write('Название вещества : ');
   readln(a.NameS);
   write('Удельный вес : ');
   readln(a.SpGr);
   write('Проводимость (provodnik, poluprovodnik, izolyator) : ');
   readln(a.conduct);
   write(f,a);
   write('Продолжить : y/n '); readln(s);
  until s='n';
  reset(f);
  writeln('Название вещества':18,'  Удельный вес':14,'  Проводимость':15);
  while not eof(f) do begin
    read(f,a);
    writeln(a.NameS:18,a.SpGr:14:3,'   ',a.conduct:15); 
    end;
  writeln;  
  for i := 1 to filesize(f)-1 do
    for j := 1 to filesize(f)-i do begin
    seek(f,j-1); read(f,a,b);
      if a.SpGr<b.SpGr then
       begin
        seek(f,j-1);
        write(f,b,a);
       end;
       end;
  writeln('Данные о проводниках, упорядоченных по убыванию удельных весов :');     
  reset(f);
  writeln('Название вещества':18,'  Удельный вес':14,'  Проводимость':15);
  for i := 1 to filesize(f) do begin
    read(f,a);
    if a.conduct=provodnik then writeln(a.NameS:18,a.SpGr:14:3,'   ',a.conduct:15); 
    end;
  close(f);
  readln;
end.


Похожие ответы
  1. 1.Укажите строки правильно описанных типов. type chessman = (bishop, knits, castle, queen); type horse = (skewbald, grey, black); {пегий, сивый, вороной} type animal = (lion, elephant, giraffe); {лев, слон, жираф} type division {деление} = (div, mod); type logical = boolean; 2.При работе с файлами необходимо выполнять действия в определенном порядке. 1) Выполнить чтение или запись информации. 2) Описать переменную файлового типа. 3) Открыть файл процедурой reset или rewrite. 4) По окончании работы с файлом закрыть файл процедурой close. 5) Связать файловую переменную с конкретным физическим файлом процедурой assign. В ответ введите номера необходимых действий в правильном порядке. Пример ввода ответа: 3 1 2 4 5 3.Укажите строки с ошибками в описании рекурсивной функции.

  1. Из массива A(n) выбрать случайным образом m различных элементов и поместить их в массив B(m)

  1. Всем привет. Нужна помощь в написании одной маленькой программы. Нужно выбрать из последовательности все простые числа методом Эратосфена и при этом необходимо в программе использовать множества. Последовательность от 2 до N. N<255. Заранее спасибо.

  1. Итак у меня есть задание: Имеются данные о багаже пассажиров: фамилия, количество вещей, общий вес багажа. Составить программу, выводящую на экран данные о пассажирах, вес багажа которых больше заданного и количество вещей не более заданного. Если данных нет, то выдать соответствующее сообщение. Программу сделал, но на последнем пункте запнулся.Никак не могу нормально вывести "Нет нужных данных".Оно либо всегда выводится, даже при выполнении условия.Или же 2 раза выводится если условие не выполняется. В чем проблема? Вот программа:

  1. ша плавал в бассейне размером NM метров и устал. В этот момент он обнаружил, что находится на расстоянии x метров от одного из длинных бортиков (не обязательно от ближайшего) и y метров от одного из коротких бортиков. Какое минимальное расстояние должен проплыть Яша, чтобы выбраться из бассейна на бортик? Входные данные Программа получает на вход числа N, M, x, y. Выходные данные Программа должна вывести число метров, которое нужно проплыть Яше до бортика. Примеры входные данные 23 52 8 43 выходные данные 8

  1. Выбрать три разные точки заданного на плоскости множества точек, составляющие равносторонний треугольник наибольшего периметра. // [10_3]

  1. Составить программу для вычисления значений заданной функции, используя исходные данные. Выполнить проверку работы программы, значения аргумента выбрать самостоятельно. a=1.5

  1. В построенном окне создать меню, с помощью которого можно выбрать цвет заливки текстового окна. Пункты меню 1 красный цвет 2 зеленый цвет 3 синий цвет 4 выход Не могу сделать, так что б заливал, после заливки к примеру красным, программа закрывается.

  1. Дано натуральное число N и вещественное x. Вычислить Функцию pow() не использовать. РЕбята помогите пожалуйста!

  1. написать программу,выбирающую на всех АО те,которые были открыты после 2001 года,вынести названия предприятий и их начальный капитал