Просьба в написании программы :(

[lerochka]

Уважаемые пользователи етого форума помогите мне в написании программы в Delphi 7! Буду очень Вам благодарна) Вот задание: "Вычислить число в факториале Y=X!" Прошу Вас помогите...

[artemavd]

попоробуйте это:

program a;
{Функция факториал}
Function fact(s:integer):real;
var i:integer;
begin
result:=1;
if s<=0 then break;
for i:=1 to s do result:=result*i;
end;

{Основной код программы:}
begin
writeln(fact(32));{Выводит результат на экран}
end;

и поищите на форуме, уже много раз задавалось вопросов, подобных Вашему.
P.S. Нашел этот код, кстати, поиском по форуму.

[lerochka]

Уважаемый artemavd а можно подробнее обьяснить =) {Основной код программы:}
туда что вводить?

[DenisWilson]

Уважаемая, Лерочка. Код программа, который выше привел Артем состоит из двух частей:
1. функции fact, которая считает факториал,
2. и основного кода программы, в котором вызывается эта функция.

В фигурных скобках {} написаны так называемые комментарии, то есть пояснения Вам, чтобы Вы не перепутали, где функция, а где основной код программы.

Компилятор на такие строки не обращает никакого внимания (так как они написаны для Вас, а не для него).

Из всего этого делаем вывод, что ничего больше вводить не нужно (всё уже введено), а тем более в фигурные скобки, так как компилятор всё равно это проигнорирует.

[Олвин]

Так ведь там уже всё введено Одна строчка кода - программа выводит на экран факториал числа 32. {Только это слишком большое число для факториала!}

[lerochka]

А куда именно писать етот код обьясните пжайлуста( У меня есть Delphi7 обьясните если можно в скринах, пожайлуста пожайлуста))

[Maxs]

Задачу то надо на делфи, а это

program a;
//-----
begin
writeln(fact(32));{Выводит результат на экран}
end;

надо убрать

[DenisWilson]

Сообщение от Maxs

Задачу то надо на делфи, а это

program a;
//-----
begin
writeln(fact(32));{Выводит результат на экран}
end;

надо убрать

Или добавить в начало

{$APPTYPE CONSOLE}

[Maxs]

Полный код проги
File->New->VCL Form Application
тыкаешь 2 раза на форму- событие FormCreate. Появляется вот что:

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

выделяешь, меняешь на

procedure TForm1.FormCreate(Sender: TObject);
var
X:integer;
Y:Real;
begin
X:=StrToInt(InputBox('Введите х:','',''));
Y:=fact(X);
ShowMessage(FloatToStr(Y));
end;

После

implementation

{$R *.dfm}

Надо вставить

Function fact(s:integer):real;
var i:integer;
begin
result:=1;
if not(s<=0) then
for i:=1 to s do result:=result*i;
end;

Все.
Это должно получиться:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Function fact(s:integer):real;
var i:integer;
begin
result:=1;
if not(s<=0) then
for i:=1 to s do result:=result*i;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
X:integer;
Y:Real;
begin
X:=StrToInt(InputBox('Введите х:','',''));
Y:=fact(X);
ShowMessage(FloatToStr(Y));
end;

end.

[DenisWilson]

Макс, а почему функция возвращает значение с типом real?