Тема: Практическая работа «Использование функций при решении задач»

Тема: Практическая работа «Использование функций при решении задач»

Функции

Модуль		Abs (X)
Возведение в квадрат		Sqr (X)
Вычисление квадратного корня		Sqrt (X)
Степенные		Exp (X)
Степенные	Ln X	Ln (X)
Тригонометрические	П	Pi
	Sin x	Sin (x)
	Cos x	Cos (x)
	Arctg x	Arctg (x)
Округление	По математическим правилам до целого	Round (X)
Округление	Отсекает дробную часть	Trunc (X)
Нахождение целой части от деления двух чисел (дробная часть просто отбрасывается)		X Div Y
Остаток от деления двух целых чисел (отбрасывается целая часть)		X Mod Y

Задача №1

Поменять местами значения в двух переменных, не пользуясь третьей переменной. Использовать для обмена какие либо компоненты также нельзя.

procedure TForm4.Button2Click(Sender: TObject); var Y,X:integer; begin X:=StrToInt(Edit1.Text); Y:=StrToInt(Edit2.Text); X:=Y+X; Y:=X-Y; X:=X-Y; Edit1.Text:=IntToStr(X); Edit2.Text:=IntToStr(Y); end; procedure TForm1.Button2Click(Sender: ТObject); begin Edit1.Text:=''; Edit2.Text:=''; end;

Задача №2

Даны два числа, найти среднее арифметическое данных чисел и среднее геометрическое их модулей.

procedure TForm1.Button1Click(Sender: TObject); var A,B,C: extended; begin A:= StrToFloat (Edit1.Text); B:= StrToFloat (Edit2.Text); C:= (A+B)/2; Edit3.Text:=FloatToStr (C); end; procedure TForm1.Button2Click(Sender: TObject); var A,B,C: extended; begin A:= StrToFloat (Edit1.Text); B:= StrToFloat (Edit2.Text); C:= Sqrt(Abs(A)*Abs(B)); Edit4.Text:=FloatToStr (C); end; procedure TForm1.Button2Click(Sender: ТObject); begin Edit1.Text:=''; Edit2.Text:=''; end; end.

12 3 Следующая ⇒