Вопрос по информатике:
(помогите пожалуйста Pascal)Программа перевода денег из одной валюты в другую по текущему курсу.
В программе должен осуществляться запрос: вариант перевода (например:
1 - доллар в рубль, 2 - рубль в доллар); сумма денег; текущий курс.
Можно еще описать поподробнее как её проверить
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.09.2018 22:25
- Информатика
- remove_red_eye 3498
- thumb_up 48
Ответы и объяснения 1
Uses crt;
var item, rub, doll: real;
job: integer;
begin
writeln('Введите курс ру по отношению к дол: ');
read(item);//Вводим курс рубль-доллар
writeln('Перевести из (рубля в доллар(2)) или (доллар в рубль(1))?');
read(job);//Вводим режим
case job of
2: begin
writeln('Введите кол-во рублей: ');
read(rub);//Вводим рубль
rub := rub / item;
writeln('doll = ',rub);
end;
1: begin
writeln('Введите кол- во долларов: ');
read(doll);//Вводим доллар
doll := doll * item;
writeln('rub = ',doll);
end;
end;
end.
- 15.09.2018 02:14
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.