IPB

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> 2 задачи по QBasic, проверте правельность
РИО
сообщение 23.11.2008, 19:53
Сообщение #1


Пользователь


Группа: Пользователи
Сообщений: 3
Регистрация: 23.11.2008
Пользователь №: 21 022



Привет всем. Проверьте пожалуйста правельность блок-схем и кодов следующий задач:

1) Условие:
S =∑(n=1 до 40) (n+2)nx^n
Y=x(3-x)/(1-x)3
при 0.6≤x≤3.6 с шагом 0.6

Решение:
Блок-схема - Изображение

КОД:
color 1,15
cls
k=0
for x=0.6 to 3.6 step 0.1
for n=1 to 40
s=s+(n+2)*n*x^n
next n
locate 6+k, 30
print "S="; S
Y=x*(3-x)/(1-x)^3
Print "Y="; Y
k=k+1
next x
END

2)Условие:
Y= ∑(k=1 до 10) x^2/(k+1), если х<2
0, если х=2
∏(к=1 до 10) x/k , если х>2

Х- произвольное

Решение:
Блок-схема - Изображение

КОД:
color 1,15
cls
input "Введите x"; x
if x<2 then
for k=1 to 10
Y=Y+x^2/(k+1)
next k
Print "Y="; Y
IF x=2 then print "Y=0"
ELSE for k=1 to 10
Y=Y*x/k
next k
Print "Y="; Y
END


Заранее благодарен.
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
PolPoll
сообщение 23.11.2008, 21:09
Сообщение #2


:)


Группа: Главные администраторы
Сообщений: 5 858
Регистрация: 24.11.2005
Из: Москва
Пользователь №: 5 327



Цитата(РИО @ 23.11.2008, 22:53) *

при 0.6≤x≤3.6 с шагом 0.6

Решение:

for x=0.6 to 3.6 step 0.1
шаг не тот...

и вот не помню, можно ли НЕцелые в этом цикле в Basic-е... unsure.gif


Во второй -
незаконченные конструкции IF

нет совсем END IF


--------------------
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
РИО
сообщение 23.11.2008, 22:47
Сообщение #3


Пользователь


Группа: Пользователи
Сообщений: 3
Регистрация: 23.11.2008
Пользователь №: 21 022



Цитата(PolPoll @ 23.11.2008, 21:09) *

шаг не тот...

и вот не помню, можно ли НЕцелые в этом цикле в Basic-е... unsure.gif
Во второй -
незаконченные конструкции IF

нет совсем END IF


Ой то опечатка))) в 1ой

по второй может быть так
color 1,15
cls
input "Введите x"; x
if x<2 then
for k=1 to 10
Y=Y+x^2/(k+1)
next k
Print "Y="; Y
END if
IF x=2 then print "Y=0"
ELSE for k=1 to 10
Y=Y*x/k
next k
Print "Y="; Y
End if
END

а как на счет Блок схем - я их правельно составил?

Сообщение отредактировал РИО - 23.11.2008, 22:51
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
PolPoll
сообщение 24.11.2008, 8:55
Сообщение #4


:)


Группа: Главные администраторы
Сообщений: 5 858
Регистрация: 24.11.2005
Из: Москва
Пользователь №: 5 327



вместо первого end if поставь else
или для x<2 получишь два ответа


твои блок-схемы для меня не понятны... но если вас так учат...


--------------------
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
РИО
сообщение 24.11.2008, 21:21
Сообщение #5


Пользователь


Группа: Пользователи
Сообщений: 3
Регистрация: 23.11.2008
Пользователь №: 21 022



Цитата(PolPoll @ 24.11.2008, 8:55) *

вместо первого end if поставь else
или для x<2 получишь два ответа
твои блок-схемы для меня не понятны... но если вас так учат...


Спасибо.
Если не будет затруднительно, то можете нарисовать мне Блок-схемы в вашем видении, я по другому незнаю как.
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия Сейчас: 23.5.2012, 3:40