База знаний студента. Реферат, курсовая, контрольная, диплом на заказ

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

Задание № 17. Вычислить функцию при заданных значениях аргумента

Блок-схема.

Программа на Turbo Pascal

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

{Программа: lab8, Лаб. раб.8, Вар. 17 }

{Цель:Вычисление двойной суммы }

{Описание параметров и перемненных: }

{c,q-промежуточные значения }

{X,a-аргументы функции }

{S-сумма }

{N,K-переменная суммирования }

{x=x0(xh)xn }

{Требуемые подпрограммы: нет }

{Программист: Позднышев A.A. , гр. 316 }

{Проверил: Новичков B.C., каф. ВПМ }

{Дата написания: 10 апреля 2004 г. }

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

Program lab8;

var

a,x,x0,hx,xn,c,q,s:real;

k,n:byte;

begin{CS}

write('x0=');

read(x0);

write('hx=');

read(hx);

write('xn=');

read(xn);

writeln('x0=',x0,'hx=',hx,'xn=',xn);

x:=x0;

s:=0;

repeat

for k:=1 to 5 do

for n:=1 to 10 do

if k>=n then a:=1 else a:=0.1;

begin

s:=s+exp((k/n)*ln(a*x));

end;

writeln('x=',x,'S=',s);

x:=x+hx;

until x>xn

end.{CS}

Министерство образования РФ

Рязанская государственная радиотехническая академия

Кафедра ВПМ

Отчет о

лабораторной работе № 8:

«Проектирование алгоритмов и программ

со структурой вложенных циклов»

Выполнил: ст. гр. 316

Позднышев А.А.

Проверил: Новичков В.С.

Рязань 2004

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

 

• 14:21 05 Июля 2016
  Российско-китайский медуниверситет откроет магистерскую программу по TCM
• 01:21 05 Июля 2016
  На форуме МГУ Россия и Китай обсудят научно-образовательное сотрудничество
• 11:00 04 Июля 2016
  Реморенко: "ЕГЭ-туризм" в России сходит на нет
• 10:52 04 Июля 2016
  Летняя российско-австрийская школа откроется в Москве
• 15:31 01 Июля 2016
  В СПбГУ могут воссоздать географический факультет

Заказать уникальную работу