implementation

{$R *.DFM}

procedure fun (t:real; var z,w:real);

begin

z:=sqr(sin(sqrt(abs(t))));

w:=exp(z);

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

edit1.Clear; edit2.Clear; edit3.Clear;

end;

var t,z,w:real;

begin

//Переведення рядка, введеного в Edit1, у число t

t:=StrToFloat(Edit1.Text);

//Звертання до підпрограми fun

fun(t,z,w);

//Переведення числа z у рядок редактора Edit2

Edit2.Text:=FloatToStr(z);

//Переведення числа w у рядок Edit3

Edit3.Text:=FloatToStr(w);

end;

procedure TForm1. Button3Click (Sender: TObject);

begin

close;

end;

End.

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

1 Визначте структуру Паскаль-програми.

2 Назвіть складові розділу описів.

3 Які стандартні типи даних Вам відомі?

4 Що розуміють під даними цілого, дійсного і символьного типу?

5 Перелічте правила запису арифметичних виразів.

6 Визначте вид і призначення операторів введення та виведення.

7 Які стандартні підпрограми перетворюють числовий тип на рядковий?

8 Які стандартні підпрограми перетворюють рядковий тип на числовий?

9 Що означає подія OnClick?

10 Як викликати процедуру-відгук на подію OnClick?

11 Яку властивість відображає вміст компоненти Edit?

12 Яка властивість дозволяє робити підписи?

4 Лабораторне завдання

1 Відповідно до варіанта записати на Паскалі арифметичний вираз, наведений у таблиці 1.4

2 Скласти схему алгоритму й проект програми алгоритмічною мовою Паскаль в середовищі Delphi обчислення функції y=f (x) відповідно до варіантів, зазначених у таблиці 1.5. Перше із значень, наведених у таблиці, задати як константу, друге – ввести за допомогою компонента Edit.

3 Оформити протокол лабораторної роботи. Виконати програму, зазначену у п.2, на комп’ютері. Занести результати обчислень до протоколу.

Таблиця 1.4 Варіанти арифметичних виразів

№ вар.	Арифметичний вираз
	V1=
	V2=
	V3=
	V4=
	V5=
	V6=
	V7=
	V8=
	V9=
	V10=
	V11=
	V12=
	V13=
	V14=
	V15=
	V16=
	V17=
	V18=
	V19=
	V20=
	V21=
	V22=
	V23=
	V24=
	V25=
	V26=
	V27=
	V28=
	V29=
	V30=

Таблиця 1.5 Варіанти функцій для обчислення на комп¢ютері

№ вар.	Функція Y=F(x)	Значення
	; ;	x=1.52; c=5
	; ;	x=5.3; k=3
	; ;	x=2.5; b=7
	; ;	x=1.7;t=3
	; ; ;	x=2.1; p=2
	; ;	x=4; a=3.7
	; ;	x=–11; b=12.5
		x=10.9; t=2
		t=4.1; p=3
		m=2; x=1.1
		k=7.2; x=5
		b=3; c=1.7
		t=2.2; b=3
		x=11;p=2.6
		N=9.1; b=3
		M=3.8; p=2
		b=3; x=5.2
		k=2; m=1.8
		x=5; t=1.8
		a=2; p=2.6
		b=7; x=2
		q=2; b=1.8
		x=2.9; a=-0.9
		b=7.1; t=2
		t=-3; a=8.8
		t=2; b=1.8
		a=7; b=2.3
		x=3; n=-1.9
		a=-4; p=3
		b=2; k=1.8

Поиск по сайту: