ТЕМА: Delphi 6.0. Програмування розгалужених обчислювальних процесів

Завдання для самостійної підготовки:

Для успішного виконання даної роботи та послідуючого циклу робіт рекомендується попередньо повторити матеріал по організації розгалужених обчислювальних процесів, використання умовного оператора If та оператора вибору Case, оператора безумовного переходу Goto, проаналізувати приклади розглянуті на лекціях. Результатом домашньої самостійної роботи повинна бути програма, написана на мові Object Pascal, готова до введення на комп’ютері для розв’язання поставлених завдань.

Зміст звіту:

1. Тема та мета роботи.

2.Робоче завдання.

3. Алгоритм виконання завдання у вигляді блок-схеми.

4.Текст розробленої програми з коментарями та результати її роботи.

При захисті лабораторної роботи необхідно вміти відповідати на контрольні запитання.

Контрольні запитання:

1. Який обчислювальний процес називається розгалуженим?

2. Який оператор називають складним?

3. Які існують форми запису умовного оператора If? У чому їх різниця?

4. Вкажіть призначення та правила запису оператора безумовного переходу?

5. Назвіть правила запису оператора Case. Які обмеження закладені в цей оператор?

6. В яких випадках рекомендується використовувати конструкцію з оператором Case?

7. Чи можливе використання конструкції з If замість Case і навпаки?

8. Чи може умовний оператор містити оператор безумовного переходу?

Робоче завдання:

Завдання 1.Скласти програму для обчислення значення заданої функції. Перевірити вірність розробленої програми, тобто виконати її для значень аргументу х, що відповідає різним гілкам заданої функції. Вихідні дані (значення аргументів) та результати роботи програми (значення функції) вивести на екран.

Приклад

h =

procedure TForm1.Button1Click(Sender: TObject);

var a, b, x, h: real;

begin

a: =StrToFloat(Edit1.Text);

b: =StrToFloat(Edit2.Text);

x: =StrToFloat(Edit3.Text);

if x< a then

begin

h: =sqrt(sqr(cos(x)))+sqr(a);

Memo1.Lines.Add('h='+FloatToStr(h));

end

else

if x=a then

begin

h: =exp(abs(b+x));

Memo1.Lines.Add('h='+FloatToStr(h));

end

else

begin

h: =ln(1+exp(3*ln(a))+sqr(x));

Memo1.Lines.Add('h='+FloatToStr(h));

end

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Memo1.Clear;

end;