Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Дорошенко.doc
Скачиваний:
1
Добавлен:
01.04.2025
Размер:
659 Кб
Скачать
☆

Задание к лабораторной работе №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.

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

n = 3, 4, 5,…

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

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

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

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

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

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

Номер шага Значение факториала

i = 1 1! = 1

i = 2 2! = 2

i = 3 3! = 6

I = 4 4! = 24

…… ………

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

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

Номер шага i Значение факториала i!

1 1

2 2

3 6

4 24

…… ………