Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
іНФОРМАТИКА 1.doc
Скачиваний:
15
Добавлен:
15.08.2019
Размер:
13.85 Mб
Скачать
  1. Створіть власну функцію табулювання заданої згідно варіанту функції (стандартні функції можна переглянути у додатку – математичні та тригонометричні функції).

Властивість Lines об’єкта типу Меmо є комплексною, тобто також є об’єктом зі своїми властивостями та методами. Результат роботи даної програми - це таблиця, що складається з декількох рядків. Щоб додати у поле Memo1 новий рядок до таблиці, треба змінити значення комплексної властивості Lines (рядки) за допомогою її метода Add (додати) з одним аргументом — символьним рядком: Memol.Lines.Add(‘pядок символів’). Виконайте команду “Протабулювати” з головного меню, клацнувши на ній один раз. З’явиться заготовка до процедури, яку заповніть так:

  1. Наприклад

procedure TForm1.ta;

var x,y,h,a,b:real;

i:integer;

str1,str2:string;

mas:array [1..10000] of real;

begin

Memo1.Lines.Add(' x f(x)');

a:=StrToFloat(Edit1.text);

b:=StrToFloat(Edit2.text);

h:=StrToFloat(Edit3.text);

x:=a;

i:=0;

While x<=b+h/2 do

begin

y:=sin(x)+1;

str1:=floattoStrf(x,ffgeneral,4,2);

str2:=floattoStrf(y,ffgeneral,4,2);

Memo1.Lines.Add(str1+'-------------- '+str2);

x:=x+h;

end;

end;

  1. Внесіть у процедуру зміни, якщо при обчисленні можливі виняткові ситуації (тобто ділення на 0, логарифм від від’ємного числа і так далі) так щоб обчислення не припинялося. Наприклад :

  2. Х Y

    1. 3

    2. -

    3. 3

  1. Запрограмуйте команду “Протабулювати”.

  2. Необхідно поставити виклик власної функції табулювання.

  3. Внести зміни, в процедуру так, щоб можна було б припинити виконання табулювання функції та можна було б дострокова вийти з програми. Ззапрограмувати кнопку «Стоп»

  4. Виконайте програму і проекспериментуйте з різними значеннями лівої, правої межі та кроку аргументу. Закрийте вікно програми “Табулювання функції”.

  5. 3бережіть створену програму у своїй особистій папці.

  6. Створіть exe-файл вашої програми.

  7. Закрийте Delphi, запустіть створену програму і виконайте обчислення для різних початкових даних.

  8. Продемонструйте створену форму викладачеві.

  9. Зробіть висновки по роботі.

Варіанти завдань

Варіант

y = f(x)

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

  1. Що таке виключна ситуація?

  2. Які різновиди виключних ситуацій вам знайомі?

  3. Особливості використання виключних ситуацій?