Qbasic
|
Guest |
END Дано действительное число y
Получить это. вот что *я написал: [s]Исправлено: Prisoner, 1:58 11-06-2004[/s] |
|
Отправлено: 20:08, 10-06-2004 |
Guest |
1.7(0.25)+2t(1+y)/(6-t(y-1)) то что нужно получить 8)
|
Отправлено: 21:57, 10-06-2004 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 13
|
Профиль | Сайт | Отправить 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 |
Старый параноик Сообщения: 2423
|
Профиль | Отправить PM | Цитировать Ответ:
1-ый: 432107 541093 2-ой 432107 541093 |
|
Отправлено: 01:37, 11-10-2006 | #5 |
Engrossed by the Void Сообщения: 2229
|
Профиль | Отправить PM | Цитировать hasherfrog, 5 баллов!
|
------- Отправлено: 09:52, 11-10-2006 | #6 |
Ветеран Сообщения: 1404
|
Профиль | Отправить PM | Цитировать Цитата:
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; } |
|
------- Отправлено: 10:07, 11-10-2006 | #7 |
Старый параноик Сообщения: 2423
|
Профиль | Отправить PM | Цитировать :-) Всю ночь думал, сколько интерпретаций есть у условия (и сколько возможно соответственно решений)
mrcnn 1. обычно своп делают xor'ом, если уж на то пошло :] 2. а что если N=0? :] -> упадём. 3. Кстати :] читал тут старенькую книжку про написание читаемого кода на фортране. Там написано (одно из первых правил): пишите, что думаете, не изгаляйтесь :] Это к вопросу о swap'е, меня ваш вариант выбил на пару минут в астрал :] |
Отправлено: 12:41, 11-10-2006 | #8 |
Ветеран Сообщения: 1404
|
Профиль | Отправить PM | Цитировать hasherfrog
Цитата:
Цитата:
Цитата:
|
|||
------- Отправлено: 13:38, 11-10-2006 | #9 |
Старый параноик Сообщения: 2423
|
Профиль | Отправить PM | Цитировать >> как это реализовывается?
a ^= b; b ^= a; a ^= b; |
Отправлено: 13:52, 11-10-2006 | #10 |
|
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
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 |
|