Name: Нас стало больше_32
Item: Нас стало больше_32
Author: aizotov

Главная » » Нас стало больше_32

Нас стало больше_32	21:35
'---Старшинин Сергей. Мужчина. Из Ростова. var gr: Array[1..24] of String; i: integer; begin i:=8; gr6[i]:='Сергей Старшинин'; Writeln (gr[i], 'стал', i, 'м членом экипажа 6 группы'); end. Это я заработался. Сергей усилил 6 группу. Их теперь i. То есть 8.
Просмотров: 609 \| Добавил: asu \| Рейтинг: 0.0/0

Всего комментариев: 3

Порядок вывода комментариев:

1 aizotov (25-Ноя-2008 10:50)

Спам

Силён!
А полиглотистость свою продемонстрировать?
Типа такого:

Private Sub Group6()
Dim gr6
Dim i as Integer

gr6=Array("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")
i=8

gr6(8)="Сергей Старшинин"
Msgbox(gr6(8) & " стал " & i & "-м членом экипажа 6 группы")

End Sub

Еще можно ошибки поискать.
Например, твоя надпись (по-моему) будет выглядеть так:
Сергей Старшининстал8м членом экипажа 6 группы

2 asu (26-Ноя-2008 21:45)

Спам

Ну да, пробельчики не поставил. biggrin

Предлагаю твою процедурку несколько изменить.
Например:

Sub Group6()
Dim gr6 (24) as String
gr6(8)="Сергей Старшинин"
Msgbox(gr6(8) & " стал " & 8 & "-м членом экипажа 6 группы")
End Sub

rem Вызываем процедуру

Group6()

happy

3 aizotov (03-Дек-2008 16:51)

Спам

Спасибо, Толик!
Сразу видно практика с большим опытом!
А я все своим вариантом пользуюсь (правда я с массивами практически и не работаю) - где-то увидел и собезьянничал.

Эх, ассемблер что ли вспомнить...

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]