3. Создание алгоритмов и отладка программ с использованием логических высказываний

3.1.Постановка задач

3.2.Решение задач с использованием логических высказываний и операций на языке Паскаль. Результаты

РЕШЕНИЕ:

4.Решение задач с помощью условных операторов на языке Паскаль

4.1.Постановка задач

4.2.Решение задач с помощью условных операторов на языке Паскаль

5.Решение задач по геометрии с помощью Систем Программирования на языках Паскаль и Питон

Сегодня в школах и техникумах на занятиях по изучению систем программирования (СП) все чаще СП на языке Паскаль заменяют СП на языке Питон. В связи с этим, в этой главе на примере 4х задач по геометрии показано, как с этими задачами справляется каждая из этих СП.

5.1.Постановка задач

5.2.Решение задач

5.2.1.Решение задач с помощью системы программирования на языке «Паскаль». Результаты

5.2.2.Решение задач с помощью системы программирования на языке «Питон». Результаты

Ниже представлена программа, которая на языке Питон вычисляет объем и площадь поверхности прямоугольного параллелепипеда, используя заданные длины его рёбер

В результате объем прямоугольного параллепипеда V = 162, а его площадь S = 198.

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

Таким образом, площадь равнобедренной трапеции при заданных параметрах составляет примерно 27,71.

ОТВЕТЫ

6.Операторы цикла

Операторы цикла используются для вычислений, которые повторяются многократно. В Паскале имеется три вида циклов: цикл с предусловием while, цикл с постусловием repeat и цикл с параметром for.

6.1.Структурные схемы

Циклы с предусловием (на рис.1, левый) и с постусловием (рис.1, правый)

Рис.1.

Формат оператора с предусловием:

while выражение do оператор

Формат оператора с постусловием:

repeat тело цикла until выражение

6.2.Примеры

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

program tabl_fun;

var

Xn, Xk: real; {начальное и конечное значения аргумента}

dX: real; {шаг изменения аргумента}

x, y: real; {текущие значения аргумента и функции}

begin

writeln («Введите Xn, Xk, dX»);

readln (Xn, Xk, dX);

writeln (» – — – — – — – — – — – —»); {заголовок таблицы}

writeln (»│ X │ Y │»);

writeln (» – — – — – — – — – — – —»);

x:= Xn; {первое значение аргумента}

while x <= Xk do {заголовок цикла}

begin

y:= sin (x); {вычисление значения функции}

writeln (»│», x:9:2, ‘ │», y:9:2, ‘ │»); {вывод строки таблицы}

x:= x+dX; {переход к следующему значению аргумента}

end;

writeln (» – — – — – — – — – — – —»);

readln;

end.

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

у_n= (y_n-1+ x/y_n-1) /2,

где y_n-1– предыдущее приближение к корню (в начале вычислений выбирается произвольно), у_n– последующее приближение. Процесс вычислений прекращается, когда приближения станут отличаться друг от друга по абсолютной величине менее, чем на величину заданной точности.

program square_root;

var

X, eps, {аргумент и точность}

Yp, Y: real; {предыдущее и последующее приближение}

begin

repeat

writeln («Введите X, eps’);

readln (X, eps);

until (X> 0) and (eps> 0);

Y:= 1;

repeat

Yp:= Y;