ГлавнаяРегистрацияВход
Приветствую Вас, Гость (зарегистрируйтесь) · RSS

 

Навигатор
 

Новостная лента

Игровые новости

Hard & Soft новости

Новости мира

Доска бесплатных объявлений

Экшен Kemuri от ученицы Синдзи Миками появился на обложке ED...

В Dragon Age: The Veilguard можно играть оффлайн и без микро...

Beyond Good and Evil 20th Anniversary Edition ещё никогда не...

Ubisoft переименовала платформу Assassin’s Creed Infinity

Эволюция RPG и любимый герой: подробности отмененного сиквел...

Ремастер зомби-слешера про чирлидершу с бензопилой перенесли...

Инсайдер уточнил, когда выйдут Fable и Gears of War: E-Day

Впечатления после 30 минут геймплея S.T.A.L.K.E.R. 2

Summer Game Fest вернется в 2025 году

Разработчик BioWare показал скриншот Dragon Age: The Veilgua...

Авторы Life is Strange: Double Exposure поделились новыми де...

Вышел новый трейлер ролевого экшена Exodus от авторов Mass E...


Для просмотра остальных игровых новостей нажмите Далее

Lian Li представила корпус O11 EVO RGB Automobili Lamborghin...

Gigabyte выпустила свой самый быстрый потребительский SSD — ...

Sony PlayStation 5 наконец получит полноценную поддержку Dis...

Правительство США ввело санкции в отношении Deepcool за снаб...

Mozilla заблокировала россиянам доступ к расширениям для обх...

США запретили оказывать IT-услуги и продавать некоторое ПО л...

AMD признала, что чипы Ryzen 9000 не будут быстрее Ryzen 700...

MSI представила карту расширения Xpander-Aero Slider Gen 5 н...

SK hynix показала чипы памяти GDDR7 на выставке Computex, но...

В iOS 18 появился игровой режим, повышающий производительнос...

Представлен Apple Intelligence — набор ИИ-функций, который п...

Apple представила iOS 18 с новыми функциями, которые давно е...


Для просмотра остальных Hard & Soft новостей нажмите Далее

Huawei теперь продает говядину, полученную в качестве оплаты...

Стартовал четвертый сезон «Пацанов» — вышли первые серии

Вышел первый трейлер мультсериала «Черепашки-ниндзя: Истории...

SEGA анонсировала мультфильм «Angry Birds в кино 3»

«АвтоВАЗ» показал электрическую Lada e-Niva Travel

Вышел полноценный трейлер хоррора «Чужой: Ромул»

Вышел первый трейлер фильма «Веном: Последний танец»

Анимационный сериал Tomb Raider: The Legend of Lara Croft от...

Вышел первый тизер «Возвращения в Сайлент-Хилл» — экранизаци...

"Академия Амбрелла" отправляется в последнюю мисси...

Брэд Питт и Джордж Клуни в роли фиксеров в трейлере "Во...

Вышел тизер мультфильма "Моана 2" от Disney


Для просмотра остальных новостей в мире нажмите Далее

Для просмотра остальных объявлений нажмите Далее

Оффлайн активация игр Steam|Origin|Ubisoft Connect|Epic Games Store|Battle.Net|Microsoft Store

[Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Помогите решить...(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, нет.
 
  • Страница 1 из 1
  • 1
Поиск:
Топ 10

Новички

Активные форумчане

Активные комментаторы

Самые уважаемые

Самые дружелюбные

Haoose

(18831 постов)

MasterMist

(12649 постов)

Demid_OFF

(9651 постов)

VERGILIY

(8380 постов)

LarsUp71

(6506 постов)

Mysteri0

(6015 постов)

roadrunner

(5596 постов)

unknown2304

(5234 постов)

amigo091

(4925 постов)

Lordw007

(4873 постов)

Smotritel37

(2841 комментов)

cRAZYeND

(2102 комментов)

ScorpionBSG

(1889 комментов)

vindiesel

(1827 комментов)

ButcherwithAXe

(1819 комментов)

XSHKIPERX

(1648 комментов)

PETROVeeCH

(1532 комментов)

Yureyko

(1480 комментов)

the_Prodigy

(1381 комментов)

b0mbeyb0x

(1380 комментов)

Haoose

(21241 репы)

Mysteri0

(11597 репы)

MasterMist

(11212 репы)

Ulysses

(9535 репы)

ENEY

(7795 репы)

SonOfGods

(7693 репы)

-=Raven=-

(7580 репы)

sputNIK37

(7503 репы)

igorok66

(7187 репы)

kondrat

(7042 репы)

Romzec161

(100 друзей)

amigo091

(98 друзей)

GhostBond

(72 друзей)

oklibid

(35 друзей)

Uchenik1984

(30 друзей)

zydex

(28 друзей)

ELusive

(27 друзей)

Mysteri0

(24 друзей)

Haoose

(21 друзей)

Казанова

(20 друзей)

Статистика
 

© 2007-2024 NoCD / NoDVD для игр на antistarforce.com. При копировании материалов с сайта ссылка на сайт обязательна