Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

Решение. Каждую строку этой таблицы представим в виде запи-
си, у которой три поля: название, плотность и температура, а из за-
писей составим массив. 
Program Primer_3; 
Type {Объявление типа запись} 
mat = Record nazw: String[20]; 
pl, temp: Integer; End; 
{Объяление типа массив из записей} 
Mas=array[1..100] of mat; 
{Объявление простых переменных} Var m:mas; 
n,i, max, min, nom1, nom2:Integer; 
Begin {Ввод исходных данных} Writeln('Ввести количество 
материалов'); 
Readln(n); 
For i:=1 to n do 
With m[i] do 
Begin 
Writeln('Ввести название',I,'материала'); 
Readln(nazw); 
Writeln('Ввести плотность ',I,'материала'); 
Readln(pl); 
Writeln('Ввести температуру плавления',I,'материала'); 
Readln(temp); 
End; 
{Вывод на экран заголовка таблицы, в которой будет помещен 
исходный массив} 
Writeln('Название материала плотность температура плавления'); 
{Вывод на экран введенного массива} 
For i:=1 to n do 
With m[i] do Begin 
Writeln(nazw:20,pl:10,temp:10); 
End; 
{Нахождение материала с наибольшей плотностью } 
Max:=m[1].pl; Nom1:=1; 

---

159 
For i:=2 to n do 
With m[i] do {Использования оператора над записями} 
Begin 
If pl>max Then Begin max:=pl; nom1:=I;End; 
End; 
Writeln('Материал c наибольшей плотностью ',m[nom1].nazw); 
{Нахождение материала с наименьшей температурой плавления} 
Min:=m[1].temp; Nom2:=1; 
For i:=2 to n do 
With m[i] do 
Begin 
If tempThen Begin min:=temp; nom2:=I;End; 
End; 
Writeln('Материал с наименьшей температурой плавления ', 
m[nom2].nazw); 
End. 
 
Пример 4. Напишите программу решения следующей задачи: 
даны сведения об учениках одного класса по следующей схеме: фа-
милия, рост, вес, год рождения, домашний адрес. Выведите средний 
вес и рост учеников класса. 
Program Primer_4; 
Type uch=Record 
fio, adres:String; 
rost, ves: real; 
god : Integer; 
End; 
mas = Array [1..35] of uch; 
Var uchenik:mas; 
i, n: Integer; 
v, r, sr, sv : real; 
Begin 
Writeln('ВВести количество учеников в классе'); 
Readln(n); 
{Введем исходные данные для каждого ученика} 
For i := 1 to n do 

---

160 
With uchenik[i] do 
Begin 
Writeln('ВВести фамилию ученика'); 
Readln(fio); 
Writeln('Ввести домашний адрес ученика'); 
Readln(adres); 
Writeln('ВВести год рождения ученика'); 
Readln(god); 
Writeln('Ввести рост ученика'); 
Readln(rost); 
Writeln('Ввести вес ученика'); 
Readln(ves); 
End; 
{Выведем на экран все сведения об учениках} 
Writeln('Ученики класса'); 
For i :=1 to n do 
With uchenik[i] do 
Begin 
Writeln(fio:15,adres:20,god:6,rost:6:2,ves:6:2); 
End; 
{Выведем фамилии самого высокого исамого маленького 
ученика} 
v:=0; 
R:=0; 
For i:=1 to n do 
With uchenik[i] do 
Begin 
v:=v+ves; 
r:=r+rost; 
End; 
sv:=v/n; 
sr:=r/n; 
Writeln(sv, ' - средний вес учеников класса'); 
Writeln(sr, ' - средний рост учеников класса'); 
End. 

---

161