Цель работы: Получение навыков реализации циклических алгоритмов с неизвестным числом повторений цикла, операторов цикла с предусловием и постусловием и итерационных циклических алгоритмов.
Задание № 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
Внимание, отключите Adblock
Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!
Одними из наиболее популярных услуг на рынке IT-технологий являются создание и продвижение лендингов. Они способны положительно влиять на деятельность любого бизнес-проекта в интернете. Судя по многочисленным отзывам, заказавшие создание лендингов люди ни разу не пожалели о потраченных деньгах. Они вложили в будущее, которое неразрывно связано с интернетом. Всё больше и больше предпринимателей обращаются к услугам разных агентств, веб-студий, чтобы заказать создание лендинга у профессионалов.