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

Программа 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.

Нет комментариев

Оставить комментарий