ПРОЕКТИРОВАНИЕ АЛГОРИТМОВ И ПРОГРАММ

ВВЕДЕНИЕ

Задания предназначены для практических и лабораторных работ, основной целью выполнения которых является приобретение навыков алгоритмизации задач и конструирования программ циклической структуры на алгоритмическом языке Паскаль в среде программирования Turbo Pascal 7.0.

Перед выполнением каждой работы рекомендуется ознакомиться с теоретическим материалом (Новичков B.C., Парфилова Н.И., Пылькин А.Н. Алгоритмизация и программирование на Турбо Паскале: Учеб. Пособие. М.: Горячая линия-Телеком, 2005. 438 с.: ил.) и разобрать примеры конкретных программ по каждой теме.

Тема 5

ТАБУЛИРОВАНИЕ ФУНКЦИЙ С ИСПОЛЬЗОВАНИЕМ ЦИКЛИЧЕСКИХ АЛГОРИТМОВ С ПОСТУСЛОВИЕМ

Пример составления программы

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

Рис. 5.1. График функции

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

и обеспечить изменение ее аргумента от начального значения  до конечного  с шагом по формуле . Перед входом в цикл аргументу  необходимо присвоить его начальное значение . Для обеспечения возможности повторного выполнения тела цикла или прекращения его выполнения текущее значение аргумента должно сравниваться с правой границей заданного интервала . Во избежание возможных ошибок округления правую границу интервала целесообразно увеличить на величину полушага . Для каждого значения аргумента вычисляется функция и производится вывод текущих значений. Тогда схема алгоритма будет иметь вид, представленный на рис. 5.2. Ниже приводится текст программы.

ProgramTab;

{**************************************** }

{Цель - табулирование функции y=F(x) с }

{  помощью оператора цикла с }

{  постусловием            }

{Переменные:                  }

{ x –аргумент функции;             }

{ x0, xn - начальное и конечное значения; }

{ hx - шаг изменения;              }

{Программист: ст. гр. 510 Федоров Ф.Ф. }

{Проверил: доцент Баринов В.В.        }

{Дата написания: 21.11.05 г.    }

{**************************************** }

Рис. 5.2. Схема алгоритма табулирования функции

Var

hx,x,x0,xn,y:real;

Begin {Tab}

{Ввод и эхо-печать исходных данных }

Write('x0=');

Read(x0);

Write('hx=');

Read(hx);

Write('xn=');

Read(xn);

Writeln('X0=',x0,' HX=',hx,' XN=',xn);

{Табулирование функции }

x:=x0;

repeat {начало цикла}

   if x<=-1

      then

         y:=3

      else if x<2

           then

              y:=-x+2

           else

              y:=1.5*x-3;

   Writeln('X=',x,' Y=',y);

   x:=x+hx

until x>xn+hx/2 {конец цикла}

End. {Tab}

Задания

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

В каждом из вариантов дана сложная функция .

Вариант 1.

При  и  функция  не определена.

Вариант 2.

При  функция  не определена.

Вариант 3.

В тех случаях, когда тангенс не имеет значений, вывести сообщение «функция не существует».

Вариант 4.

Вариант 5.

Вариант 6.

Вариант 7.

При  функция  не определена.

Вариант 8.

Вариант 9.

При других  функция  не определена.

Вариант 10.

Точки разрыва исключить.

Вариант 11.

Вариант 12.

Вариант 13.

Вариант 14.

При  функция  не определена.

Вариант 15.

При других  функция  не определена.

Вариант 16.

Вариант 17.

Вариант 18.

При  функция  не определена.

Вариант 19.

Вариант 20.

При других  функция  неопределенна.

Вариант 21.

Точки разрыва функции  исключить.

Вариант 22.

При других  функция  не определена.

Вариант 23.

Вариант 24.

При  функция  не определена.

Вариант 25.

при ; при ; при ,

где .

Тема 6

ПРОЕКТИРОВАНИЕ АЛГОРИТМОВ И ПРОГРАММ