Примеры решения задач в Turbo Pascal

Задача №1: «Рассчитать площадь и периметр прямоугольника по двум известным сторонам».

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

Составим алгоритм решения подобных задач:

1) Прочитать задачу.
2) Выписать известные и неизвестные нам переменные в «дано». (В задаче №1 к известным переменным относятся стороны: a,b ;к неизвестным — площадь S и периметр P)
3) Вспомнить либо составить необходимые формулы. (У нас: S=a*b; P=2*(a+b))
4) Составить блок-схему.
5) Записать решение на языке программирования Pascal.

Запишем условие в более кратком виде.

Дано: a,b

Найти: S,P

Блок-схема:

Решение задачи №1

Структура программы, решающей данную задачу, тоже проста:

• 1) Описание переменных;

• 2) Ввод значений сторон прямоугольника;

• 3) Расчет площади прямоугольника;

• 4) Расчет периметра прямоугольника;

• 5) Вывод значений площади и периметра;

• 6) Конец.

А вот и решение:

1. Program Rectangle;

2. Var a,b,S,P: integer;

3. Begin

4. write('Введите стороны прямоугольника!');

5. readln(a,b);

6. S:=a*b;

7. P:=2*(a+b);

8. writeln('Площадь прямоугольника: ',S);

9. write('Периметр прямоугольника: ',P);

10. End.

Задача №2: Скорость первого автомобиля — V1 км/ч, второго – V2 км/ч, расстояние между ними S км. Какое расстояние будет между ними через T часов, если автомобили движутся в разные стороны? Значения V1, V2, T  и S задаются с клавиатуры.

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

Дано: V1, V2, S, Т
Найти: S1

Далее идет самая главная и в то же время самая интересная часть нашего решения – составление нужных нам формул. Как правило, на начальных стадиях обучения все необходимые формулы хорошо нам известны и взяты из других технических дисциплин (например, на нахождение площади различных фигур, на нахождение скорости, расстояния и т.п.).

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

S1=(V1+V2)*T+S

Следующий пункт алгоритма – блок-схема:

Решение задачи №2.

А также решение, записанное в Pascal :

1. Program Rasstoyanie;

2. Var V1,V2,S,T,S1: integer; {Ввод }

3. begin

4. write('Введите скорость первого автомобиля: ');

5. readln(V1);

6. write('Введите скорость второго автомобиля: ');

7. readln(V2);

8. write('Введите время: ');

9. readln(T);

10. write('Введите расстояние между автомобилями: ');

11. readln(S);

12. S1:=(V1+V2)*T+S;

13. writeln('Через ',t,'ч. расстояние ',S1,' км.');

14. End.

Вам может показаться, что две эти программы правильны, но это не так. Ведь сторона треугольника может быть 4.5, а не 4, а скорость машины не обязательно круглое число!  А Integer — это только целые числа. Поэтому при попытке написать во второй программе другие числа выскакивает ошибка:

Обратите внимание в Паскале, как и в любом другом языке программирования десятичная дробь вводится с точкой, а не с запятой!

Чтобы решить эту проблему вам надо вспомнить какой тип в Pascal отвечает за нецелые числа. В этом уроке мы рассматривали основные типы. Итак, это вещественный тип — Real.  Вот, как выглядит исправленная программа: