Программа зацикливается (подсчет интеграла), QBasic |
1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!
Программа зацикливается (подсчет интеграла), QBasic |
klem4 |
22.11.2005 8:16
Сообщение
#1
|
|||
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Олег :
FreeBasic на этом зацикливается, а QBasc нет, интересно почему, как попробуешь напиши тут. Код rem v4lab34 dim y, x, h, a, b, maxX, minX as single dim n as integer cls input "a=";a input "b=";b input "n=";n h = (b-a)/(n-1) x=a print " x y " do y=5*(cos(x))^2 + 2 * x - 1 rem print " ";x;" ";y; print x x=x+h loop until x>b+h/2 input e end
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|||
klem4 |
22.11.2005 8:21
Сообщение
#2
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Народ, может кто знает как в бейсике делать нормальный форматный вывод ? а-ля x:3:1
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
22.11.2005 11:20
Сообщение
#3
|
Гость |
klem4,
PRING USING ? |
Altair |
22.11.2005 12:23
Сообщение
#4
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Блин.. x не изменяется...
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Altair |
22.11.2005 12:25
Сообщение
#5
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
потому что h вычисляется как 0
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Altair |
22.11.2005 12:27
Сообщение
#6
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Код input "a=";a! input "b=";b! input "n=";n! h! = (b!-a!)/(n!-1) x!=a! print " x! y! " while x!<b!+h!/2 y!=5*(cos(x!))^2 + 2 * x! - 1 'print " ";x;" ";y; print x! x!=x!+h! wend end работает причина в том что на стадии вычисления h бейсик длумал что h это целое... и окрглял до нуля все время.... ТИПИЗИРОВАТЬ надо переменные! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
diakin |
27.12.2005 18:00
Сообщение
#7
|
Гость |
|
Текстовая версия | 20.09.2024 6:05 |