Меню сайта

Вычислить значение —cиспользованием функции.


Program func_1-

Uses crt-

Var n,x:real-

function fc(a:real):real-

var y:real-

begin

y:=sqrt(a)+a-

fc:=y-

end-

begin

write(‘введите -n:’)-

readln(n)-

x:=fc(n)-

writeln(‘x=’,x:5:3)-

readln-

end.

Категория: Подпрограммы | Дата: 01.01.13

Вычислить значение факториала —n! —cиспользованием функции


Program func_2-

Uses crt-

Var n,x:integer-

function fact(a:integer):integer-

var i,p:integer-

begin

p:=1-

for i:=1 to a do p:=p*I-

fact:=p-

end-

begin

write(‘введите -n:’)-

readln(n)-

x:=fact(n)-

writeln(n,’!=’,x)-

readln-

end.

Категория: Подпрограммы | Дата: 31.12.12

Найти —xnc -помощью функции возведения в степень.


Program func3-

Uses crt-

Var n,x,rez:integer-

Function Step (x,k: integer): longint-

var i,p: integer-

begin

p:=1-

for i:=1 to k do p:=p*x-

step:=p-

end-

begin

ClrScr-

Writeln(‘введите n’)-

readln(n)-

Writeln(‘введите x’)-

readln(x)-

rez:=step(x,n)-

Writeln(‘степень=’,rez)-

(далее…)

Категория: Подпрограммы | Дата: 31.12.12

Найти минимальное среди 4-х чисел, используя функцию нахождения минимального среди двух чисел.


Program func4-

Uses crt-

Var a,b,c,d,m1,m2:integer-

Function Min (x,y: integer): integer-

begin

if x&lt-y then

min:=x

else

min:=y-

end-

begin

ClrScr-

Writeln(‘введите 4 числа’)-

readln(a,b,c,d)-

m1:=min(a,b)-

m2:=min(c,d)-

(далее…)

Категория: Подпрограммы | Дата: 30.12.12

Вычислить выражение —tg2x+2tgx, используя вспомогательную функцию тангенса.


Program func5-

Uses crt-

Var x,y:real-

Function tg(a:real):real-

tg:=sin(a)/cos(a)-

Begin

ClrScr-

Writeln(‘введите x’)-

readln(x)-

y:=sqr(tg(x))+2*tg(x)-

Writeln(‘y=’,y:4:3)-

Readln-

End.

Категория: Подпрограммы | Дата: 30.12.12

Написать программу для вычисления значения функции —f(0.8,a)+f(a,b)-f(2a-1,ab), где —a, —bдействительные числа и


Program func6-

uses crt-

var a,b,z: real-

function f(x,y:real):real-

begin

f:= (sqr(x)-sqr(y))/(sqr(x)-2*x*y +3*sqr(y) +4)-

end-

begin

clrscr-

writeln (‘ введите a,b’)-

readln(a,b)-

(далее…)

Категория: Подпрограммы | Дата: 30.12.12

Треугольник задан своими координатами своих вершин. Вычислить площадь треугольника с использованием функции нахождения расстояния между двумя точками.


Program func7-

Uses crt-

Var x1,y1,x2,y2,x3,y3:integer-

S,p:real-

Function rast(a,b:integer):real-

Begin

Rast:=sqrt(sqr(x2-x1)+sqr(y2-y1))-

End-

Begin

Writeln(‘введите координаты 1 точки x1 и -y1’)-

(далее…)

Категория: Подпрограммы | Дата: 30.12.12

Четырехугольник задан своими сторонами —a,b,c,dи диагональю —r. Вычислить площадь четырехугольника с использованием функции нахождения площади треугольника.


program func8-

uses crt-

var a,b,c,d,r,S1,S2,S:real-

Function f(x,y,z:real):real-

var p:real-

begin

p:=(x+y+z)/2-

F:=Sqrt(p*(p-x)*(p-y)*(p-z))-

(далее…)

Категория: Подпрограммы | Дата: 29.12.12

Меню раздела
Блок