Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
29
Добавлен:
31.03.2015
Размер:
44.03 Кб
Скачать

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

ФИЛИАЛ ГОСУДАРСТВЕННОГО ОБРАЗОВАТЕЛЬНОГО УЧРЕЖДЕНИЯ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«МОСКОВСКИЙ ЭНЕГРЕТИЧЕСКИЙ ИНСТИТУТ

(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)» в г. СМОЛЕНСКЕ

Кафедра информатики

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

Тема: «Вложенные циклы»

По курсу: «Информатика»

Студент: Юшковский С.Л.

Группа: ПЭ-09

Преподаватель:

Бояринов Ю.Г.

Смоленск 2010

Подготовка к работе.

Цель работы – приобретение навыков разработки алгоритмов и написания программ, содержащих вложенные циклы.

  1. Изучить структуру вложенных циклов.

Цикл называется вложенным, если он размещается внутри другого цикла. На первом проходе, внешний цикл вызывает внутренний, который исполняется до своего завершения, после чего управление передается в тело внешнего цикла. На втором проходе внешний цикл опять вызывает внутренний. И так до тех пор, пока не завершится внешний цикл.

  1. Нарисовать блок-схему вложенных циклов с постусловием и с предусловием.

Вложенный цикл с постусловием.

нет

Тело вложенного цикла

да

нет

да

Вложенный цикл с предусловием.

нет

д

Тело вложенного цикла

а

нет

да

Техническое задание.

Составить алгоритм и программу для вычисления таблицы значений заданной функции F(x,z)= для значений x, меняющихся от x =1 до x =2.2 с шагом 0.3 (внешний цикл) и значений z меняющихся от z=0.6 до z=2 с шагом 0.2 (внутренний цикл).

Анализ технического задания.

Для решения задачи необходимо во внешнем цикле while увеличивать значение x на 0.3 до тех пор пока x не станет равным 2.2 и возвращать значение z на исходное. Во внутреннем цикле while увеличивать значение z на 0.2 до тех пор пока z не станет равным 2, считать и выводить значения F(x,z).

Блок схема.

F:=0; x:=1; z:=0.6;

F:=(exp(1/3*ln(x))+sin(pi*z/5))/(sqrt(abs(cos(pi*z)+2))*exp(-x));

z:=z+0.2;

x:=x+0.3; z:=0.6;

нет

да

нет

да

Текст программы.

Program example;

Uses crt;

Var f,x,z: real;

Begin

Clrscr;

F:=0;

X:=1;

Z:=0.6;

While (x<=2.2) do

Begin

While (z<=2) do

Begin

F:=(exp(1/3*ln(x))+sin(pi*z/5))/(sqrt(abs(cos(pi*z)+2))*exp(-x));

Writeln(‘F(x,z)= ’,F);

Z:=z+0.2;

End;

X:=x+0.3;

Z:=0.6;

End;

Readln;

End.

Результаты тестирования.

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

Вывод: приобрели навыки разработки алгоритмов и написания программ, содержащих вложенные циклы.

Соседние файлы в папке Программирование