Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
Thunder_God]
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 17
1

4 задания по VB 6.0

23.12.2010, 22:07. Просмотров 1303. Ответов 10
Метки нет (Все метки)

Дорогие форумчане подскажите как решить 4 задачи
1. Угол задан в радианахю Перевести его величину в градус с точностью до секунд .
2. Для заданного 0<K<200 , рассматриваемого как возраст человека , вывести фразу вида: " Мне 18 лет " , " Мне k лет "
3. Массив А заполнен случайными образом целыми числами . Найти максимальное число из кубов данной последовательности .
4. Составить программу для построения таблицы значений x и y для функции y = x/(x+1)-4.3x при изменении x в диспазоне [8,34] с шагом 0.5 . В колонках должны быть n, x, y>0 , y<0 , где n номер по порядку
Если все же кто нибудь захочет помочь то большая просьба в програмном коде написать что означает каждая команда ; к примеру : " End Sub 1 - завершить действие
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2010, 22:07
Ответы с готовыми решениями:

После задания 8.04 консоль закрывается, хотя впереди еще задания и readln-ы
Добрый день, делаю несколько простых заданий связанных со строками, проблема в том что после...

Четыре школьных задания, буду очень благодарен( задания прикреплены)
Первое задание решить при помощи двумерной таблицы. Буду очень благодарен.

лаба. 3 задания, написать для каждого задания отдельную прогу.
5*. Известно, что с геометрической точки зрения углы, различающиеся в 2pi n раз, где n целое число,...

Объединить программы для задания 1 и задания 2 в одну
Нужно выполнить программу на паскале, объединив программы для задания 1 и задания 2 в одну....

Проверка наличия задания и назначение задания
Вопрос как зделать так чтоби ето задания после повторно запуска *.bat проверяло существует ли даное...

10
gaw
6633 / 1500 / 169
Регистрация: 09.01.2010
Сообщений: 4,274
23.12.2010, 22:36 2
Цитата Сообщение от Thunder_God
;1232970]Если все же кто нибудь захочет помочь
и наверняка на завтра успеть
0
CJ_Sashok
Живу от Клика до Клика
34 / 34 / 5
Регистрация: 01.06.2010
Сообщений: 157
23.12.2010, 23:08 3
Скорее всего вот так.))
На 1:
1
Вложения
Тип файла: rar Радианы.rar (1.3 Кб, 28 просмотров)
CJ_Sashok
Живу от Клика до Клика
34 / 34 / 5
Регистрация: 01.06.2010
Сообщений: 157
23.12.2010, 23:11 4
на 2:
Visual Basic
1
2
3
4
5
6
7
Private Sub Command1_Click()
Dim k As Integer
k = Text1.Text
If k < 200 And k > 0 Then
Label1.Caption = "ГЊГ*ГҐ " & k & " ëåò"
End If
End Sub
1
Thunder_God]
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 17
23.12.2010, 23:13  [ТС] 5
оперативненько =)
благодарю
0
gaw
6633 / 1500 / 169
Регистрация: 09.01.2010
Сообщений: 4,274
23.12.2010, 23:24 6
CJ_Sashok, если что, изв., но

по первой задаче: попробуйте для 3,14 и 3.14 --- результат должен быть один и тот же,

а для случая 1, 21, 22 (это по второй задачи)
0
Thunder_God]
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 17
23.12.2010, 23:33  [ТС] 7
Во второй задаче ошибочка походу
gaw проблема в том , что я мало что понимаю в этом деле + мне надо сдать програмный код и обьяснить ей это

Добавлено через 33 секунды
Цитата Сообщение от Thunder_God] Посмотреть сообщение
Во второй задаче ошибочка походу
gaw проблема в том , что я мало что понимаю в этом деле + мне надо сдать програмный код и обьяснить ей это
Ошибка в третьей строке походу
0
CJ_Sashok
Живу от Клика до Клика
34 / 34 / 5
Регистрация: 01.06.2010
Сообщений: 157
23.12.2010, 23:33 8
Цитата Сообщение от gaw Посмотреть сообщение
CJ_Sashok, если что, изв., но

по первой задаче: попробуйте для 3,14 и 3.14 --- результат должен быть один и тот же,

а для случая 1, 21, 22 (это по второй задачи)
Не чего страшного, просто я в школе данную тему ещё не прошёл. Так что пришлось импровизировать.
p.s.
А почему так происходит(для 3,14 и 3.14)?
0
gaw
6633 / 1500 / 169
Регистрация: 09.01.2010
Сообщений: 4,274
23.12.2010, 23:45 9
Text1 принимает в качестве десятичного разделителя - точку
Label1.Caption = "Градусы: " & (Val(Replace(Text1.Text, ",", ".")) * 57) & vbNewLine & "Секунды: " & (1065 * Val(Replace(Text1.Text, ",", ".")))
1
Thunder_God]
0 / 0 / 0
Регистрация: 23.12.2010
Сообщений: 17
24.12.2010, 01:15  [ТС] 10
Чет я запутался
Каким будет конечный код во второй задаче
0
Vlanib
Частенько бываю
744 / 326 / 42
Регистрация: 20.06.2007
Сообщений: 854
24.12.2010, 05:16 11
По поводу второй задачи. Если бы не ленились пользоваться поиском, то ОТВЕТ получили бы раньше.
1
24.12.2010, 05:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2010, 05:16

задания
помогите с заданиями

Задания.
Написать программу, которая для заданного в файле(который указывает пользователь) текста(буквы и...

3 задания
Представлены на картинке


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

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

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