Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Методичні вказівки до завдання 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;







Дата добавления: 2015-08-12; просмотров: 168. Нарушение авторских прав


Рекомендуемые страницы:


Studopedia.info - Студопедия - 2014-2020 год . (0.001 сек.) русская версия | украинская версия