Методичні вказівки до завдання 1

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

Тема: «Програмування циклів з невідомим числом повторень»

Мета: 1. Скласти програму, що по вхідним даним, заданим у вигляді початкового значення, кроку й умови закінчення процесу, обчислює і виводить у форму необхідні значення.

2. Скласти програму, що по вхідним даним, заданим у вигляді двох числових інтервалів, обчислює і виводить у форму необхідні значення.

Методичні вказівки до завдання 1

1. При складанні програми використовувати цикл із передумовою (while) або з постумовою(repeat).

2. Вивчити наступний приклад.

Приклад 1. Скласти програму розрахунку наObject Pascal наступних значень:

Обчислення робити доти, поки Х не стане більше С. Визначити К- кількість обчислених значень Y.

Вхідні дані:A = 2,5; ∆A = 0,1; B = 3; C = 5.

Вихідні дані: К і всі значення A, X, Y.

Скомпонуємо форму, показану нижче. Для виведення трійки значень А, Х, Y будемо використовувати багаторядкове вікно редагування Memo1 (компонент на сторінці Standard).

1. Процедура обробки клацання на кнопці «Обчислення»

procedure TForm1.Button1Click(Sender: TObject);

var An, hA, X, Y, A, b, c: real;

K: integer;

Begin

An:=StrToFloat(Edit_An.Text);

hA:=StrToFloat(Edit_hA.Text);

B:=StrToFloat(Edit_b.Text);

C:=StrToFloat(Edit_c.Text);

K:=0; A:=An;

X:=exp(ln(sqr(A+B))/3);

while (X<=C) do

Begin

Y:=exp(X);

K:=K+1;

Memo1.Lines.Add('A = '+FormatFloat('##0.0',A)+

' X = ' +FormatFloat('##0.0',X)+

' Y = '+FormatFloat('##0.0',Y));

A:=A+hA;

X:=exp(ln(sqr(A+B))/3);

end;

Edit_K.Text:=IntToStr(K);

end;

2. Процедура обробки клацання на кнопці«Очищення»

procedure TForm1.Button_ClearClick(Sender: TObject);

Begin

Edit_An.Clear;

Edit_hA.Clear;

Edit_b.Clear;

Edit_c.Clear;

Edit_K.Clear;

Memo1.Clear;

end;