42758

Построение циклов с инструкциями „while” и „repeat”

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

Информатика, кибернетика и программирование

Инструкция whiledo Особенность этой инструкции состоит в том что условие проверяется перед входом в тело цикла поэтому цикл while называют еще циклом с предусловием.1 Синтаксис инструкции whiledo В этом описании условие продолжения это выражение логического типа определяющее условие при котором выполняются инструкции тела цикла . В целом инструкция while выполняется следующим образом: Вычисляется значение выражения условие продолжения . Если значение выражения условие равно flse то есть условие не выполняется выполнение...

Русский

2013-10-31

162.5 KB

4 чел.

Лабораторная работа № 5.
Построение циклов с инструкциями „while” и „repeat”

Цели работы:

  •  Ознакомиться с принципами использования циклов While и Repeat.
  •  Разработать проект, обеспечивающий решение математических задач численными методами.

5.1 Краткое описание инструкций whiledo и repeatuntil.

 Инструкция whiledo

Особенность этой инструкции состоит в том, что условие проверяется перед входом в тело цикла, поэтому цикл while называют еще циклом с предусловием.

В общем виде инструкция while записывается следующим образом.

Рисунок 5.1 – Синтаксис инструкции whiledo

В этом описании <условие продолжения> - это выражение логического типа, определяющее условие при котором выполняются <инструкции тела цикла>.

В целом, инструкция while выполняется следующим образом:

  •  Вычисляется значение выражения <условие продолжения>.
  •  Если значение выражения условие равно false, то есть условие не выполняется, выполнение <инструкций тела цикла>прекращается.
  •  Если значение выражения <условие продолжения> равно true (условие выполняется), то выполняются <инструкции тела цикла>, расположенные между словами begin и end.
  •  После этого снова все повторяется.

Следует заметить, что для того чтобы цикл завершился, нужно чтобы последовательность инструкций, расположенных между begin и end, влияла на значение <условия продолжения >.

 Инструкция repeatuntil

Особенность этой инструкции состоит в том, что условие проверяется после выполнения операторов тела цикла, поэтому <инструкции тела цикла> выполняются, как минимум, один раз. Цикл Repeat называют еще циклом с постусловием.

На языке Delphi в общем виде инструкция Repeat записывается следующим образом.

Рисунок 5.2 – Синтаксис инструкции Repeat

Здесь <условие выхода из цикла> это выражение логического типа, определяющее условие завершения цикла.

Инструкция выполняется следующим образом:

  •  Сначала выполняются <инструкции тела цикла> находящиеся между словами repeat и until.
  •  Затем вычисляется значение выражения <условие выхода из цикла>. Если оно не выполняется (значение выражения равно false), то инструкции тела цикла выполняются еще раз.
  •  Если условие выполняется (значение выражения равно true), то выполнение цикла прекращается.

Таким образом, инструкции цикла, находящиеся между repeat и until, выполняются до тех пор, пока не выполнится условие выхода из цикла.

5.2 Описание новых компонентов, используемых в создаваемом проекте.

 Таблица 5.1 Новые компоненты

Компонент

Описание

PageControl

Компонент позволяет размещать в одном окне несколько страниц и обеспечивает возможность переключения с одной страницы на другую.

CheckBox

Основное свойство этого компонента Checked может принимать значения true или false (включено или выключено).

5.3 Условия индивидуальных заданий и схемы алгоритмов их решения.

 Таблица 5.2 Итерационный  алгоритм

1

a>0,b>0

a/b>6, x0< π/2

Таюлица 5.3 Бесконечный ряд

1

, для х<1

5.4 Тексты процедур для индивидуальных заданий с пояснениями в виде комментариев.

procedure TfrmWhileRepeat.Button1Click(Sender: TObject); //процедура для вычисления итерационной формулы

var a,b,xnew,xold,eps:real;

begin

 memo1.Clear;

 a:=strtofloat(edta.Text); //ввод исходных данных

 b:=strtofloat(edtb.Text);

 eps:=strtofloat(edtEps1.Text);

 xnew:=a; //установка начального значения

 repeat

   xold:=xnew;

    if (a=0) then break;

   xnew:=sqrt(b*sin(Xold)/a);

    if checksteps.Checked then

   memo1.Lines.Append(floattostr(xnew));

 until abs(xold-xnew)<eps;

 edtResult1.Text:=floattostr(xnew); // вывод результатов

 edtControl1.Text:=floattostr(sqrt(b*sin(Xnew)/a));

end;

procedure TfrmWhileRepeat.Button2Click(Sender: TObject); //процедура для вычисления экспоненты

 var x,eps,u,s:real; i:integer; s1:string;

begin

 memo1.Clear;

 x:=strtofloat(edtx.Text); //исходные данные

 eps:=strtofloat(edteps2.Text);

 i:=1; u:=x; s:=u;

  if abs(x)>1 then showmessage('Неверные данные') else  //проверка значения Х

    while abs(u)>eps do

       begin

        i:=i+1;

        u:=-u*x/i;

        s:=s+u;

          if checksteps.Checked then

            begin

            s1:=format('%10.7f %10.7f',[u,s]);

            memo1.Lines.Append(s1);

            end;

       end;

edtresult2.Text:=floattostr(s); //вывод результатов

edtControl2.Text:=floattostr(exp(x));

end;

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

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

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

Выводы: ознакомился с принципами использования циклов whiledo и repeatuntil, создал проект по своему варианту для вычисления значений по формуле, ознакомился с новими компонентами.


Начало

Xnew:=a

old:=Xnew

A=0

    Xnew-Xold    <=eps

Конец

Начало

   X   >1

ShowMessage

(‘Неверные данные’)

i:=1;  u:=x;  s:=u;

i:=i+1

S:=S+U

Конец

      U  >eps


 

А также другие работы, которые могут Вас заинтересовать

53950. Ландшафти України 42 KB
  Називати чинники формування ПТК; Характеризувати особливості взаємодії компонентів природи в ПТК; Розповідати про класифікацію ландшафтів вплив господарської діяльності людини на ландшафти. Пояснення нового матеріалу Поняття про ПТК ландшафти ПТК це поєднання компонентів природи що перебувають у складній взаємодії єдиної системи їх ще називають ландшафтами. Робота з підручником Виписати визначення поняття Ландшафт Природні та антропогенні ландшафти Взаємодія чинників і...
53951. The Language of Poetry is the Language of the Nation 33 KB
  What are the British without their beautiful English language and their Shakespeare, Burns and Byron?! Britain gives the world plenty of outstanding writers and poets. Most of them are still very popular. So today we want you to meet the most famous poets of the English – speaking literature.
53952. Happy European Day of Languages 78 KB
  Europe is a part of the world. What is more, Europe is a great place to learn languages, with so many language communities and so many cultures living together. What countries do you know? People of what nationalities live there? Is Russia a part of Europe?
53953. До 200–річчя від дня народження М.В.Гоголя. Літературна гра «Слабка ланка» 62 KB
  Чернишевський назвали Гоголя батьком російської реалістичної прози. Гоголь Ніжинську гімназію вищих наук Назвіть роки навчання письменника в Ніжинській гімназії вищих наук 1821-1828 Назвіть улюбленого вчителя Гоголя який викладав у гімназії професор Білоусов Під час навчання в гімназії Гоголь брав участь у виставах студентського театру.Гоголю у Ніжині Де і коли було засновано перший літературно меморіальний музей Гоголя у 1929 р. Самобутність Гоголя в тому що він першим широко відтворив поміщицько чиновницьку...
53954. Технічна експлуатація систем передачі і апаратури, каналів, трактів СЦІ 987.43 KB
  Системи передачі (СП) - це комплекс технічних засобів, що забезпечує створення типових трактів та каналів передачі первинних мереж.
53955. Wireless Java 1.55 MB
  This book is divided into three parts. Part I gives an overview of the J2ME and includes information about its architectural components: namely, configurations and profiles. Part I also presents detailed coverage of the CLDC and the MIDP.
53956. Learning Foreign Language 25 KB
  I study English. Nowadays English has become the world’s most important language in politics, science, trade and culture relations. Over 300 million people speak English as a mother tongue. To know English today is absolutely necessary for every educated person, for every good specialist. English language is a wonderful language.
53958. Культурология как наука: объект и предмет исследования, структура 29 KB
  Термин «культурология» был предложен в 1949 году известным американским антропологом Лесли Уайтом (1900—1975) для обозначения новой научной дисциплины как самостоятельной науки в комплексе социальных наук. Культурология является интегративной сферой знания, рожденной на стыке философии, истории, психологии, языкознания, этнографии, религии, социологии культуры и искусствоведения.