Хелпикс

Главная

Контакты

Случайная статья





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



 

Министерство науки и высшего образования Российской Федерации

Федеральное государственное бюджетное образовательное учреждение высшего образования «Рязанский государственный радиотехнический университет имени В.Ф. Уткина»

 

   Кафедра «ВПМ»

 

 

Отчет о лабораторной работе № 3

Вариант 4

 

 

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

 

По дисциплине «Алгоритмические языки и программирование»

 

 

Выполнила:

 ст. гр. 046

Бурцева С.

Проверили:

с.п. Москвитина О.А.

доцент, к.т.н. Макаров Н.П.

 

 

Рязань 2020

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

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

 

 

 

 

                                           Блоксхема:

 

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

{Цель работы - приобретение навыков алгоритмизации задач и конструирования программ циклической структуры

на алгоритмическом языке Паскаль в среде программирования Turbo Pascal 7.0.}

{Тема работы: Табулирование функций с использованием циклических алгоритмов с постусловием. }

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

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

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

{ Программист: Бурцева Светлана Николаевна гр. 046}

{Проверили: с.п. Москвитина О.А. доц. к.т.н. Макаров Николай Петрович}

{Дата выполнения: 8.10.2020г.}

ProgramLab3;

Var

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

Begin

Write('x0=');

Read(x0);

Write('hx=');

Read(hx);

Write('xn=');

Read(xn);

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

 

x:=x0;

repeat

      ifx<=-5 theny:=4

else if(x>-5) and(x<=-2)

      then

           y:=SQR(x+3)

     else

           y:= x+3;

 

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

     x:=x+hx

untilx>xn+hx/2

 

End.

 

Входные данные: X0=-7 HX=2 XN=1

Выходные данные:

X=-7 Y=4

X=-5 Y=4

X=-3 Y=0

X=-1 Y=2

X=1  Y=4

 

Вывод:я научилась навыкам алгоритмизации задач и конструирования программ циклической структуры

на алгоритмическом языке Паскаль.

 

 



  

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.