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

ПРОГРАМИРОВАНИЕ В СРЕДЕ TURBOPASCAL 7.0

Лабораторной работе №2

Вариант 10

Тема – программирование линейных вычислительных процессов с использованием операторов, реализующих базовыe структуры исследования.

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

Выполнил студент группы ТО-07

Шляхов Артём Сергеевич

Проверил доц. каф. ИКТ Журов Г.Н.

Дата: 14.04.2008

Задание.

Все варианты задания содержат по четыре задачи. Для каждой из них нужно выполнить действия, указанные в пунктах 1-7, и составить отчёт о работе.

1.  Составить расчетные формулы для использования их в программе, вводя при необходимости обозначение промежуточных результатов.

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

3.  Подготовить значения исходных данных для каждого теста.

4.  Представить алгоритм решения задачи в виде блок-схемы.

5.  Составить программу, согласуя её с блок-схемой.

6.  Используя среду программирования Turbo Pascal, ввести программу в компьютер и сохранить в личном каталоге.

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

Задача 1.

Составить программу для вычисления a при заданном значении  по формуле

            Напечатать

            Решение:

1. Расчетные формулы:

, , .

1.  Текст для отладки программы:

, , ,

2.  Исходные данные:

3.  Блок-схема:

 

4. Программа:

Program V10Z1;                                                          

Var a,c,e,x:real;                                                      

Begin                                                                  

writeln('Введите значение x');                                    

readln(x);                                                        

     e:=exp(2*x);                                                      

     c:=1+sqr(cos(x));                                                 

     a:=sqr(x)/c+e/c;                                                   

     writeln;                                                          

     writeln('x=',x:6:2,' 1+sqr(cos(x))=',c:7:4,' exp(2x)=',e:7:4,' a=',a:8:4);

end.                                                                    

5. Вид печати:

x= -0.27 1+sqr(cos(x))= 1.9289 exp(2x)= 0.5827 a=  0.3399

Задача 2.

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