Написать функцию Procent, которая возвращает процент от числа, полученного в качестве аргумента.
В первой задаче ты просто end завершающий не поставила, и ещё перевод каретки пишется #13#10, а не как ты сделала. И старайся форматировать код:)
var
x1,x2:real;
const
seed=100;
begin
randomize;
x1:=random( seed ) * random ( seed ) / ( random( seed ) + 1 );
x2:=random( seed ) * random ( seed ) / ( random( seed ) + 1 );
writeln( 'Переменная x1 = ', x1:0:2, #13#10, 'Переменная x2 = ', x2:0:2 );
readln;
end.
function procent(p:real):real;
begin
procent:=p/100;
end.
Спасибо большое, насчёт Procent не поняла задание, скажу честно....
что значит полученного в качестве аргумента?
Аргумент - входной параметр функции. Он используется в функции в качестве локальной переменной. Т.е. какой параметр (аргумент) передашь в функцию, от такого и будет вычисляться процент.
function procent(p:real):real;
Выделенное - имя входного параметра и его тип.
Правильно ли я поняла, что мы сами вводим любое число с клавиатуры, а он нам ищет от этого числа %....????
Правильно. Вводим с клавиатуры число, передаём его в функцию в качестве аргумента - а функция возвращает нам процент.
Тоже на ][ дублировать будешь?;)
Привет, я всё с той же задачей справится не могу: Написать функцию Procent, которая возвращает процент от числа, полученного в качестве аргумента
program procent;
uses crt;
var n:integer;
function procent (n:real):real;
begin
procent:=n/100;
end;
BEGIN
clrscr;
writeln ('Введите число');
--------- ( не знаю что ещё нужно)
readln;
END.
Так а в программе что нужно-то? Функция уже есть.
program procent;
uses crt;
function Procent(n: Real): Real;
begin
Procent := n / 100;
end;
var n: Integer;
begin
ClrScr;
WriteLn('Введите число');
ReadLn(n);
WriteLn('Процент от числа ', n, ' равен ', Procent(n):0:2);
ReadLn;
end.
Большая благодарность Вам, Archon....
Добавлено через 1 мин.
Спасибо большое Unconnected за помощь.....всё получается.......спасибо!