|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
06.06.2012, 22:32 | #1 (permalink) |
Новичок
Регистрация: 06.06.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите составить программу в Паскале
Даны два одномерных массива,каждый из 8 чисел Х1=(....) и Х2=(....) Вычислить значение функций У(Х1,Х2)=Х2^2/X1+SQRT(X2)/X1^3-X1/X2 для всех сочетаний пар Х1 и Х2 Найти пару Х1 и Х2,для которых функция У(Х1,Х2) примет положительные значения. Заранее благодарна |
06.06.2012, 22:32 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вот топики которые так или иначе имеют сходства с вашим Помогите составить программу в Паскале Помогите составить программу в Паскале |
07.06.2012, 10:02 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
09.06.2012, 13:45 | #4 (permalink) |
Новичок
Регистрация: 06.06.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Простите за беспокойство,но почему то после того,как я ввела программу в Паскаль,нажало Ctrl+F9 и ввела элементы массива,Паскаль не выводит результат а возвращает к программе
|
09.06.2012, 14:55 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Потому что результаты отправлены не на экран, а в два файла. А сделано это затем, что 64 числа в столбик всё равно в экран не влезут. Так что открывайте созданные текстовые файлы res_all и res_pos и смотрите.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
10.06.2012, 18:55 | #7 (permalink) |
Новичок
Регистрация: 06.06.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо ещё раз большое,теперь всё поняла
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|