Question

(Pascal)Программа перевода денег из одной валюты в другую по текущему курсу. В программе должен осуществляться запрос: вариант перевода (например: 1 - доллар в рубль, 2 - рубль в доллар); сумма денег; текущий курс.

Answer 1

Var a,b:integer;
s1,s2:string;
begin;
writeln('Введите начальную валюту');
readln(s1);
writeln('Введите конечную валюту');
readln(s2);
writeln('Введите сумму денег');
readln(a);
writeln('Введите текущий курс ',s1,' по отношению к ',s2);
readln(b);
writeln('Вы получите ', a*b,' ', s2);
end.

Answer 2

Программа перевода денег из одной валюты в другую по текущему курсу

Для написания программы перевода денег из одной валюты в другую по текущему курсу на языке Pascal, вам потребуется использовать переменные, операторы ввода-вывода и математические операции. Вот пример программы, которая выполняет указанную задачу:

program CurrencyConverter;

var
  conversionRate, amount: real;
  choice: integer;

begin
  writeln('Currency Converter');
  writeln('------------------');
  writeln('1 - Dollar to Ruble');
  writeln('2 - Ruble to Dollar');
  writeln('------------------');
  write('Enter your choice: ');
  readln(choice);

case choice of
    1:
      begin
        write('Enter the amount in dollars: ');
        readln(amount);
        write('Enter the current conversion rate: ');
        readln(conversionRate);
        writeln('Amount in rubles: ', amount * conversionRate);
      end;
    2:
      begin
        write('Enter the amount in rubles: ');
        readln(amount);
        write('Enter the current conversion rate: ');
        readln(conversionRate);
        writeln('Amount in dollars: ', amount / conversionRate);
      end;
    else
      writeln('Invalid choice');
  end;

writeln('Press Enter to exit');
  readln;
end.

В этой программе мы используем переменные `conversionRate` и `amount` для хранения текущего курса и суммы денег соответственно. Затем мы запрашиваем у пользователя выбор варианта перевода и вводим необходимые данные. В зависимости от выбранного варианта, программа выполняет соответствующие математические операции и выводит результат.

Пример работы программы:

Currency Converter
------------------
1 - Dollar to Ruble
2 - Ruble to Dollar
------------------
Enter your choice: 1
Enter the amount in dollars: 50
Enter the current conversion rate: 75.5
Amount in rubles: 3775

Press Enter to exit

Currency Converter
------------------
1 - Dollar to Ruble
2 - Ruble to Dollar
------------------
Enter your choice: 2
Enter the amount in rubles: 5000
Enter the current conversion rate: 75.5
Amount in dollars: 66.2251655629139

Press Enter to exit

Пожалуйста, обратите внимание, что в данном примере используются ввод и вывод через консоль. Вы можете адаптировать программу для своих нужд, добавив дополнительные функции или интерфейс пользователя.

Примечание: Для получения актуального курса валют, вы можете использовать различные источники данных, такие как API валютных бирж или финансовых сервисов. В данном примере мы предполагаем, что пользователь вводит текущий курс вручную.