Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / решение задач.... / 25 сообщений из 77, страница 1 из 4
  1  все
29.03.2011, 17:25
    #37188446
ms. X
ms. X
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
1. вывести таблицу соответствий между весом в фунтах и в килограммах для значений от n до m, n и m вводятся. введённые данные необходимо проверить на допустимость (n>0, m>0, n<m), 1 фунт =400граммов.

2. составить таблицу перевода километров в мили на интервале от 10 до 50 с шагом 5 ( 1 миля= 1,609 километра)
Помогите пожалуйста!! Очень нужно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 18:04
    #37188568
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
В свою очередь мне очень нужны деньги. Меняемся?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 18:11
    #37188585
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
ms. X, Вы поняли, что Ваш первый вопрос может стать последним? Что делали, что не получается?

на реплику: В свою очередь мне очень нужны деньги. Меняемся?
Не соглашайся, зачем тебе рыба, тебе нужна удочка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 18:20
    #37188612
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
Да ничего не делали, это лаба из института. Или даже из школы, для института это слишком примитивно.
А дамочка пришла именно за рыбой.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 18:24
    #37188625
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
Antonariy, нифига себе откуда знаете, что дамочка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 18:34
    #37188658
ms. X
ms. X
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
ничего подобного!!! я решала:
Public Sub Chaosu()
Dim m As Integer
Dim i As Integer ' счётчик и номер строки
Dim n As Integer
Worksheets(1).Range("A1") = "Фунты"
Worksheets(1).Range("B1") = "килограммы"
n = InputBox("Ввести n")
m = InputBox("Ввести m")
If (n > 0) And (m > 0) And (n < m) Then
For i = n To m
Worksheets(1).Cells(i + 1, 1).Value = n 'В столбец А выводить фунты
Worksheets(1).Cells(i + 1, 2).Value = n * 0.4
Next i
Worksheets(1).Range("C2") = n
Worksheets(1).Range("D2") = m
End If
End Sub

ничего не получается
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 18:38
    #37188671
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
 
OFF> Автор: Ципихович Эндрю
> нифига себе откуда знаете, что дамочка?


Т Ы Н Ц


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 18:45
    #37188698
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
Игорь Горбонос, за всем в Википедию лазить, хоть бы её платной сделали
а как же будет мистер Икс, знали такого?
Сейчас дамочка, помогу чем смогу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 18:53
    #37188726
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
Ципихович Эндрю,
знчит если ввели Н=2 и М=9, то надо высчитать
2
3
4
5
6
7
8
9
Так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 18:55
    #37188730
ms. X
ms. X
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
да
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 19:03
    #37188751
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
ms. X,перед этой строкой
For i = n To m
чему равно i ????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 19:08
    #37188762
ms. X
ms. X
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
не знаю(((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 19:08
    #37188763
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
Ципихович Эндрю,

Как же помогать-то будете? :-) подсказываю - до начала цикла - нулю, если ранее не использовалась. А в самом начале цикла она будет равна n . Это исходя из кода.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 19:50
    #37188828
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
ms. X,

в Экселе не понимаю, сами доделаете рашпилем:
Код: plaintext
1.
2.
3.
4.
5.
n = InputBox("Ввести n")
m = InputBox("Ввести m")

For i =  1  To m - n +  1 
MsgBox$ n -  1  + i & " kg - " & (n -  1  + i) *  0 . 4  & " fn"
Next i
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 20:01
    #37188841
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
мисс Х, а вообще то может подскажут Вам в Экселе это же через формулу делается
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 20:06
    #37188851
ms. X
ms. X
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
огромное спасибо!! я нашла ошибку))
Public Sub Chaosu()
Dim m As Integer
Dim i As Integer ' счётчик и номер строки
Dim n As Integer
Worksheets(1).Range("A1") = "Фунты"
Worksheets(1).Range("B1") = "килограммы"
n = InputBox("Ввести n")
m = InputBox("Ввести m")
If (n > 0) And (m > 0) And (n < m) Then
For i = n To m - n + 1
Worksheets(1).Cells(i + 1, 1).Value = n - 1 + i 'В столбец А выводить фунты
Worksheets(1).Cells(i + 1, 2).Value = (n - 1 + i) * 0.4
Next i
Worksheets(1).Range("C2") = n
Worksheets(1).Range("D2") = m
End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 20:09
    #37188854
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
ms. X, про теги не забываем
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Public Sub Chaosu()
Dim m As Integer
Dim i As Integer ' счётчик и номер строки
Dim n As Integer
Worksheets( 1 ).Range("A1") = "Фунты"
Worksheets( 1 ).Range("B1") = "килограммы"
n = InputBox("Ввести n")
m = InputBox("Ввести m")
If (n >  0 ) And (m >  0 ) And (n < m) Then
For i = n To m - n +  1 
Worksheets( 1 ).Cells(i +  1 ,  1 ).Value = n -  1  + i 'В столбец А выводить фунты
Worksheets( 1 ).Cells(i +  1 ,  2 ).Value = (n -  1  + i) *  0 . 4 
Next i
Worksheets( 1 ).Range("C2") = n
Worksheets( 1 ).Range("D2") = m
End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 20:11
    #37188860
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
ms. X,

Код: plaintext
незачёт
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 20:13
    #37188862
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
timtim, согласен, где 2-0,8??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 20:27
    #37188885
ms. X
ms. X
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
о чём вы??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 20:29
    #37188890
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
ms. X, Ваш скрипт от сегодня, 20:06 смотрим, люуемся и не видим чему же равны 2 кг. в фунтах, а очень надо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 20:30
    #37188891
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
если ввели Н=2 и М=9
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 20:33
    #37188896
ms. X
ms. X
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
как быть??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 20:34
    #37188899
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
ms. X, любоваться на код ЦЭ от сегодня, 19:50, ОК??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2011, 20:38
    #37188904
ms. X
ms. X
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
решение задач....
это жестоко...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / решение задач.... / 25 сообщений из 77, страница 1 из 4
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 458ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2158730]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 34ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 323ms
total:  458ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]