Разработка программ с использованием циклов с неизвестным число повторений

МИНОБРНАУКИ РОССИИ

Федеральное государственное  бюджетное образовательное учреждение

высшего профессионального  образования

«Пензенский государственный  технологический университет»

(ПензГТУ)

 

Факультет информационных и  образовательных технологий

 

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

 

 

 

 

 

 

ОТЧЕТ

 

о выполнении лабораторной работы № 4

по дисциплине «Информатика и программирование»

 

 

 

 

 

 

 

 

 

 

Выполнила студентка 

группы 13ИЭ1б    Краснова А.О.

Проверила  Долгушева Л.Н.,Кирсанова Н.Е.

 

 

 

 

 

 

 

 

 

Пенза, 2013

Лабораторная работа №4

Разработка программ с  использованием циклов с неизвестным  число повторений

Вариант 15

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

Задание:

                  , точность 0,001.

Таблица 1. Описание входных и выходных данных.

Имя переменной	Назначение	Тип	Ограничения
n	Счетчик	integer	>0
а	Заданная точность	real	>0
t	Множитель в числителе	real	-
s	Сумма	real	-
z	Множитель в знаменателе	real	>0

Описание программы.

Данные программы написаны на языке программирования Turbo Pascal 7.0 и предназначены для вычисления суммы по заданной формуле. Дополнительных данных вводить не требуется. Программа рассчитывает сумму по следующей формуле                 с учетом точности, равной 0,01. После вычисления суммы программа выводит название программы и ее разработчика, затем результат, который включает в себя значение нескольких слагаемых, значение суммы ряда  и конечную сумму ряда с заданной точностью.

 

 

 

 

 

 

Приложение А.

Исходный текст программы.

1 вариант программы(while-do)

Program L_4;

Uses crt;

Var

n:integer;

a,t,s,z:real;

flag:boolean;

Begin

clrscr;

Writeln('Вычисление суммы ряда с заданной точностью');

Writeln('Краснова А.О.Вариант  15');

Writeln('Нажмите <Enter> для продолжения');

Readln;

Clrscr;

a:=0.001;

t:=1;

z:=1;

n:=0;

s:=0;

While abs(t)/z>a do

Begin

n:=n+1;

t:=-t;

z:=exp(ln(n+1)*n);

s:+t/z;

writeln('Слагаемое ',n,' равно ',t/z:0:8);

writeln('Сумма ряда равна',s:0:8);

writeln;

end;

writeln;

writeln('конечная сумма ряда с точностью до 0.001 равна S=',s:0:n);

readln;

end.

         2 вариант программы( repeat-until)

         Program L_4;

         Uses crt;

         Var

         n:integer;

         a,t,s,z:real;

         flag:boolean;

         Begin

         clrscr;

         Writeln('Вычисление суммы ряда с заданной точностью');

         Writeln('Kраснова А.О.Вариант 15');

         Writeln('Нажмите <Enter> для продолжения');

         Readln;

         Clrscr;

         a:=0.001;

         t:=1;

         z:=1;

         n:=0;

         s:=0;

         Repeat

         n:=n+1;

         t:=-t;

         z:=exp(ln(n+1)*n);

        s:=s+t/z;

        writeln('слагаемое ',n,' равно ',t/z:0:8);

        writeln('сумма ряда равна',s:0:8);

        writeln;

        until abs (t)/z<a;

        writeln('конечная сумма ряда с точностью до 0.001 равна S=',s:0:n);

        readln;

        end.

 

 

 

 

 

Приложение Б.

Схема программы.

I вариант.

II вариант.

Приложение В.

Результаты работы программы.

Рисунок 1. Результаты работы программ.