1. • Разработка цикла лабораторных работ по основам работы в ...
  2. • Лабораторные по системному анализу
  3. • Электротехника
  4. • Линейные списки. Стек. Дек. Очередь
  5. • Методическая разработка по C++.(45 страниц)
  6. • Принципы микропрограммного управления
  7. • Изучение принципов микропрограммного управления
  8. • Отчёт по лабараторным работам по биологии за 1 семестр
  9. • Экономический механизм природопользования.
  10. • Программирование элементов разветвляющейся структуры
  11. • Авторский материал: Теория вычислительных процессов и структур
  12. • Выбор термообработки для метчиков и плашек изготовленных из ...
  13. • Лабораторная работа по БЖД (вар 7)
  14. • Проект лабораторного стенда по изучению частотного ...
  15. • Лабораторная №1. Вариант №8(с++
  16. • Разработка модернизированного лабораторного стенда по ...
  17. • Разработка модернизированного лабораторного стенда по ...
  18. • Программа обучения + тесты по биологии для школы.zip
  19. • Лабораторные стенды в учебном процессе

Реферат: Лабораторная работа №7

Цель работы: Получение навыков реализации циклических алгоритмов с неизвестным числом повторений цикла, операторов цикла с предусловием и постусловием и итерационных циклических алгоритмов.
Задание № 17. Корень n-ной степени [pic], из числа [pic] пределом последовательности[pic]каждый член которой определяется итерацией: [pic]
[pic]определить с точностью [pic]корень 2-ой и 4-ой степени из числа
[pic]и число итераций, необходимое при этом.

Блок-схема.
Пусть[pic].[pic]

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

{**************************************************************** }
{Программа: lab6, Лаб. раб. №7, Вар. 17

}
{Цель: вычисление корня с заданной погрешностью по итерационному циклу}
{Описание параметров и переменных:

}
{n,x –переменная цикла, y -значение функции, eps – погрешность

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

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

}
{Проверил: Баринов В.В., каф. ВПМ

}
{Дата написания: 18 марта 2004 г.

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

program lab7; var n,k:integer; eps,d,x,y:real; begin writeln(‘Погрешность eps=’); read(eps); writeln(‘Степень корня n=’);read(n); writeln(‘Подкоренное число x=’);read(x); k:=0; y:=x; repeat {начало цикла} d:=(x/exp((n-1)*ln(y))-y)/n; k:=k+1; y:=y+d; until abs(d)

©2007—2016 Пуск!by | По вопросам сотрудничества обращайтесь в contextus@mail.ru