Написать функцию 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 за помощь.....всё получается.......спасибо!

Воспринимаю это как просьбу поднять репутацию указанным юзерам.. делаю.