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

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

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

Задача 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.

Поиск по сайту: