Первый сайт об играх без цензуры
Страница 1 из 2 1 2
Показывать 40 сообщений этой темы на одной странице

Первый сайт об играх без цензуры (http://gladpwnz.ru/forum/index.php)
-   Бомж притон (http://gladpwnz.ru/forum/forumdisplay.php?f=102)
-   -   Проблема Не для идиотов. (http://gladpwnz.ru/forum/showthread.php?t=19285)

Хлебная крошкa Енот 31.10.2011 20:53
Не для идиотов.
 
В общем пасаны дело тут такое. Нужно составить блок-схему по алгоритму программки VBA.
вот сам код програмки, выщитывающей стоимость в ехел.
Public Sub Stoimost()
Dim d As Long
i = 3
d = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2) = "Монитор" Then
d = Cells(i, 4) * Cells(i, 5) - Cells(i, 4) * Cells(i, 5) * 0.15
Cells(i, 6) = d
Else: d = Cells(i, 4) * Cells(i, 5)
Cells(i, 6) = d
End If
i = i + 1
Loop
Range("F2") = "Стоимость"
End Sub

Если найдутся люди, которые шарят и сделают блок схему, то буду благодарен. с меня море :devyatos::devyatos::devyatos::devyatos::devyatos: :devyatos::devyatos::devyatos::devyatos:

FuckYou™ 31.10.2011 20:55
Re: Не для идиотов.
 
Че это за шифт индейцев майа ??? :61:

Eror101 31.10.2011 20:56
Re: Не для идиотов.
 
Точно пивас поставишь?ustal1

aStoN! 31.10.2011 20:57
Re: Не для идиотов.
 
Сори типуль. Я идиот.:61:

Хлебная крошкa Енот 31.10.2011 21:35
Re: Не для идиотов.
 
Цитата:
Сообщение от Eror101 (Сообщение 630885)
Точно пивас поставишь?ustal1
стопудняк :80: блджад мне позарез нужна эта ебаная схема :3:

---------- Post added at 20:21 ---------- Previous post was at 19:57 ----------

ап блеать

---------- Post added at 20:35 ---------- Previous post was at 20:21 ----------

ап ап ап . неужели нету шарящих.

9rik 31.10.2011 21:52
Re: Не для идиотов.
 
мб сотрудников инновы позвать? :61:

pAwka. 31.10.2011 21:54
Re: Не для идиотов.
 
Дуть мне в хуй...это что на програмиста проходят?

Кореш Голубцова 31.10.2011 22:16
Re: Не для идиотов.
 
Ебаться в труселя,это что за азбука морзе

ELGhoust 31.10.2011 22:18
Re: Не для идиотов.
 
Не, братюнь если б попросил в делфи кода нахуячить то еще лады, а так идинахуй

D!ct0r 31.10.2011 22:19
Re: Не для идиотов.
 
Шо за хуита

9rik 31.10.2011 22:19
Re: Не для идиотов.
 
я знаю решение проблемы http://albanian.ruvr.ru/data/911/593/1234/vodka-1.jpg

Karifan Killah 31.10.2011 22:21
Re: Не для идиотов.
 
иди на другие форумы. на 4гейм или поищи спец форумы..
там помогут.

тут лишь псевдо отцы и нытики сидят

Хлебная крошкa Енот 31.10.2011 22:22
Re: Не для идиотов.
 
блять на спец форумах последние темы датированы 2010 годом. а язык VBA не так уж и сложен, его в школе уже проходят. Програмку я написал, причём сам блеа, а вто блок-схему ебу в дыру. Хотя после часовой ёбли что-то накарякал.

Karifan Killah 31.10.2011 22:24
Re: Не для идиотов.
 
попробуй посмотреть на жукЕ. там есть отделы спец програмирования

Lionson 31.10.2011 22:32
Re: Не для идиотов.
 
Автор пшел нахуй poherman

Хлебная крошкa Енот 31.10.2011 22:41
Re: Не для идиотов.
 
чоткие глады оказались слабачками :30:

CrаzySpeed 31.10.2011 22:48
Re: Не для идиотов.
 
Цитата:
Сообщение от Trololoid (Сообщение 630880)
В общем пасаны дело тут такое. Нужно составить блок-схему по алгоритму программки VBA.
вот сам код програмки, выщитывающей стоимость в ехел.
Public Sub Stoimost()
Dim d As Long
i = 3
d = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2) = "Монитор" Then
d = Cells(i, 4) * Cells(i, 5) - Cells(i, 4) * Cells(i, 5) * 0.15
Cells(i, 6) = d
Else: d = Cells(i, 4) * Cells(i, 5)
Cells(i, 6) = d
End If
i = i + 1
Loop
Range("F2") = "Стоимость"
End Sub

Если найдутся люди, которые шарят и сделают блок схему, то буду благодарен. с меня море :devyatos::devyatos::devyatos::devyatos::devyatos: :devyatos::devyatos::devyatos::devyatos:
за премиум аккаунт для ла2 легко сделаю тебе блок схему.ustal1

Хлебная крошкa Енот 31.10.2011 22:55
Re: Не для идиотов.
 
Цитата:
Сообщение от CrаzySpeed (Сообщение 631252)
за премиум аккаунт для ла2 легко сделаю тебе блок схему.ustal1
продажная шлюха :47:

Зевс 31.10.2011 23:23
Re: Не для идиотов.
 
ебашь по этим формулам
http://mini-soft.ru/soft/vba/kart/image022.gif
где p = (a + b + c) / 2.

http://mini-soft.ru/soft/vba/kart/image027.gif


Это стандартная структура, остальное сам ищи

Хлебная крошкa Енот 31.10.2011 23:25
Re: Не для идиотов.
 
Цитата:
Сообщение от ЗЕВС (Сообщение 631325)
ебашь по этим формулам
http://mini-soft.ru/soft/vba/kart/image022.gif
где p = (a + b + c) / 2.

http://mini-soft.ru/soft/vba/kart/image027.gif


Это стандартная структура, остальное сам ищи
это даже близко не стояло, т.к. нет цикла операций true/false, в общем этот шаблон для 7 класса.

Лесбиянка 31.10.2011 23:28
Re: Не для идиотов.
 
Цитата:
Сообщение от Trololoid (Сообщение 631167)
блять на спец форумах последние темы датированы 2010 годом. а язык VBA не так уж и сложен, его в школе уже проходят. Програмку я написал, причём сам блеа, а вто блок-схему ебу в дыру. Хотя после часовой ёбли что-то накарякал.
Я уже конспект пишу четвертый час,14 страниц,вот это ебля

Зевс 31.10.2011 23:28
Re: Не для идиотов.
 
Цитата:
Сообщение от Trololoid (Сообщение 631332)
это даже близко не стояло, т.к. нет цикла операций true/false, в общем этот шаблон для 7 класса.
Вообще алгоритм с него нужно начинать а цикл выставляется по таблице, только я че то найти не могу, погугли

Хлебная крошкa Енот 31.10.2011 23:41
Re: Не для идиотов.
 
Цитата:
Сообщение от ЗЕВС (Сообщение 631345)
Вообще алгоритм с него нужно начинать а цикл выставляется по таблице, только я че то найти не могу, погугли
знал бы я что гуглить, я вообще 0, передающий слова моего кореша со скайпа .

PeterStormare 31.10.2011 23:50
Re: Не для идиотов.
 
В овале: начало
В шестиугольнике: Cells(i, 2) <> ""
От шестиугольника в ромб: Cells(i, 2)
От ромба по плюс стороне, в прямоугольнике:d = Cells(i, 4) * Cells(i, 5) - Cells(i, 4) * Cells(i, 5) * 0.15
Cells(i, 6) = d
От ромба по минус стороне в прямоугольнике: d = Cells(i, 4) * Cells(i, 5)
Cells(i, 6) = d

Это блок схема до этой части вроде.
Цитата:
Public Sub Stoimost()
Dim d As Long
i = 3
d = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2) = "Монитор" Then
d = Cells(i, 4) * Cells(i, 5) - Cells(i, 4) * Cells(i, 5) * 0.15
Cells(i, 6) = d
Else: d = Cells(i, 4) * Cells(i, 5)
Cells(i, 6) = d
Точность не гарантирую, т.к. этот язык прог-я мне не знаком, БС построил на основе своих знаний английского и азов прог-я на паскале.

Юзать только если других вариантов нет.

.Secret 31.10.2011 23:50
Re: Не для идиотов.
 
ответ: 7 :61:

Разрешатель 31.10.2011 23:52
Re: Не для идиотов.
 
Какой это язык то?

Хлебная крошкa Енот 31.10.2011 23:55
Re: Не для идиотов.
 
Цитата:
Сообщение от PeterStormare (Сообщение 631409)
В овале: начало
В шестиугольнике: Cells(i, 2) <> ""
От шестиугольника в ромб: Cells(i, 2)
От ромба по плюс стороне, в прямоугольнике:d = Cells(i, 4) * Cells(i, 5) - Cells(i, 4) * Cells(i, 5) * 0.15
Cells(i, 6) = d
От ромба по минус стороне в прямоугольнике: d = Cells(i, 4) * Cells(i, 5)
Cells(i, 6) = d

Это блок схема до этой части вроде.


Точность не гарантирую, т.к. этот язык прог-я мне не знаком, БС построил на основе своих знаний английского и аза прог-я на паскале.

Юзать только если других вариантов нет.
шестиугольника же вроде нету :zeleniydebil:

---------- Post added at 22:55 ---------- Previous post was at 22:55 ----------

Цитата:
Сообщение от Разрешатель (Сообщение 631411)
Какой это язык то?
visual basic

PeterStormare 31.10.2011 23:56
Re: Не для идиотов.
 
Цитата:
Сообщение от Trololoid (Сообщение 631413)
шестиугольника же вроде нету :zeleniydebil:
А циклы по твоему как обозначаются?

Хлебная крошкa Енот 31.10.2011 23:58
Re: Не для идиотов.
 
Цитата:
Сообщение от PeterStormare (Сообщение 631415)
А циклы по твоему как обозначаются?
ходит инфа что стрелочками

---------- Post added at 22:58 ---------- Previous post was at 22:58 ----------

говорю же дуб дубом

PeterStormare 01.11.2011 00:00
Re: Не для идиотов.
 
Цитата:
Сообщение от Trololoid (Сообщение 631418)
ходит инфа что стрелочками

---------- Post added at 22:58 ---------- Previous post was at 22:58 ----------

говорю же дуб дубом
овал - начало/конец
Прямуог - вычисления
Параллелограм - ввод/вывод
Ромб - разветвление (исп в ситуациях If ... else)
6-угольник - цикл.

Pavlusha 01.11.2011 00:05
Re: Не для идиотов.
 
ёбаный паскаль(

---------- Post added at 22:05 ---------- Previous post was at 22:04 ----------

это всё математика виновата

Owned! 01.11.2011 00:06
Re: Не для идиотов.
 
Это легко.
Вот мне задали на каникулы домашнее задание что пздц:
x+2=10
x=?
Fuuu

Karifan Killah 01.11.2011 00:07
Re: Не для идиотов.
 
если тс дуб дубом, то ему помогать будет бесполезно..

Хлебная крошкa Енот 01.11.2011 00:10
Re: Не для идиотов.
 
Цитата:
Сообщение от Karifan Killah (Сообщение 631436)
если тс дуб дубом, то ему помогать будет бесполезно..
мне нужен тупо чертёж этой херни на 1 раз. как там овал переходит в прямоугольник и т.д. и т.п.

Karifan Killah 01.11.2011 00:11
Re: Не для идиотов.
 
Цитата:
Сообщение от Trololoid (Сообщение 631441)
мне нужен тупо чертёж этой херни на 1 раз. как там овал переходит в прямоугольник и т.д. и т.п.
надо было учиться на парах, а не спать (студент нэ?):58:

Хлебная крошкa Енот 01.11.2011 00:13
Re: Не для идиотов.
 
Цитата:
Сообщение от Karifan Killah (Сообщение 631442)
надо было учиться на парах, а не спать (студент нэ?):58:
уже далеко не

---------- Post added at 23:13 ---------- Previous post was at 23:12 ----------

полтора года

Karifan Killah 01.11.2011 00:15
Re: Не для идиотов.
 
Цитата:
Сообщение от Trololoid (Сообщение 631444)
уже далеко не

---------- Post added at 23:13 ---------- Previous post was at 23:12 ----------

полтора года
sawboobs тогда сорь, не знал.

а кто ты тогда?

Хлебная крошкa Енот 01.11.2011 00:27
Re: Не для идиотов.
 
Цитата:
Сообщение от Karifan Killah (Сообщение 631448)
sawboobs тогда сорь, не знал.

а кто ты тогда?
предводитель мелкой стаи банковских крыс. блат бывает порой таким блатом.

CrаzySpeed 01.11.2011 00:29
Re: Не для идиотов.
 
Цитата:
Сообщение от Trololoid (Сообщение 631463)
предводитель мелкой стаи банковских крыс. блат бывает порой таким блатом.
главное мелок "машенька" не сожри ненароком:zeleniydebil:

AZIKVANDETTA 01.11.2011 01:08
Re: Не для идиотов.
 
задай этот вопрос в саппорт инновы, а именно в отдел ПБ!!!!!!

---------- Post added at 01:08 ---------- Previous post was at 01:07 ----------

еще спроси как приготовить пельмени


Текущее время: 01:10. Часовой пояс GMT +5.
Страница 1 из 2 1 2
Показывать 40 сообщений этой темы на одной странице

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. Перевод: zCarot
Кто скопирует информацию с данного портала без ссылки на него, тот лох ибаный! \m/