Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Qbasic

Ответить
Настройки темы
Qbasic

Аватара для Guest

Guest



Профиль | Цитировать


END Дано действительное число y
Получить это.

вот что *я написал:
Код: Выделить весь код
FUNCTION t(y)
FOR k=0 TO 10
f=1 /* препод сказал что первая ошибка в этой строке */
f=f*I
sum1=sum1+(y^(2*k+1)/
 * * * * * (f*(2*k+1)) /* вторая */
sum2=sum2+(y^*k)/f
NEXT k
PRINT sum1
PRINT sum2
END FUNCTION

INPUT “y=”;y
z=(1.7*t(.25)+2*t(1+y))/
6-t(y^z-1)
PRINT “z=”;z
[s]Исправлено: Prisoner, 1:58 11-06-2004[/s]

Отправлено: 20:08, 10-06-2004

 

Аватара для Guest

Guest


Профиль | Цитировать


1.7(0.25)+2t(1+y)/(6-t(y-1)) то что нужно получить 8)

Отправлено: 21:57, 10-06-2004 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 13
Благодарности: 1

Профиль | Сайт | Отправить PM | Цитировать


Что-то типа этого должно сработать...

function fact(n as integer)
 f = 1
 for i=1 to n
   f = f * i
 next i
 fact = f
end function

function t(x as single)
 s1=0
 s2=0
 for k = 0 to 10
   s1 = s1 + (x**(2*k+1)/fact(2*k+1))
   s2 = s2 + (x**2*k)/fact(2*k)
 next k
 t=s1/s2
end function

INPUT “y=”;y
z=(1.7*t(.25)+2*t(1+y))/ 6-t(y^z-1)
PRINT “z=”;z

Отправлено: 03:17, 11-06-2004 | #3

Kamile


Сообщения: n/a

Профиль | Цитировать


Решите, пожалуйста, задачу: даны 2 массива, заменить min элемент 1-ого массива на max элемент 2-ого массива, и наоборот
1-ый: 54193 541093
2-ой 432107 43217

Отправлено: 01:26, 11-10-2006 | #4


Аватара для hasherfrog

Старый параноик


Сообщения: 2423
Благодарности: 85

Профиль | Отправить PM | Цитировать


Ответ:
1-ый: 432107 541093
2-ой 432107 541093

Отправлено: 01:37, 11-10-2006 | #5


Аватара для Prisoner

Engrossed by the Void


Сообщения: 2229
Благодарности: 60

Профиль | Отправить PM | Цитировать


hasherfrog, 5 баллов!

-------
Не могу дать более дельный совет - не хватает системных ресурсов...


Отправлено: 09:52, 11-10-2006 | #6


Ветеран


Сообщения: 1404
Благодарности: 135

Профиль | Отправить PM | Цитировать


Цитата:
Решите, пожалуйста, задачу: даны 2 массива, заменить min элемент 1-ого массива на max элемент 2-ого массива, и наоборот
1-ый: 54193 541093
2-ой 432107 43217
Ответ:
1-ый: 432107 541093
2-ой: 54193 43217

Что-то типо этого нуно написать

void main(){
int a[N],b[N],maxi,mini;
maxi=min(a);
mini=max(b);
b[mini]=b[mini]+a[maxi];
a[maxi]=b[mini]-a[maxi];
b[mini]=b[mini]-a[maxi];
}

int min(int *x){
int i,min,index;
for(i=0,min=*x,index=0;i<N;i++){
if (*(x+i)<min){
min=*(x+i);index=i;}
}
return index;
}

int max(int *x){
int i, max, index;
for(i=0,max=*x,index=0;i<N;i++){
if (*(x+i)>max){
max=*(x+i);index=i;}
}
return index;
}

-------
Ehhh.. what's up, doc?..


Отправлено: 10:07, 11-10-2006 | #7


Аватара для hasherfrog

Старый параноик


Сообщения: 2423
Благодарности: 85

Профиль | Отправить PM | Цитировать


:-) Всю ночь думал, сколько интерпретаций есть у условия (и сколько возможно соответственно решений)

mrcnn
1. обычно своп делают xor'ом, если уж на то пошло :]
2. а что если N=0? :] -> упадём.
3. Кстати :] читал тут старенькую книжку про написание читаемого кода на фортране. Там написано (одно из первых правил): пишите, что думаете, не изгаляйтесь :] Это к вопросу о swap'е, меня ваш вариант выбил на пару минут в астрал :]

Отправлено: 12:41, 11-10-2006 | #8


Ветеран


Сообщения: 1404
Благодарности: 135

Профиль | Отправить PM | Цитировать


hasherfrog
Цитата:
1. обычно своп делают xor'ом, если уж на то пошло :]
как это реализовывается?

Цитата:
2. а что если N=0? :] -> упадём.
микрософтовский компилятор ошибку выдаст, что не может создать массив из 0 элементов.

Цитата:
3. Кстати :] читал тут старенькую книжку про написание читаемого кода на фортране. Там написано (одно из первых правил): пишите, что думаете, не изгаляйтесь :] Это к вопросу о swap'е, меня ваш вариант выбил на пару минут в астрал :]
Этот вариант свопа предлагает Шень в своей книге. обычно я через отдельную переменную обмениваю.

-------
Ehhh.. what's up, doc?..


Отправлено: 13:38, 11-10-2006 | #9


Аватара для hasherfrog

Старый параноик


Сообщения: 2423
Благодарности: 85

Профиль | Отправить PM | Цитировать


>> как это реализовывается?

a ^= b; b ^= a; a ^= b;

Отправлено: 13:52, 11-10-2006 | #10



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Qbasic

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBA - Программирование в Qbasic. provokatop Программирование и базы данных 2 12-04-2009 08:52
Разное - помогите решить задачи на QBasic rockman90 Программирование и базы данных 1 28-12-2007 18:34
QBasic kda12 Программирование и базы данных 2 09-12-2006 14:42
qbasic emin Программирование и базы данных 1 28-04-2003 21:09
qbasic emin Программирование и базы данных 3 18-04-2003 01:28




 
Переход