| Вопрос: Экзамен ща! | Добавлено: 24.01.09 09:13 |
Автор вопроса:  Андрей | ICQ: 356137267 |
|
Задан фрагмент алгоритма:
если a<b,то с=2*(a-b) d=0 пока с>a выполнить действия d=d+1,с=с-1 Написать программу по алгоритму для вычеления и вывода значений переменных c и d, при начальных значениях a=8, b=3 ребят выручайте плиз!если оч легко сделайте плиз!!!rammstein_live_@mail.ru |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  mic Вопросов: 0 Ответов: 7 |
Web-сайт: Профиль | | #1 | Добавлено: 24.01.09 20:01 |
|
Изначально условие a<b (8<3) не выполняется, то есть дальше алгоритм не пойдёт. Может a и b другие? Или в алгоритме условие другое?
Код для алгоритма: Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim st As String a = 8 b = 3 If a < b Then c = (a - b) * 2 End If d = 0 While c > a d = d + 1 c = c - 1 Wend st = "c=" & CStr(c) & "d=" & CStr(d) Selection.TypeText Text:=st |
||
Страница: 1 |