|
Помогите решить...(Basic)
|
|
|
AsNazGul
|
Дата: Воскресенье, 08.12.13, 22:54 | Сообщение # 1 |
|
Помогите, пожалуйста, решить задачи. Сделать нужно на яп Basic.
|
| |
| |
|
egorlp
|
Дата: Понедельник, 09.12.13, 00:29 | Сообщение # 2 |
|
на паскале не подошло видимо?) а тебе на когда?
|
| |
| |
|
AsNazGul
|
Дата: Понедельник, 09.12.13, 00:54 | Сообщение # 3 |
|
egorlp, к сожелению не дошло...(
15 декабря последний день.
|
| |
| |
|
ILLYAS
|
Дата: Понедельник, 09.12.13, 01:17 | Сообщение # 4 |
|
AsNazGul
объявляешь константы і,p.
1 - заполняешь массив согласно формуле
a)
2 перебераешь элементы массива пока не наидешь максимальный элемент
max =0
if i > max then max = i
3 аналогично ищешь минимальный елемент
min =a[1](первый елемент масива, хз как на бейсе)
if min<i then min =i
б) создаешь масив Х заполняешь его данными цыфрами из задания
переберая поочередно элементы массива ищешь а
а=0.8*i^2 + math.sin(i)+3.16
и сразу проверяешь на соответствие и ведешь подсчет элементов (e)
if (3*j^2 <i) and (1/2*j-3>=i) then
количество ответов = количество ответов + 1
ельсе, считай дальше
в)выбираешь фором из массива а i+2 элементы ,и пишешь их в N
перебором i = 1 и i=i+2 записываешь массив и перебираешь пока ненаидешь максимальный так как уже было .
возвращение индекса элемента не помню уже. нужно гуглить
|
| |
| |
|
AsNazGul
|
Дата: Понедельник, 09.12.13, 01:20 | Сообщение # 5 |
|
ILLYAS, спасибо. А можно готовый вариант?
|
| |
| |
|
ILLYAS
|
Дата: Вторник, 10.12.13, 02:12 | Сообщение # 6 |
|
AsNazGul первый же поиск в гугле дал почти решенную первую задачу. сядь на пол часа и сам все решишь
Public Class Form1
Dim a(10) As Integer ' Описываем массив из 10 элементов ---- в твоем случае это конкретные 8 элементов
Dim max As Integer ' max - это максимальное число массива (+ долепи свои константы )
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click (набросай на форуму батонов с аналогичными именами, а то будет матерится)
For i = 1 To 10
a(i) = Fix(Rnd() * 100) ' Задаем массив случайным образом, числами от 1 до 99 -(опять гуглишь как заполнять масив конкретными числами, по твоей тангенсиальной формуле)
Next
max = 0 ' Значение max должно быть минимально возможным (т.к. в нашем случае все числа положительные, то будет достаточно и нуля)
For i = 1 To 10
If a(i) > max Then max = a(i) ' Сравниваем каждый элемент массива с max. Если он больше, то max равен данному элементу
Next
MsgBox("Максимум равен: " & max) ' Выводим сообщение с максимальным числом
End Sub
End Class
потом копипастишь этот метод и разворачиваешь стрелку < сюда, меняешь переменную max на min это тебе будет минимум.
ну и финал... множить минимум на максимум)
|
| |
| |
|
AsNazGul
|
Дата: Вторник, 10.12.13, 02:56 | Сообщение # 7 |
|
Мне бы готовое решение...
|
| |
| |
|
MrGreenka
|
Дата: Вторник, 10.12.13, 08:08 | Сообщение # 8 |
|
AsNazGul, надеюсь вы не представитель нового поколения кнопконажимателей?) И если уж совсем невмоготу, то есть спец форумы, где дядьки решают такие легкие задачки как орешки =) Тут все "сииильно занятые" =) К тому же сессия на носу )
|
| |
| |
|
AsNazGul
|
Дата: Вторник, 10.12.13, 10:31 | Сообщение # 9 |
|
MrGreenka, нет.
|
| |
| |
