Цитата:
Сообщение от Инна12
Помогите пожалуйста составить программу в Паскале,в понедельник курсовую надо уже сдавать(((
Даны два одномерных массива,каждый из 8 чисел Х1=(....) и Х2=(....)
Вычислить значение функций У(Х1,Х2)=Х2^2/X1+SQRT(X2)/X1^3-X1/X2 для всех сочетаний пар Х1 и Х2
Найти пару Х1 и Х2,для которых функция У(Х1,Х2) примет положительные значения.
Заранее благодарна
|
Без проблем:
Код:
Var
X1,X2:Array[1..8] of Real;
i,j:Byte;
f,f1:Text;
Function Fu(Z1,Z2:Real):Real;
begin
Fu:=Sqr(Z1)/Z1+Sqrt(Z2)/Z1/Sqr(Z1)-Z1/Z2;
end;
Begin
Assign(f,'res_all');
Rewrite(f);
Assign(f1,'res_pos');
Rewrite(f1);
For i:=1 to 8 do
Repeat
Write('X1[',i,']= ');
Readln(X1[i]);
If X1[i]=0 then Writeln('X1[i] can not be equal to zero!');
Until X1[i]<>0;
Writeln;
For i:=1 to 8 do
Repeat
Write('X2[',i,']= ');
Readln(X2[i]);
If X2[i]<=0 then Writeln('X2[i] can be only positive!');
Until X2[i]>0;
For i:=1 to 8 do
For j:=1 to 8 do
begin
Writeln(f,'X1= ',X1[i]:8:3,' X2= ',X2[j]:8:3,' Y= ',Fu(X1[i],X2[j]):8:3);
If Fu(X1[i],X2[j])>0 then
Writeln(f1,'X1= ',X1[i]:8:3,' X2= ',X2[j]:8:3,' Y= ',Fu(X1[i],X2[j]):8:3);
end;
Close(f);
Close(f1);
End.