Вычислить процент на Pascal

      Комментарии к записи Вычислить процент на Pascal отключены

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 6 мес., 3 нед. назад.

  • Автор
    Сообщения
  • #3758

    Дано вещественное число A. Вычислить процент B от этого числа.

    Решение:

    program functions_5;
    uses crt;
    var
      a, b: real;
    function percent(pa, pb: real): real;
    var p: real;
    begin
      p:=pa/100*pb;
      percent:=p;
    end;
    begin
      clrscr;
      write('Число > '); read(a);
      write('Процент > '); read(b);
      write(b, '% от ', a, ' = ', percent(a, b));
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.