Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
gudvin666
17 / 17 / 8
Регистрация: 13.12.2010
Сообщений: 123
1

Циклические операции. Программа не выдает ни результата, ни ошибки

28.02.2012, 18:50. Просмотров 698. Ответов 2
Метки нет (Все метки)

простенькая задача вроде исходник правильный а вывод с ошибкой то есть, ошибки не какой не выводит, да и вообще не какого результата не выводит. понять не могу только начал изучать vb не могу разобраться ткните носом в ошибку
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
x = Val(Text1.Text)
s = 1
For i = 1 To x Step 2
For j = 1 To i
s = s * j
Next j
t = t + 1
q = q + (-1) ^ t * ((x ^ i) / s)
Next i
Text2.Text = q
End Sub
задача и форма прикреплена
0
Миниатюры
Циклические операции. Программа не выдает ни результата, ни ошибки  
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.02.2012, 18:50
Ответы с готовыми решениями:

Программа выдает ошибки
Помогите, пожалуйста, исправить ошибки #include <iostream> //5,21//переделать #include <string>...

Программа выдает ошибки
#include "iostream.h" #include "conio.h" void vvod(int a,int n,int m) { int i,j;...

Программа выдает ошибки в строках 25,30,35
Здравствуйте, не могу понять в чем ошибки, помогите пожалуйста. Ошибки в строках 25, 30, 35...

Программа на C# выдает ошибки с упоминанием о C++
Как устранить проблему?

Программа вылетает, но ошибки не выдает
Подскажите плииииз! Подключил библиотеки opengl следующим образом: 1. правой кнопкой мыши в...

2
gudvin666
17 / 17 / 8
Регистрация: 13.12.2010
Сообщений: 123
28.02.2012, 19:04  [ТС] 2
все спасибо уже исправил
0
Апострофф
Заблокирован
28.02.2012, 19:19 3
Всё равно выложу, зря старался, что-ли
Может, найдешь что полезного для себя
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
x = Val(Text1.Text)
s = 1
t = 1
j = 1
'For i = 1 To x Step 2
For i = 1 To 13 Step 2
  For j = j To i '!!! j = j to ...
    s = s * j
  Next j
  't = t + 1
  'q = q + (-1) ^ t * ((x ^ i) / s)
  q = q + t * ((x ^ i) / s)
  t = -t '!!!
Next i
Text2.Text = q
End Sub
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2012, 19:19

Не работает программа, выдает ошибки
Program COND; Uses crt; var ...

Почему программа выдает ошибки?
Всем здравствуйте! Кто может подсказать, что не так с программой? почему она работает...

Почему программа не работает и выдает ошибки?
Здравствуйте! У меня программа выдает следующие ошибки: 1. vcl.h: No such file or directory. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.