Согласно бюллетеню Центробанка 100$ эквивалентны Т руб. Вычислить эквивалент 2,3,4...,N руб. в долларах

Категория: Delphi/Pascal
2011-09-05 19:13:30
code: #pascal
  1. program Project2;
  2. const
  3. USD=100;//Trub
  4. var T:real; //эквивалент рублей
  5.     i,N:integer;
  6. function f(i:integer;T:Real):Real;   // функция расчета руб в $
  7. begin
  8.   f:=i*(100/T);
  9. end;
  10. begin
  11.   write('Введите эквивалент (в руб) 100$ = ');
  12.   readln(T);
  13.   Write('Сколько рублей считать? N = ');
  14.   ReadLn(N);
  15.   if N >0 then
  16.   begin
  17.   for i:=1 to N do
  18.     begin
  19.       Writeln(i,' руб = ',f(i,T):4:2,'$');//вывод результатов
  20.     end;
  21.   end
  22.   else
  23.   Writeln('Ошибочка');
  24.     readln;
  25. end.
Поделиться:

Похожие статьи:

теги: студенты, консольное приложение