Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
SkyWalker
Cyber-Tracing
345 / 70 / 3
Регистрация: 27.04.2009
Сообщений: 554
1

Использование циклов

29.05.2010, 18:23. Просмотров 533. Ответов 4
Метки нет (Все метки)

Всем привет.

Не могу понять как решить эту задачу.

У покупателя есть сумма средств С грн. Определить стоимость покупок, если они делаются в процессе знакомства с товаром.

Если кто сможет, помогите.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2010, 18:23
Ответы с готовыми решениями:

Создание циклов
помогите создать программу

Создание циклов
помогите создать циклическую программу

Программирование вложенных циклов
Дано целое число N и набор из N вещественных чисел: A1, A2, …, AN. Вывести следующие числа: A1,...

Написать программу с использованием циклов на VB
В простую переменную последовательно вводятся н чисел. все ли числа меньше заданного числа к?...

использование циклов
Добрый день, уважаемые форумчани! помогите, пожалуйста с этой задачей, не могу ее осилить...

4
Alex77755
10980 / 3438 / 591
Регистрация: 13.02.2009
Сообщений: 10,215
30.05.2010, 01:40 2
Да..
Такую задачу с помощью циклов решить будет трудно
Впрочем без циклов вообще невозможно
1
SkyWalker
Cyber-Tracing
345 / 70 / 3
Регистрация: 27.04.2009
Сообщений: 554
30.05.2010, 10:00  [ТС] 3
Вот такую задачу задали моей сестре в универе. Я не представляю как ее можно решить!
Хотел у вас спросить.
0
Alex77755
10980 / 3438 / 591
Регистрация: 13.02.2009
Сообщений: 10,215
30.05.2010, 10:18 4
Всего делов то
если только знакомится:
Visual Basic
1
2
3
4
5
Dim T ' количество товара 
dim S ' сумма 
for i = 1 to T
S = s + 0
next i
если покупает:

Visual Basic
1
2
3
4
5
Dim T ' количество товара 
dim S ' сумма 
for i = 1 to T
S = S + Цена_товара
next i
1
аналитика
здесь больше нет...
3352 / 1664 / 184
Регистрация: 03.02.2010
Сообщений: 1,219
30.05.2010, 11:50 5
Увидел, что Alex написал, навеяло:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
   Randomize
   n = Val(InputBox("сколько товаров будем смотреть?", , 10))
   ReDim t(1 To n)
   cash = Val(InputBox("денег у тя сколько?", , 100))
   
   For i = 1 To n
      t(i) = Int(Rnd * cash / 10) + 5
      If cash - S < t(i) Then
         MsgBox "Денег не хватает!", vbCritical, "стоит - " & t(i) & ", денег - " & cash - S
      Else
         If MsgBox("Знакомимся с товаром №" & i & "..." & vbNewLine & vbNewLine & _
            "познакомились и готовы к выбору" & vbNewLine & vbNewLine & _
            "будем брать?", vbYesNo, "стоит - " & t(i) & ", денег - " & cash - S) = vbYes Then
               S = S + t(i)
               p = p + 1
               MsgBox "Куплено!", vbInformation, "денег - " & cash - S
         End If
      End If
   Next i
   MsgBox "Куплено товаров в количестве " & p & vbNewLine & _
          "на сумму " & S, , "Денег осталось " & cash - S
1
30.05.2010, 11:50
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2010, 11:50

Использование циклов while и do-while
Помогите !!!! :help:

Использование циклов
Подскажите правильно ли я написал программу для цикла &quot;For&quot; Условие в вложение.. program...

Использование циклов
Приведите примеры использования циклов для следующей задачи: вывести таблицу значений функции...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.