Во-первых, не whill, а while. Во-вторых, цикл с предусловием(while) выполняется только тогда, когда его условие возвращает ложь. Если условие возвращает правду, цикл завершается. Бывает так, что при попытке первой итерации цикла условие уже возвращает правду. В этом случае цикл не будет выполнен ни разу. Цикл с предусловием(repeat), наоборот, выполняется, пока условие возвращает правду и завершается ложью. Стоит заметить, что если цикл с предусловием проверяет своё условие перед итерацией, цикл с постусловием делает это после, а это значит, что последний выполнится хотя бы один раз.
Это просто, если знать курс Dim R As Integer, D As Integer, E As Integer, X As String Const Euro = 45,38, Dollar = 32,68 ' Здесь вводишь реальные курсы Cls Print "Введите сумму, в конце напишите код валюты - RUR, rur, USD, usd, EUR, eur" Input X If Ucase (Right (X, 3)) = "RUR" Then R = Val (Trim (Left (X, Len(X) - 3))) D = R / Dollar Print Str (D) & "долларов" E = R / Euro Print Str (E) & "евро" ElseIf Ucase (Right (X, 3)) = "USD" Then D = Val (Trim (Left (X, Len(X) - 3))) R = D * Dollar Print Str (R) & "рублей" E = R / Euro Print Str (E) & "евро" ElseIf Ucase (Right (X, 3)) = "EUR" Then E = Val (Trim (Left (X, Len(X) - 3))) R = E * Euro Print Str (R) & "рублей" D = R / Dollar Print Str (D) & "долларов" Else Print "Введите правильное название валюты в любом регистре!" End If
Программа сама проверяет, в какой валюте ты ввел число, и выдает результат в двух других валютах.
Во-вторых, цикл с предусловием(while) выполняется только тогда, когда его условие возвращает ложь. Если условие возвращает правду, цикл завершается. Бывает так, что при попытке первой итерации цикла условие уже возвращает правду. В этом случае цикл не будет выполнен ни разу.
Цикл с предусловием(repeat), наоборот, выполняется, пока условие возвращает правду и завершается ложью. Стоит заметить, что если цикл с предусловием проверяет своё условие перед итерацией, цикл с постусловием делает это после, а это значит, что последний выполнится хотя бы один раз.
Dim R As Integer, D As Integer, E As Integer, X As String
Const Euro = 45,38, Dollar = 32,68 ' Здесь вводишь реальные курсы
Cls
Print "Введите сумму, в конце напишите код валюты - RUR, rur, USD, usd, EUR, eur"
Input X
If Ucase (Right (X, 3)) = "RUR" Then
R = Val (Trim (Left (X, Len(X) - 3)))
D = R / Dollar
Print Str (D) & "долларов"
E = R / Euro
Print Str (E) & "евро"
ElseIf Ucase (Right (X, 3)) = "USD" Then
D = Val (Trim (Left (X, Len(X) - 3)))
R = D * Dollar
Print Str (R) & "рублей"
E = R / Euro
Print Str (E) & "евро"
ElseIf Ucase (Right (X, 3)) = "EUR" Then
E = Val (Trim (Left (X, Len(X) - 3)))
R = E * Euro
Print Str (R) & "рублей"
D = R / Dollar
Print Str (D) & "долларов"
Else
Print "Введите правильное название валюты в любом регистре!"
End If
Программа сама проверяет, в какой валюте ты ввел число, и выдает результат в двух других валютах.