| Вопрос: ВНИМАНИЕ!!!!!!! ВОПРОС!!!!!!!! Всем читать!!!!!!!! | Добавлено: 21.01.08 16:22 |
Автор вопроса:  Artyom
|
|
Есть функция:
Function GetName() As String
Return "Artyom" & ControlChars.CrLf & "Call" Console.WriteLine("Call") End Function Необходимо ее дополнить чтоб выполнялась и первая строчка, и вторая. Менять строчки местами категорически запрещено!!!!! Выносить строчку Console.WriteLine("Call") выше строчки Return "Artyom" & ControlChars.CrLf & "Call" нельзя!!!!!!!!!!!!!!!!!!!! Приветствуются оригинальные решения. Того, чье решение я выберу саым оригинальным, авторизую у себя в аське!!! PS У этой задачи есть КАК МИНИМУМ 3 решения. |
| Ответы | Всего ответов: 28 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 21.01.08 16:41 |
|
goto?
А те, у кого не оригинальные решения, будут выгнаны из аськи?  ))
|
||
|
Номер ответа: 2 Автор ответа:  ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #2 | Добавлено: 21.01.08 17:27 |
|
Мое решение: все что идет после явного ретурна - не имеет права на существование. Хотя в .NET законы физики могут быть несколько иными...
Второе решение: Function GetName() As String
Return "Artyom" & ControlChars.CrLf & "Call" : Console.WriteLine("Call" 
End Function |
||
|
Номер ответа: 3 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #3 | Добавлено: 21.01.08 17:34 |
|
goto?
Можно и с GOTO. Я про эту команду ваще забыл
Function GetName() As String
Goto l1 l2: Return "Artyom" & ControlChars.CrLf & "Call" Goto l3 l1: Console.WriteLine("Call"
Goto l2 l3: End Function |
||
|
Номер ответа: 4 Автор ответа:  ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #4 | Добавлено: 21.01.08 18:15 |
|
[2] ZagZag:
Function GetName() As String
Return "Artyom" & ControlChars.CrLf & "Call" : Console.WriteLine("Call"
End Function нет, это решение неверно - вторая строчка не выполнится. [3] ZagZag: Function GetName() As String
Goto l1 l2: Return "Artyom" & ControlChars.CrLf & "Call" Goto l3 l1: Console.WriteLine("Call"
Goto l2 l3: End Function Большое спасибо, это верное решение. Жду еще вариантов! |
||
|
Номер ответа: 5 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #5 | Добавлено: 21.01.08 18:15 |
|
[1] User Unknown:
АААААААААААААААААААА жошь!!!!!!!!!!!!!!!!! |
||
|
Номер ответа: 6 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #6 | Добавлено: 21.01.08 19:33 |
|
Не знаю как в буржуйском дотнет, но разве Return - это не выход с возвратом значения? как в bcpp. В таком случае, зачем метка "l3"?
Еще можно сделать цикл с двумя итерациями. Во время первой выполнять вторую строку, потом первую. Жаль не знаю синтаксис .net |
||
|
Номер ответа: 7 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #7 | Добавлено: 21.01.08 19:46 |
|
Хм... авторизация в аське Steel Brand это что-то сравнимое со статусом президента США?
|
||
|
Номер ответа: 8 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #8 | Добавлено: 21.01.08 21:15 |
|
Я постараюсь договриться, чтоб в следующем конкурсе призом была авторизация в аське Павла Сурменка!
Ну давайте, давайте! Еще варианты! 2 Winand Давай, пиши код
|
||
|
Номер ответа: 9 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #9 | Добавлено: 21.01.08 23:12 |
|
Я павлу в аську скинул доработанный код митуя пару месяцев назад... до сих пор вставляет его в митуй...
|
||
|
Номер ответа: 10 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #10 | Добавлено: 21.01.08 23:18 |
|
не знаю, правильный ли синтаксис...
For i = 0 to 1
If i = 1 Then Return "Artyom" & ControlChars.CrLf & "Call" Else Console.WriteLine("Call"
End If Next |
||
|
Номер ответа: 11 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #11 | Добавлено: 21.01.08 23:21 |
|
Function GetName() As String
Call WriteCall() Return "Artyom" & ControlChars.CrLf & "Call" End Function Sub WriteCall() Console.WriteLine("Call"
End Sub |
||
|
Номер ответа: 12 Автор ответа: vito Разработчик Offline Client Вопросов: 23 Ответов: 879 |
Web-сайт: Профиль | | #12 | Добавлено: 21.01.08 23:50 |
|
Function GetName() As String
Return "Artyom" & ControlChars.CrLf & "Call" Console.WriteLine("Call"
End Function Sub Main() Console.WriteLine(GetName()) End Sub Ну вот выполняется и первая и вторая. Хотя вторая явно лишняя.
|
||
|
Номер ответа: 13 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #13 | Добавлено: 21.01.08 23:54 |
|
Ну вооот, не успел код написать только расскажи им алгоритм!
Хотя блин, если For i = 0 to 1
правильно, то я лохонулсоIf i = 1 Then Return "Artyom" & ControlChars.CrLf & "Call" Else Console.WriteLine("Call"
End If Next
|
||
|
Номер ответа: 14 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #14 | Добавлено: 22.01.08 00:08 |
|
аа, реально почти правильно, только переменную объявить
Dim i As Integer |
||
|
Номер ответа: 15 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #15 | Добавлено: 22.01.08 00:17 |
|
ой-ой) можно подумать никто до этого не додумался) я вообще чисто ради интереса написал, а не ради авторизации
|
||