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

 

Навигатор
 

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

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

Hard & Soft новости

Новости мира

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

Элитный боевой отряд за работой в геймплейном трейлере Comma...

Обзорный геймплейный трейлер Warhammer 40,000: Space Marine ...

Xbox приедет на gamescom 2024 — привезет Avowed и Diablo 4: ...

Эксперты Digital Foundry оценили дебютный геймплей Perfect D...

Анонсирована дата выхода ремастера Beyond Good & Evil

Анонсирован шутер Otherskin — в нем можно поглощать способно...

В EGS началась раздача новой бесплатной игры

Вышел релизный трейлер Elden Ring: Shadow of the Erdtree

Классическая версия Beyond Good and Evil начала пропадать из...

Мир, битвы и напарники: новые подробности Dragon Age: The Ve...

В сеть слили 35 минут геймплея ремастера Beyond Good & Evil

«Шедевр»: первые оценки дополнения Shadow of the Erdtree для...


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

Intel исправила ошибку в механизме разгона eTVB, но полность...

Gigabyte представила SSD AI TOP 100E с невероятной выносливо...

Nvidia стала самой дорогой компанией мира, обогнав Microsoft...

Microsoft выпустила Windows 11 24H2, но сейчас она почти ник...

Встроенная графика Radeon 890M оказалась быстрее GeForce RTX...

Разработка интерфейсов PCIe 6.0 и 7.0 забуксовала — поддержк...

Zephyr выпустила самую компактную GeForce RTX 4070 — у неё в...

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

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

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

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

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


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

Датирован цифровой выход фильма "Планета обезьян: Новое...

Ответ "Безумному Максу": Вышел трейлер российского...

Цифровой релиз "Фуриосы" Джорджа Миллера состоится...

Первый трейлер сиквела хоррора "Улыбка" Паркера Фи...

Объявлена дата выхода «Мегалополиса» от режиссера «Крестного...

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

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

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

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

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

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

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


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

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

Оффлайн активация игр 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

(6510 постов)

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. При копировании материалов с сайта ссылка на сайт обязательна