42758

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

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

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

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

Русский

2013-10-31

162.5 KB

3 чел.

Лабораторная работа № 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


 

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

59418. Cценарій свята: Ой на Івана та й на Купала 44 KB
  В давні часи у предків наших Коли сонце Богом величали Родилося прекрасне свято Яке Купалом люди всі назвали. Тріщать усі сороки на вербі Що Купала свято на селі Що зібралось люду як квітів у полі Хай вас обминає лихо і горе.
59419. Поет - виразник дум народних: методично-бібліографічні рекомендації до 195-річчя від дня народження Т.Г.Шевченко 38 KB
  Він поет усього людства так сказала про Тараса Григоровича Шевченка відома англійська політична діячка Полін Бентлі. 9 березня минає 190 років від дня народження великого українського поета а рік 2004 проголошений Президентом України роком вшанування памяті Тараса Шевченка.
59420. Рідна мова - краю батьківського пісня 42.5 KB
  Рідна мова Рідна мова Що в єдине нас злива Перша пісня колискова. 3й учень: В кому думка прагне слова Хто в майбутнім хоче жить Той всім серцем закричить: В рідній школі рідна мова В рідній школі рідна мова...
59421. Свято української писанки 48.5 KB
  Церква пристосувала язичний культ писанки як знака сонця і оновлення життя і ввела його у свято Великодня як символ Христового воскресіння. 1 ведуча: Існує багато легенд про писанки і крашанки. Наші предки вірили у чарівну силу писанки і крашанки.
59422. Сценарій лялькового спектаклю: Сигареті – ні! 31.5 KB
  Дія ІІВедучий: Хто стрибає так завзято Це ж бо зайчики-близнята. Один зайчик тікає а другий підходить до Лисички Зайчик: Ти лисичко все торгуєш І без діла не сумуєш Лисичка: Так Ведучий: Йому лисичка каже Лисичка: В магазині я на стражі. Дія ІІІ Ведучий: В магазинчик лісовий Іде Півник молодий.
59423. Сценарій свята присвяченого Дню літньої людини 37 KB
  Виходять ведуча з дівчинкою у дівчинки в руках червона троянда. Коли восени раптом наступає весна а взимку розпускаються троянди бере троянду в дівчинки символ вірності й любові ДІВЧИНКА: А коли ж таке трапляється ВЕДУЧА: Таке трапляється копи людина любить.
59424. Нестандартний урок-гра з геометрії у 5 класі “Турнiр допитливих” 281 KB
  Журі рахує бали або в цілому оцінює виступ в кожному з турів для команди а також для найбільш активних учасників змагання якщо зрозуміло що конкретні бали зароблені для команди одним із учасників то для нього відкривається особистий рахунок до якого бали додаються протягом гри....
59425. Cценарій: Дорога і діти 40.5 KB
  Правила руху в нашій країні Для пішоходів усюди єдині Знати добре їх всі повинні: І дівчатка і хлопятка І зайці і тигренятка А також дорослі люди От тоді порядок буде. Всім місця вистачить.
59426. СВЯТО-КОНКУРС: МІС РОСИНКА 41.5 KB
  Доброго дня шановні пані та панове Ведуча 2: Раді бачити вас при доброму здоров та гарному настрої Ведуча 1: Весна уквітчана духмяна принесла свято у садок. Ведуча 2: На свято Міс Росинка зібрались ці дівчатка. Ведуча 1: Бо кожна з них у групі пройшла всі перешкоди щоб стати Міс росинка й дістати нагороди.