informatica_lr_01 (Вариант 4 - ЛР №1 - Арифметические операции и математические функции)

МИРЭА

Лабораторная работа № 1

Тема:

“Арифметические операции и математические функции”

Вариант 4

Кафедра РПУ

Выполнил ст.

гр. ВРУ-3-02

Проверил

Давлечин Д.И.

2003

Цель: Получить навыки работы использования арифметических операций и стандартных математических функций.

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

Задание 1: Составить программу, выполняющую операции целочисленной арифметики.

Определить частное от деления произведения двух первых чисел четырехзначного числа на произведение остальных чисел.

Задание 2: Составить программу, выполняющую вычисление математических функций.

_{Описание задачи 1.}

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

_{Алгоритм выполнения задачи 1.}

Текст программы.

PROGRAM LABAR1_1;

{Programma dlya arifmetiki}

VAR

X, A, B, C, D : INTEGER;

S : REAL;

BEGIN

WRITELN('VVEDITE CHISLO');

READ(X);

A:= X DIV 1000;

B:= X MOD 1000 DIV 100;

C:= X MOD 100 DIV 10;

D:= X MOD 10 DIV 1;

WRITELN('TSIFRA 1 = ', A);

WRITELN('TSIFRA 2 = ', B);

WRITELN('TSIFRA 3 = ', C);

WRITELN('TSIFRA 4 = ', D);

S:= (A*B)/(C*D);

WRITELN('OTVET - ', S:8:3);

END.

В тексте программы в разделе VAR задействованы следующие переменные:

X – четырехзначное число, которое требуется ввести.

A – первая цифра числа Х.

B – вторая цифра числа Х.

C – третья цифра числа Х.

D – четвертая цифра числа Х.

Все эти переменные относятся к целочисленным.

S – конечный результат; это дробный тип.

В разделе операторов первая строка выводит запрос на ввод числа, вторая присваивает это число переменной Х. Далее с помощью функций DIV и MOD из числа Х выделяются цифры. Следующие четыре строки обязательными не являются, в предпоследней строчке программы производится арифметическая обработка чисел по формуле:

Последняя строчка в разделе операторов выводит на дисплей ответ. Формат вывода S:8:3 позволяет вывести результаты в десятичной форме, причем количество знаков после запятой не будет превышать трех.

_{Описание задачи 2.}

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

В Pascal 7.0 есть встроенные функции для вычисления математических расчетов. Необходимые для задания функции представлены в таблице.

Надо заметить, что в Pascal не реализовано вычисление корней n-ой степени и вычисление xⁿ, поэтому необходимо эти действия выражать через другие функции. Далее показано, как можно вычислить число в n-ой степени и корень n-ой степени.

,

учитывая, что

формула для вычисления корня n-ой степени будет выглядеть так:

В этой работе формула для вычисления заданной функции представлена следующим образом:

S:= SQRT(EXP((LN(X*X*X*X))/5) + EXP(LN(EXP((4-X) * LN(X)))/5)) + +LN(ABS(X-20.5))

А лгоритм программы:

Текст программы представлен ниже.

PROGRAM LABAR1_2;

VAR

X, S: REAL;

BEGIN

WRITELN('VVEDITE CHISLO');

READ(X);

S:= SQRT(EXP((LN(X*X*X*X))/5) + EXP(LN(EXP((4-X) *

* LN(X)))/5)) + LN(ABS(X-20.5));

WRITELN('OTVET=', S:8:10);

END.

В разделе описания переменных переменная Х – это число, которое необходимо ввести, а S – полученное число в результате вычисления формулы. S выводится в числовом формате с точностью до десяти знаков после запятой.

Результат выполнение программы.

Программа корректно обрабатывала заданную формулу.

Результат вычисления числа 10:

В программе при х = 10, ответ = 4,87578987830.

В системе M-4.2 при х = 10, ответ = 4,875789878.