Как найти процент от числа в паскале

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

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

Исходный код программы Паскаль:

var k,n:integer; //Описание переменных
x:real;
Function procent(n,m:integer):real; //Функция вычисления процентов, т.к. проценты могут быть дробными — задаем тип real
begin
procent:=m*100/n; //Вычисляем проценты, значение присваиваем функции
end;
Begin
writeln(‘Vvedite chisla. Snachala chislo ot kototogo schitaem %’);
readln(k,n); //Считывание переменных
x:=procent(k,n); //Запрашиваем значение процента у функции
writeln(‘x=’,x, ‘%’); //Выводим результат
End.

• Сообщения

• • Дано вещественное число 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.

• Автор

  Сообщения