Технический форум - Помогите составить программу в Паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Помогите составить программу в Паскале

Помогите пожалуйста составить программу в Паскале,в понедельник курсовую надо уже сдавать(((
Даны два одномерных массива,каждый из 8 чисел Х1=(....) и Х2=(....)
Вычислить значение функций У(Х1,Х2)=Х2^2/X1+SQRT(X2)/X1^3-X1/X2 для всех сочетаний пар Х1 и Х2
Найти пару Х1 и Х2,для которых функция У(Х1,Х2) примет положительные значения.
Заранее благодарна

Цитата:

Сообщение от Инна12 (Сообщение 744993)

Без проблем:

Код:

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.

Спасибо вам огромное!!!!!!!!!!!!!

Простите за беспокойство,но почему то после того,как я ввела программу в Паскаль,нажало Ctrl+F9 и ввела элементы массива,Паскаль не выводит результат а возвращает к программе

Цитата:

Сообщение от Инна12 (Сообщение 746346)

Потому что результаты отправлены не на экран, а в два файла. А сделано это затем, что 64 числа в столбик всё равно в экран не влезут. Так что открывайте созданные текстовые файлы res_all и res_pos и смотрите.

((( даже код не смотрят(((

Спасибо ещё раз большое,теперь всё поняла