VPF::Помогите с решением задачки - Форум программистов

Fash1

Дата 18.12.2008, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 18.12.2008

Репутация: нет
Всего: нет

напечатать в обратном порядке 50 чисел, кратных 50, по 10 в ряд

Partizan

Дата 18.12.2008, 14:26 (ссылка)

(нет голосов)

Загрузка ...

Let's do some .NET

Профиль
Группа: Модератор
Сообщений: 2828
Регистрация: 19.12.2005
Где: Санкт-Петербург

Репутация: 1
Всего: 67

Fash1, ступай в раздел центр помощи или задавай конкретные вопросы по существу

--------------------

СУВ,
Partizan.

Fash1

Дата 18.12.2008, 15:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 18.12.2008

Репутация: нет
Всего: нет

Private Sub Command1_Click()
Dim Strlen As Integer
Dim i As Integer
Dim S As String
i = 0
Strlen = 10
While (i <= 50)
For j = 1 To Strlen Step 1
S = i + S
i = i + 4
Next
S = S + Chr(10)
S = S + Chr(13)
If (Strlen > 1) Then
Strlen = Strlen - 1
End If
Wend
Print S
End Sub
что не так? не могу понять. С S разобраться не могу.

Partizan

Дата 18.12.2008, 16:49 (ссылка)

(нет голосов)

Загрузка ...

Let's do some .NET

Профиль
Группа: Модератор
Сообщений: 2828
Регистрация: 19.12.2005
Где: Санкт-Петербург

Репутация: 1
Всего: 67

Fash1, а зачем тут вообще работа со строками?

Код


int j = 0;
for(int i = 50; i > 0; i++)
{
    Console.Write((i*50).ToString());
    if (j == 10)
    {
        j = 0;
       Colsole.Write("\n");
    }
    else
    {
       j++;
    }
}

--------------------

СУВ,
Partizan.

Pilger

Дата 18.12.2008, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 257
Регистрация: 10.5.2008
Где: Германия

Репутация: нет
Всего: нет

        Dim x As Integer
        Dim y As Integer = 0
        Dim Str As String = ""

        For x = 50 To 1 Step -1

            Str = Str & x * 50 & " "

            y = y + 1

            If y = 10 Then
                Str = Str & vbNewLine
                y = 0
            End If
        Next

        MessageBox.Show(Str)

Это сообщение отредактировал(а) Pilger - 18.12.2008, 18:27

--------------------

Ein Leben nach der Schleife existiert, nur wenn die Schleife terminiert.

Fash1

Дата 19.12.2008, 02:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 18.12.2008

Репутация: нет
Всего: нет

А как сделать чтобы эти числа выводились с верхней строчки 10 в следующей 9 потом 8, 7 , 6 и до нуля

musson

Дата 19.12.2008, 10:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 28.9.2008

Репутация: нет
Всего: нет

Partizan,
точнее вот так))

Код


 int j = 1;
            for (int i = 50; i > 0; i--) //не ++ а -- )))
            {
                Console.Write((i * 50).ToString());
                Console.Write(" ");
                if (j == 10)
                {
                    j = 1;
                    Console.Write("\n");
                }
                else
                {
                    j++;
                }
            }
            Console.Read();

Fash1,

Код


 int j = 1;
            int x = 10;
            for (int i = 55; i > 0; i--) // токо здесь поставил заменил на 55 чтобы красевее))) 
            {
                Console.Write((i * 50).ToString());
                Console.Write(" ");
                if (j == x)
                {
                    j = 1;
                    Console.Write("\n");
                    x--;
                }
                else
                {
                    j++;
                   
                }
            }
            Console.Read();

Fash1

Дата 19.12.2008, 13:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 18.12.2008

Репутация: нет
Всего: нет

Да вообщето я про visual basic говорю

musson

Дата 19.12.2008, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 28.9.2008

Репутация: нет
Всего: нет

Fash1,
т.е. ты хочешь чтобы за тебя написали? мы тебе дали рабочий алгоритм. перевести его на ВБ 2 минуты, подумай немного!

Pilger

Дата 23.12.2008, 01:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 257
Регистрация: 10.5.2008
Где: Германия

Репутация: нет
Всего: нет

А ты все варианты, написанный выше, посмотрел?

--------------------

Ein Leben nach der Schleife existiert, nur wenn die Schleife terminiert.

diadiavova

Дата 23.12.2008, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Вот рабочий код, хочешь вставляй в текстбокс, хочешь - в консоль выводи, просто функция возвращает строку с нужными данными.

Код


    Function GetNumbers() As String
        Dim rv As String = ""
        Dim i As Integer
        Dim j As Integer = 10
        Dim k As Integer = j - 1
        For i = 50 To 1 Step -1
            j -= 1
            rv += (i * 50).ToString & IIf(j <> 0, " ", vbNewLine)
            If j = 0 Then
                j = k
                k -= 1
            End If
        Next
        Return rv
    End Function

На будущее: если надо преобразовать код с C# загляни сюда.

Цитата(musson @ 19.12.2008, 18:37

)

Fash1,
т.е. ты хочешь чтобы за тебя написали? мы тебе дали рабочий алгоритм. перевести его на ВБ 2 минуты, подумай немного!

Я, конечно, понимаю, что просить код на VB.Net в форуме VB.Net - неслыханная наглость, только проблема в том, что сишарпа некоторые, возможно, не знают, и, не исключено, что именно по этой причине задают вопросы здесь(в форуме VB.Net).

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

Partizan

Дата 23.12.2008, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Let's do some .NET

Профиль
Группа: Модератор
Сообщений: 2828
Регистрация: 19.12.2005
Где: Санкт-Петербург

Репутация: 1
Всего: 67

diadiavova, тут просто не принято ставить вопрос таким образом, что "напишите мне всю программу за спасибо, а я как был неучем, так и останусь..."

--------------------

СУВ,
Partizan.

diadiavova

Дата 23.12.2008, 22:53 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Partizan, сюда обращаются люди с разным уровнем подготовки. То, что одному кажется элементарным, для другого может быть очень сложным. И потом: интересно, что это тут за программу такую ему написали? Прямо операционая система. У меня на этот код пара-тройка минут ушла. И уж тем более заявлять, что типа мы тебе что-то дали, когда это что-то вообще на непонятном(для него) языке, а стало быть никакой ценности не представляет. Если бы он хотел получить код на до-диезе(здесь васиковский форум, стало быть - можно smile

), то наверно закинул бы вопрос в другое место. А если его так просто на васик перевести, то неясно тогда почему сразу не написать на нём(васике).
Кроме того: с завсегдатаем я и сам не проч сцепиться (под настроение ессно), а вот на новичков нападать...

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

Partizan

Дата 24.12.2008, 23:40 (ссылка)

(нет голосов)

Загрузка ...

Let's do some .NET

Профиль
Группа: Модератор
Сообщений: 2828
Регистрация: 19.12.2005
Где: Санкт-Петербург

Репутация: 1
Всего: 67

Цитата

А если его так просто на васик перевести, то неясно тогда почему сразу не написать на нём

Ну во-первых синтаксис VB знаю не так хорошо, как синтаксис шарпа...так что дабы не наврать в синтакисе примеры были на С# приведены....
Да и смысла писать код для копипасты не вижу...

Таким образом вышло, что, с одной стороны, человек получил ответ на свою задачу (ну согласитесь - чтобы понять что написано в исходнике - C# можно и не знать...при условии хотя бы базового знания VB, конечно..)

Цитата

Кроме того: с завсегдатаем я и сам не проч сцепиться (под настроение ессно), а вот на новичков нападать...

Вы утрируете =) На новичков тут вовсе не нападал никто)
Человеку просто оставили то, над чем бы он мог подумать, чуть-чуть включив мозг...а не тупо скопипастил в среду разработки и пошёл сдал счастливый преподавателю...(*думает о том, как много таких студентов видел...*)

Ладно...забыли..человек получил решение в том или ином виде...как им пользоваться - его дело smile

--------------------

СУВ,
Partizan.

diadiavova

Дата 25.12.2008, 05:41 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Цитата(Partizan @ 24.12.2008, 23:40

)

Таким образом вышло, что, с одной стороны, человек получил ответ на свою задачу (ну согласитесь - чтобы понять что написано в исходнике - C# можно и не знать...при условии хотя бы базового знания VB, конечно..)

Офигительный ответ просто. Особенно, если учесть, что языки довольно сильно отличаются, а топикастер , судя по всему, и в васике пока тоже не очень. Для того, чтобы в шарпе разобраться достаточно знать любой язык, произошедший от си(или как некоторые говорят - использующий си-стайл), будь это хоть яваскрипт, но васик...

Есть ещё идея: почему бы во всех форумах не выкладывать примеры на брейнфаке. И пусть народ голову ломает.(это касается решения "в том или ином виде") Может он и не студент вовсе, а просто разобраться пытается. Думаю: здесь далеко не все студентя и профессиональные программисты, некоторые просто интересуются программированием и спросить больше негде.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »