Учебно-методическое пособие. Алматы, 2017 ббк

жүктеу/скачать 483.39 Kb.

бет	53/106
Дата	03.01.2022
өлшемі	483.39 Kb.
	#451845
түрі	Учебно-методическое пособие

1 ... 49 50 51 52 53 54 55 56 ... 106

УЧЕБНИКПаскаль(100217)

2.7. ПЕРЕМЕННЫЕ ТИПА МАССИВ

2.7.1. Виды массивов

Рассмотрим следующую задачу: Надо ввести три целых чисел с клавиатуры и из них найти минимальное по значению число. Результат вывести на экран.

Для решения можно предложить следующую программу:

program Primer_7;

var

Chislo1,Chislo2,Chislo3,Resultat:Integer;

procedure Init;

begin

Write('Insert chislo1 -');

Readln(Chislo1);

Write('Insert chislo2 -');

Readln(Chislo2);

Write('Insert chislo3 -');

Readln(Chislo3);

end;
procedure Work;

begin

if (chislo1<=chislo2) and (chislo1<=chislo3) then

resultat:=chislo1;

if (chislo2<=chislo1) and (chislo2<=chislo3) then

resultat:=chislo2;

if (chislo3<=chislo1) and (chislo3<=chislo2) then

resultat:=chislo3;

end;
procedure Exit;

begin

writeln(resultat);

end;
begin

Init;

Work;

Exi;

end.

В результате работы программа выведет на экран одно из чисел первое, второе или третье, то которое будет минимальным. Изменим условие, вместо трех чисел, допустим, надо найти минимальное число среди 10 или 40 чисел. Используя предыдущий подход нам надо завести 10 или 40 переменных с различными именами. Более того, возрастет объем текста в процедуре Work, для выявления минимального числа. Как быть в этом случае? Можно ли упростить текст программы? Да, можно!

Вспомните, как хранятся данные (см. параграф 1.4.). Для организации хранения упорядоченной совокупности данных, характеризующих однородные объекты, отличающиеся значениями своих признаков, используют список.

Если список состоит из записей , которые характеризуются своим месторасположением в списке, он называется линейным списком.

жүктеу/скачать 483.39 Kb.

Достарыңызбен бөлісу:

1 ... 49 50 51 52 53 54 55 56 ... 106