Просьбочка)))

[lerochka]

Мальчики и девочки помогите пожайлуста...
Вот к етому программному коду на Delphi 7 программа работает нужно сделать интерфейс, кто сделает буду очень благодарна...

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.

[Alco]

Какой интерфейс? Все, что можно сделать - поставить Edit и кнопку.

[lerochka]

ну сделай пожайлуста)

[Alco]

сделал, куда выложить?)))

[lerochka]

сюда выложи)

"Вычислить число факториала Y=X!" Проверь етот код написанный по етой задаче?

[Alco]

http://ifolder.ru/12665207

[lerochka]

Слушай а как в exe откомпилировать и вообще заставить работать её?

[Alco]

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

Слушай а как в exe откомпилировать и вообще заставить работать её?

у тебя что, делфи не установлен?)))))

[lerochka]

установлен тока нечего не понятно((( Алко милый пожайлуста откомпилируй и проверь код программы удовлетворяет условие задачи "Вычислить число в факториале Y=X!"

[Alco]

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

установлен тока нечего не понятно((( Алко милый пожайлуста откомпилируй и проверь код программы удовлетворяет условие задачи "Вычислить число в факториале Y=X!"

Открой файл Project1, у которого иконка с семеркой. Нажми F9. Закрой. Появится откомпилированный файл Project1 с желтой молнией. Это exe.
Условию задачи удовлетворяет )