§5. Решение задач на составление линейных программ

Вы научились с помощью языка программирования выполнять арифметические действия на компьютере, организовывать диалог между компьютером и его пользователем. Эти знания помогут вам составлять программы для решения различных задач с помощью компьютера.

Например, у вас уже достаточно знаний, чтобы решить следующую задачу:

Задача 1. Дано некоторое натуральное число, большее 10. Напишите программу, которая выводит на экран монитора его последнюю цифру.

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

1. Ввести с клавиатуры натуральное число, большее 10.

2. Выделить последнюю цифру данного натурального числа.

3. Вывести выделенную цифру на экран монитора.

Программа, с помощью которой компьютер реализует данный алгоритм решения задачи, может выглядеть так:

program сifr_p;

var A,cp:integer;

begin

write('введите число, большее 10: ');

readln (a); {ввод с клавиатуры исходных данных}

cp:=a mod 10; {выделение последней цифры числа –

число единиц}

writeln('последняя цифра ',cp);{вывод результата}

end.

При данном введенном числе результат выполнения программы следующий:

введите число, большее 10: 1245

последняя цифра 5

Задача 2. Петя купил в магазине N порций мороженого по цене 840 рублей за каждую порцию и K плиток шоколада - по цене 2300 рублей. Сколько всего денег потратил Петя?

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

1. Ввести с клавиатуры количество купленных порций мороженого и

количество плиток шоколада.

2. Вычислить выражение 840*N+2300*K.

3. Вывести на экран монитора результат вычисления – сумму денег.

Программа, с помощью которой компьютер реализует данный алгоритм решения задачи, может выглядеть так:

program summa_deneg;

var n,k,sum:integer;

begin

write('введите количество порций мороженого: ');

readln (n); {ввод с клавиатуры исходных данных}

write('введите количество плиток шоколада: ');

readln (k); {ввод с клавиатуры исходных данных}

sum:=840*n+2300*k; {вычисление выражения}

writeln('сумма денег = ',sum);{вывод результата}

end.

Мы рассмотрели примеры задач с использованием целочисленных переменных. Следующие две задачи продемонстрируют совместное использование целочисленных и вещественных переменных при решении задач.

Задача 3. Даны три целых числа a,b,c. Составьте программу вычисления следующего выражения: (b² +c³ )/|a|.

Решить эту задачу можно, следуя алгоритму:

1. Ввести с клавиатуры три целых числа;

2. Вычислить выражение, используя соответствующие арифметические

операции и встроенные стандартные арифметические функции;

3. Вывести на экран результат вычисления.

Программа, решающая данную задачу, может выглядеть так:

Program vvl;

var

a,b,c:integer;

V:real; {в переменную V поместим результат вычисления

выражения}

begin

write('a='); {ввод с клавиатуры исходных данных}

readln (a); {ввод числа a}

write('b=');

readln (b); {ввод числа b}

write('c=');

readln (c); {ввод числа c}

V:= (b*b+c*c*c)/abs(a); {вычисление выражения}

writeln ('V=',v) {вывод результата}

end.

Если исходные данные будут такими, как это представлено ниже, то результат выполнения программы:

a=-4

b=2

c=3

V=7.75

Рассмотрим еще одну задачу.

Задача 4. Расстояние от города А до города Б S км, где S - некоторое натуральное число. Поезд проехал это расстояние за t часов. С какой скоростью двигался поезд?

Решить эту задачу можно, следуя алгоритму:

1. Ввести с клавиатуры данное расстояние S и время t;

2. Вычислить скорость движения поезда: V=S/t;

3. Вывести на экран монитора результат.

Программа, с помощью которой компьютер реализует данный алгоритм решения задачи, может выглядеть так:

Program skor;

var s:integer;

t,v: real;

begin

write('расстояние = ');

readln (s); {ввод с клавиатуры значения переменной s}

write('время = ');

readln (t); {ввод с клавиатуры значения переменной t}

v:= s/t; {вычисление скорости}

writeln('v = ',v) {вывод результата}

end.

Коротко о главном

• Организация ввода данных в языке Паскаль осуществляется с помощью команды (процедуры) Read (либо Readln).

• Организация вывода данных осуществляется с помощью команды (процедуры) Write (либо Writeln).

• Команда (процедура) вывода Write (либо Writeln) выводит на экран все, что написано между апострофами в круглых скобках без изменения.

• С помощью команды Write (либо Writeln) можно вывести на экран значение одной либо нескольких переменных, а также вычислять арифметические выражения и результат выводить на экран ( если они не заключены в апострофы).

• Команда Read (либо Readln) позволяет присвоить значения переменным в диалогом режиме, осуществляя ввод этих значений с клавиатуры.

• С помощью команды Read (либо Readln) при каждом выполнении программы в переменную можно записывать различные значения.

1. Какие команды используются для ввода данных?

2. Какие команды используются для вывода данных?

3. Чем отличается команда Write от Writeln?

4. Какие способы ввода исходных данных вы знаете?