6 задач по TP7

[alex_fcsm]

Практически как Вы и говорили ....

var a,b,c,x,f:real;
begin
readln(a,b,c);
x:=sqr(a)-sqrt(sqr(a)+abs(a/(b*c)));
f:=sqr(x)-sqr(sin(a));
writeln(f);
end.

[alex_fcsm]

var x,y,temp:real;
    i:integer;
    
function fact(a:integer):integer;
var j,res:integer;
begin
res:=1;
for j:=1 to a do
     res:=res*j;
fact:=j;
end;


begin
x:=5;
y:=(x-1)/1;
for i:=2 to 5 do
 begin
   temp:=(x+(i-1))/(2*(i-1));
   y:=y+(temp-i)/fact(i);
   x:=temp;
 end;
writeln(y);
end.

[Disel]

Большое спасибо alex_fcsm

[Disel]

Во втором задании надо ввести X1, X2, X3 и найти Xmin и Xmax, я разобрался. А вот что такое "найти их индексы"?

[alex_fcsm]

Сообщение от Disel

Во втором задании надо ввести X1, X2, X3 и найти Xmin и Xmax, я разобрался. А вот что такое "найти их индексы"?

Наверное это
X1
X2
X3

[maladoy]

индексы это 1,2,3

[Disel]

Тогда если это индексы, то тогда X1, X2, X3 получается что это одномерный массив. Наверно тогда надо создавать массив, а не просто переменные!?

[alex_fcsm]

Создайте массив если хотите