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

Пример 2. Напишите программу решения следующей задачи: 
дан список городов и количество жителей в каждом городе. 
Выведите названия тех городов, количество жителей которых более 
100 тысяч человек. 
Решение. Один город можно представить в виде записи
с полями: название и количество жителей. Поскольку городов 
несколько, то они образуют массив. 

---

157 
Program Primer_2; 
Type {В разделе объявлений сначала необходимо объявить тип 
записи, а затем тип массива, так как он состоит из типа записей} 
gor = Record nazw: String[20]; 
kol: Integer; End; 
Mas=array[1..100] of gor; Var g:mas; 
N,i:Integer; Begin {Ввод исходных данных} Writeln('Ввести 
количество городов'); 
Readln(n); 
{Вводится значение каждого поля для каждой записи} 
For i:=1 to n do 
Begin 
Writeln('Ввести название',I,'города'); 
Readln(g[i].nazw); 
Writeln('Ввести количество жителей ', I, 'города'); 
Readln(g[i].kol); 
End; 
{Сначала выведем заголовок таблицы, в которой будут 
находиться названия городов и количество жителей в каждом 
городе, то есть вывод всех исходных данных} 
Writeln(' название города количество жителей'); 
{Вывод городов и количество их жителей} 
For i:=1 to n do Writeln(g[i].nazw:20,g[i].kol:10); 
{Вывод названия тех городов, у которых количество жителей 
более 100 тысяч} 
Writeln('Ответ'); 
For i:=1 to n do 
If g[i].kol>100 Then writeln(g[i].nazw); 
End. 
 
Пример 3.  Имеется таблица. 
Материал 
Плотность, кг/м
3 
Температура плавления 
Алюминий 
2700 
657 
Вольфрам 
19300 
390 
Медь 
8900 
1083 
Свинец 
11300 
327 
Олово 
7300 
232 
Цинк 
7100 
419 

---

158 
Напишите программу нахождения и вывода названия материалов 
с наибольшей плотностью и наименьшей температурой плавления.