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

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

Исходник программы нахождения процента от числа на Паскаль 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.

 

Скачать исходник:procent.pas

Автор: Zed от 2014-11-03 18:26:44   Просмотров: 6433

Теги: подпрограммы исходник Pascal Паскаль