Сколько можно купить быков, коров и телят, если на 100 руб. надо купить 100 голов скота

@ENCORE · Регистрация: 30.09.2012

Студворк — интернет-сервис помощи студентам

Всем участникам форума привет!
И сразу перейду к делу. Есть задача:
Составить алгоритм решения задачи: сколько можно купить быков, коров и телят, платя за быка 10 руб., за корову — 5 руб., а за теленка — 0,5 руб., если на 100 руб. надо купить 100 голов скота?

Решил ее на c# :

C#

int b = 1;
            int k = 1;
            int t = 1;
                {
                    for (b = 1; b <= 10; b++)
                    {
                        for (k = 1; k <= 20; k++)
                        {
                            for (t = 1; t <= 200; t++)
                            {
                                 if (((b * 10) + (k * 5) + (t * 0.5)) == 100) 
                                 {
                                     if ((b + k + t) == 100) 
                                     {
                                         Console.WriteLine("na 100 ryblei mi kypim {0} bikov, {1} korov i {2} telyat", b, k, t);
                                         Console.ReadLine();

Ответ получается верный - 1,9,90

Затем пытаюсь сделать то же самое на VBA :

VB.NET

Dim b As Integer
        Dim k As Integer
        Dim t As Integer
        
        For b = 1 To b <= 10 Step b
            b = b + 1
            For k = 1 To k <= 20 Step k
                k = k + 1
                For t = 1 To t <= 200 Step t
                    t = t + 1
                Next
            Next
        Next
        If (((b * 10) + (k * 5) + (t * 0.5)) = 100) Then
        End If
        If ((b + k + t) = 100) Then
        End If
        Console.WriteLine("na 100 ryblei mi kypim {0} bikov, {1} korov i {2} telyat", b, k, t)
        Console.ReadLine()

Здесь получается ответ: 1,0,0

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

@Казанский · 30.09.2012, 14:09

Вот это

Сообщение от ENCORE

C#

for (b = 1; b <= 10; b++)
{
...
}

переводится на VB* так

Visual Basic

1
2
3

For b = 1 To 10
...
Next

Добавлено через 27 минут
Третий вложенный цикл не нужен

Visual Basic

Sub bb()
Const CENA_BYK# = 10, CENA_KOR# = 5, CENA_TEL# = 0.5, SUM# = 100, GOL& = 100
Dim b&, k&, t&
For b = 0 To SUM / CENA_BYK
    For k = 0 To (SUM - b * CENA_BYK) / CENA_KOR
        t = (SUM - b * CENA_BYK - k * CENA_KOR) / CENA_TEL
        If b + k + t = GOL Then Debug.Print "na"; SUM; "ryblei mi kypim"; b; "bikov"; k; "korov i"; t; "telyat"
Next k, b
End Sub

@~~Апострофф~~ · 30.09.2012, 16:05

Сообщение от ENCORE

Visual Basic

1 2	Console.WriteLine("na 100 ryblei mi kypim {0} bikov, {1} korov i {2} telyat", b, k, t) Console.ReadLine()

А вот это на VBA вообче не переводится

@ENCORE · 30.09.2012, 17:54 **[ТС]**

А вот это на VBA вообче не переводится

Никаких проблем с выводом нету, все как на c#
А вот с циклами все еще проблема

@~~Апострофф~~ · 30.09.2012, 19:45

ENCORE, уточни свою среду разработки!
VBA на моей памяти ни разу не поддерживал Console. ...

@ENCORE · 30.09.2012, 19:59 **[ТС]**

Апострофф, Visual Basic!

@~~Апострофф~~ · 30.09.2012, 20:18

Visual Basic 2010?

@ENCORE · 30.09.2012, 20:54 **[ТС]**

Именно

@~~Апострофф~~ · 30.09.2012, 22:01

ENCORE, и что Вы хотите от VBA-раздела?
Тема переносится...

@ENCORE · 02.10.2012, 16:13 **[ТС]**

можно закрывать

Памирыч · 02.10.2012, 17:49

Не по теме:

:facepalm:
(Полезная тема, что тут сказать)

@ENCORE 0 / 0 / 0 Регистрация: 30.09.2012 Сообщений: 7
	30.09.2012, 17:54 [ТС]	4
	А вот это на VBA вообче не переводится Никаких проблем с выводом нету, все как на c# А вот с циклами все еще проблема 0

@~~Апострофф~~ Заблокирован
	30.09.2012, 19:45	5
	ENCORE, уточни свою среду разработки! VBA на моей памяти ни разу не поддерживал Console. ... 0

@ENCORE 0 / 0 / 0 Регистрация: 30.09.2012 Сообщений: 7
	30.09.2012, 19:59 [ТС]	6
	Апострофф, Visual Basic! 0

@~~Апострофф~~ Заблокирован
	30.09.2012, 20:18	7
	Visual Basic 2010? 0

@ENCORE 0 / 0 / 0 Регистрация: 30.09.2012 Сообщений: 7
	30.09.2012, 20:54 [ТС]	8
	Именно 0

@~~Апострофф~~ Заблокирован
	30.09.2012, 22:01	9
	ENCORE, и что Вы хотите от VBA-раздела? Тема переносится... 0

@ENCORE 0 / 0 / 0 Регистрация: 30.09.2012 Сообщений: 7
	02.10.2012, 16:13 [ТС]	10
	можно закрывать 0

Памирыч
	02.10.2012, 17:49 Сколько можно купить быков, коров и телят, если на 100 руб. надо купить 100 голов скота #11
	Не по теме: :facepalm: (Полезная тема, что тут сказать) 0

Опции темы