Тема «Обработка записей»

[***ЛидОК***]

Очень нужна Ваша помощь...
О веществах известна информация: название вещества, его удельный вес и проводимость (проводник, полупроводник, изолятор). Найти удельный вес и названия всех полупроводников. (Turbo Pascal)

[s-andriano]

И в чем именно нужна помощь?
Алгоритмически определить по названию, к какому классу относится вещество, принципиально невозможно.
Поэтому единственный путь - табличное задание необходимых параметров.

[***ЛидОК***]

Мне нужна помощь в составлении самой программы...

[s-andriano]

Понимаете в чем дело...
Программа обрабатывает данные.
Любая программа.
И в этом ее основное назначение.

В Вашем конкретном случае объем данных, которые нужно обработать, существенно превосходят объем текста самой программы. А значит, набивать его - достаточно трудоемкая и нудная работа.
За деньги, конечно, Вам ее сделают, но если Вы рассчитываете на бесплатную помощь, то подготовка данных, с которыми будет работать программа - исключительно Ваша задача.

Другими словами, нужна таблица веществ со всеми необходимыми свойствами.

[Stilet]

Type
 TStuff=record
  Name,Kind:String;
  Weigth:Double;
 end;
var a:array[1..1] of TStuff;i:integer;
begin
 for i:=1 to 1 do begin
  Write('Enter new stuff');
  Write('Name: '); Readln(a[i].Name);
  Write('Kind: '); Readln(a[i].Kind);
  Write('Weigth: '); Readln(a[i].Weigth);
 end;
 for i:=1 to 1 do begin
  if a[i].Kind='полупроводник' then begin
   Writeln(a[i].Name:40,a[i].Weigth);
  end;
 end;
 readln;
end;

Такое подходит?

[***ЛидОК***]

Большое спасибо) Мне это очень помогло)))))