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

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

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

Вариант 11.

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

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

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

Штукерт Р.С.

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

Дата: 02.04.07

Задание.

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

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

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

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

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

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

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

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

Задача 1.

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

при заданном значении x. Напечатать значения x и z.

Решение.

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

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

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

                                             

                                       

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

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

Program Prim1;

Var x,z:real;

Begin

Writeln;

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

Readln(x);

if x<-2 then z:=sin(x+1)

else z:=ln(x*x+2)/ln(2);

Writeln;

Writeln('x=',x:5:2,'z=',z:8:4);

End.

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

введите значение x

-5

x=-5.00z=  0.7568

введите значение x

-2

x=-2.00z=  2.5850

введите значение x

5

x= 5.00z=  4.7549

Program Prim1;

Var x,z:real;

label 1,2;

Begin

Writeln;

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

Readln(x);

if x<-2 then goto 1;

z:=ln(x*x+2)/ln(2);

goto 2;

1:z:=sin(x+1);

2:Writeln;

Writeln('x=',x:5:2,'z=',z:8:4);

End.

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

введите значение x

-5

x=-5.00z=  0.7568

введите значение x

-2

x=-2.00z=  2.5850

введите значение x

5

x= 5.00z=  4.7549

Задача 2. Вычислить y по формуле

при заданном значении х. Напечатать значения x, y.

Решение.

,y=x²+z.

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

х=1, y=2;

x=-1, y=2,683;

x=-10, y=-10.

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