Подпрограмма

[peter065]

Хелп. Помогите составить прогу. Где вводить х и т.д. Переделать как?
Вот код, ктр я успел написать:

program z11;
var a,x:real;

Function f(x:real):real;
begin
 write ('Vvedite a');
 read (a);
 If a>0 then f(x):=2*a*sqr(x)+a-3 else f(x):=exp(x*ln(e))/sqrt(1+sqr(a))-1;
end;

end.

Условие(картинка) Задание 1

[Stilet]

Однозначно двойка.

program z11;
var a,x:real;

Function f(x:real):real;
begin
 If a>0 then f:=2*a*sqr(x)+a-3 else f:=exp(x*ln(e))/sqrt(1+sqr(a))-1;
end;

begin
 write ('Vvedite a');
 read (a);
 write(f(a):5:2);
 readln;
end.

Придешь осенью )

[peter065]

Но здечь нужно ввести и переменную а, и переменную х...

[peter065]

ну и ес не трудно, помогите сделать плиз остальные задания

[ROMA2PVT]

-III-

Uses
 CRT;
Var
 i,n,k:integer;
 x,y,p:real;
begin
ClrScr;
 write('Ââåäèòå X: ');
 readln(x);
 write('Ââåäèòå N: ');
 readln(n);
y:=1;
k:=2;
p:=1;
for i:=1 to n do
begin
p:=i*cos(abs(x));
writeln(p);
y:=y*((i/k)-p);
inc(k);
end;
writeln('Y:=',y);
readkey
end.

-IV-

Uses
 CRT;
Var
 i,n,k,l,p:integer;

Procedure tabl(c:integer);
begin
p:=1;
for i:=1 to 10 do
begin
p:=c*i;
writeln('|',c,' x',i:2,'|',p:3,'|');
end;
end;

begin
ClrScr;
 write('Ââåäèòå ÷èñëî: ');
 readln(k);
case k of
1: tabl(k);
2: tabl(k);
3: tabl(k);
4: tabl(k);
5: tabl(k);
6: tabl(k);
7: tabl(k);
8: tabl(k);
9: tabl(k);
10: tabl(k);
end;
readkey
end.

[peter065]

ROMA2PVT, а в первом задании как? И как e в степени x написать в паскале?

[ROMA2PVT]

И как e в степени x написать в паскале?

exp(x)

А первую сам делай

[peter065]

program z11;
var a,x:real;

Function f(x:real):real;
begin
If a>0 then f:=2*a*sqr(x)+a-3 else f:=(exp(x)/sqrt(1+sqr(a)))-1;
end;

begin
write ('Vvedite x');
read (x);
write ('Vvedite a');
read (a);
write(f(a):5:2);
readln;
end.



ТАК?

[ROMA2PVT]

Вот так.

program z11;
var a,x:real;

Function f(a,x:real):real;
begin
If a>0 then f:=2*a*sqr(x)+a-3 else f:=(exp(x)/sqrt(1+sqr(a)))-1;
end;

begin
write ('Vvedite x');
read (x);
write ('Vvedite a');
read (a);
write(f(a,x):5:2);
readln;
end.

[vlad88]

Помогите все остальное решить плиииииииииииииз!!!