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

Программа 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.
Ключевые теги:
Понравилась новость? Добавь в закладки!
Хочешь получать свежие новости? Подпишись на обновления с сайта!
Рекомендуем посмотреть:

Добавление комментария

Ваше Имя:
Ваш E-Mail:
Полужирный Наклонный текст Подчеркнутый текст Зачеркнутый текст | Выравнивание по левому краю По центру Выравнивание по правому краю | Вставка смайликов Выбор цвета | Скрытый текст Вставка цитаты Вставка исходного кода Преобразовать выбранный текст из транслитерации в кириллицу Вставка спойлера

Код:
Включите эту картинку для отображения кода безопасности
обновить, если не виден код
Введите код: