Pascal Процент от числа

[Mathian]

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

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.

Автор: Неизвестно