сервис вопросов и ответовНаписать программу, реализующую следующую задачу: дана сумма денег в некоторой валюте. Определите соответствующий денежный эквивалент в другой
5-9 класс|
|
валюте.
18062005
21 окт. 2014 г., 16:27:10 (9 лет назад)
Ученик2158
21 окт. 2014 г., 18:18:23 (9 лет назад)
Это просто, если знать курс
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
Программа сама проверяет, в какой валюте ты ввел число, и выдает результат в двух других валютах.
Ответить
Другие вопросы из категории
Составить программу, читающую положительные значения x,y,z и печатающую одно из слов: нельзя, остроугольный, прямоугольный, тупоугольный в зависимости от
того, какой треугольник можно построить из отрезков с длинами x,y,z
Первым программистом в истории человечества (из заслуг-введения понятий "цикл" и "рабочая ячейка" считается...
А)Ада Августа Лавлейс
Б)Блез Паскаль
В)Алан Тьюринг
Г)Чарльз Беббидж
Помогите пожалуйста!
Помогите по инфе: Злая мачеха отправила падчерицу к роднику за водой."Вот тебе 2ведра, в одно из них входит 9литров воды, а в другое-5 литров.Но ты
должна принести домой ровно 3 литра воды",-сказала она бедной девушке.Как должна действовать падчерица, чтобы выполнить это поручение?
Читайте также
3. Написать программу, которая вводит массив из N вещественных чисел, а затем заменяет в нём все элементы, превышающие данное число Z, этим числом. Вывести
на экран полученный массив и количе-ство замен. Протестировать программу на следующих исходных данных:
а) Z=10 Массив: 1,2 2,6 3 -4,5 11 10,2 3,2 87 -15
б) Z=-2 Массив: 0 -3,1 11 -7,9 -2,1 -1,9 4
НА ПАСКАЛЕ
Помогите, с помощью паскаля надо сделать следующее:
Составить программу, решающую следующую задачу: дано трехзначное число. В нем зачеркнули первую цифру слева и приписали ее справа. Вывести полученное число.
Так же:
Составить программу, решающую следующую задачу: дан номер некоторого года (целое положительное число). Определить соотв-щий ему номер столетия, учитывая, что, к примеру, началом 20го столетия был 1901 год. Сам то я знаю как решать, но не смогу записать это в паскаль!
Написать программу для отыскания
max(min(a,b), min(c,d)), не
используя сложные логические условия и вложенные ветвления. Числа a,b,c,d
- целые. Протестировать программу для следующих исходных данных:
Составить программу, решающую следующую задачу: Дана сторона равностороннего треугольника a, найти площадь S этого треугольника и радиусы вписанной R1 и
описанной R2 окружностей. Формулы:
Информатика (Pascal):
Написать программу для след задачи:
Найти среднюю температуру, если кол-во n дней, когда t >=5.
Вывести ДА или НЕТ
Вы находитесь на странице вопроса "Написать программу, реализующую следующую задачу: дана сумма денег в некоторой валюте. Определите соответствующий денежный эквивалент в другой", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.