Дана таблица f содержащая сведения о веществах:

Указывается название вещества, его удельный вес и проводимость.

Программа находит удельный вес и названия всех полупроводников.

Uses CRT;

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;

ClrScr;

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.