Задание к лабораторной работе №2.

Часть 1. Тема: вычисление по формулам и представление результатов с учетом форматного вывода.

1. Войти в среду ТР и создать новый файл – текст программы «Вычисление длины окружности L и площади круга S по радиусу R, задаваемому в процессе выполнения программы». В программе предусмотреть проверку условия R>0.

2.Сохранить файл в своей папке (директории, каталоге) под именем Radius.pas

3. Проверить выполнение программы для различных значений R, задаваемых с клавиатуры, например, R = 1, 25, -3, 0.5, 0.

4. Дополнить программу вычислением объема шара по формуле V=3/4*pi*R**3 и запустить на выполнение.

5. Задавая неформатный и различные форматные выводы результатов на монитор, сравнить точность получаемых значений. Найти (ручным расчетом) абсолютные и относительные погрешности вычисления L, S, V.

6. Внести в программу изменения, позволяющие выполнять программу произвольное число раз с новыми значениями R, не выходя в режим редактирования (заключить операторную часть программы в оператор цикла

REPEAT … UNTIL povtor = (‘N’ or ‘n’);

Часть 2. Тема: Циклические вычисления с учетом диапазона типа данных и выдача результатов вычислений по шагам.

1. Создать новый файл – текст программы вычисления факториала n!:

Program ftrl;

Var i,n,ft:integer;

Begin

write(‘Задай целое n=’); read(n);ft:=1;

for i:=1 to n do ft:=ft *i;

writeln(n,’!=’,ft);

End.

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

n = 3, 4, 5,…

3. Установить, для каких n результат получается неверный и объяснить почему.

4. Скорректировать программу для получения верного результата по крайней мере при n <= 10.

5. Внести в программу изменения, позволяющие выполнять программу произвольное число раз с новыми значениями n (не выходя в режим редактирования), заключив программу в оператор цикла

REPEAT … UNTIL povtor = (‘N’ or ‘n’);

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

Вычисление факториала по шагам: