- о всех полупроводниках;
-данные о проводниках,упорядоченные по убыванию их удельных весов;
-изолятор с максимальным удельным весом.
-есть ли сведения стекле ,если нет- дописать данную информацию в файл.
Есть вот такая программка,но она на таблицу.а мне нужно создать фаил с информацией.
Код:
Код: Выделить всё
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.