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

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

Дата: 2014-11-03 18:26:44   Просмотров: 17200

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

Исходник программы, которая находит факториал числа

Исходник программы, которая находит квадратный корень из числа

Пример программы паскаль, которая находит все делители натурального числа и их сумму

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

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