Примеры решения линейных задач

Процедуры инкремента и декремента

Кроме функций над целочисленными переменными можно выполнять процедуры увеличения и уменьшения:

№	Процедура	Что делает	Как сделать это же
	inc(x)	увеличивает x на 1	x := x + 1;
	inc(x,12)	увеличивает x на 12	x := x + 12;
	dec(x)	уменьшает x на 1	x := x – 1;
	dec(x,12)	уменьшает x на 12	x := x – 12;

По сравнению с присваиванием процедуры inc и dec работают значительно быстрее, но применимы только для переменных целого типа. Кроме того, при больших именах переменных эти процедуры записываются компактнее. Сравните:

inc(wozrast); или wozrast:=wozrast+1;

Пример 1. Каждый пиксел рисунка занимает 3 байт. Сколько килобайт ( 1 Кбайт = 1024 байт ) требуется для хранения картинки размерами 500х300 пикселов?

В команде writeln после переменной V стоят две цифры, отделённые двоеточиями. Это – формат числа. Если его не указывать, вещественное число (типа real) будет выведено в формате с фиксированной точкой. В этой записи первое число обозначает точность, то есть, общее количество цифр, оставляемых в числе. Вторая цифра показывает число знаков после десятичной точки (все остальные знаки округляются). В данном случае ответ будет состоять из 3-х цифр, одна из которых будет стоять после точки. Если целая часть числа будет больше, чем две цифры, она, несмотря на формат, выведется полностью. Если меньше, чем число цифр, указанное в формате, перед числом будут добавлены пробелы. Формат числа можно указывать не только для вещественных, но и для целых чисел (у целых указывается только одна цифра – длина числа). Если число длиннее, чем указано, то формат никак на его вывод не повлияет. Но если число короче, то формат добавит пробелы вместо недостающих знаков. Это удобно использовать при выводе нескольких чисел, чтобы расстояние между ними было одинаково.

Обратите внимание, также, на оформление программы – отступы. Старайтесь придерживаться такого стиля оформления. Это нужно для лучшей читаемости программы.

Пример 2. Корова съедает в сутки около 70 кг. травы. Пастбищный сезон длится в среднем 150 суток. Примерная урожайность пастбищных культур 250 ц/га. Какова площадь пастбища, необходимого одной корове на пастбищный сезон? Сколько гектаров понадобится, если в стаде 65 коров?

program stado; var m,t,u,s1,ss,k : real; begin m:=70; t:=150; u:=250; k:=65; s1:=u/m*t; {площадь для одной коровы} ss:=s1*k; {площадь для всего стада } writeln(’Корове нужно ’,s1:4:1,’ Га пастбища’); writeln(’Стаду нужно ’,ss:4:1,’ Га пастбища’); end.

В этой программе нового только комментарии в фигурных скобках, которые не являются обязательными.

Обратите внимание на то, что в обеих задачах первые команды задают известные данные, а в последующих производятся вычисления. Такого порядка обычно придерживаются при решении задач.

Пример 3. Новое колесо выдерживает в среднем 100000 оборотов. Радиус колеса 0,5 м. Сколько км. пробежит автомобиль с новыми шинами?

program koleso; var maxob,r,km,l : real; begin maxob:=100000; r:=0.5; l:=2*pi*r; {длина окружности колеса} km:=l*maxob; {путь в метрах} km:=km/1000; {путь в километрах} writeln(’Автомобиль пройдёт ’,km:6:2,’ км.’); end.