Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.06.2009, 11:32   #11
lerochka
Пользователь
 
Регистрация: 13.06.2009
Сообщений: 16
По умолчанию

Слушай а отчет по ней можешь написать? Это последняя просьбочка))) Ну как вообще че делалось по путно в етой програмульке) И дай мне свою асечку)
lerochka вне форума Ответить с цитированием
Старый 16.06.2009, 11:33   #12
Alco
Новичок
Джуниор
 
Регистрация: 16.06.2009
Сообщений: 14
По умолчанию

не, на отчеты и асечки времени нет
Alco вне форума Ответить с цитированием
Старый 16.06.2009, 11:34   #13
lerochka
Пользователь
 
Регистрация: 13.06.2009
Сообщений: 16
По умолчанию

Кто отчет сможет написать по ней??? Пожайлуста откликнитесь....
lerochka вне форума Ответить с цитированием
Старый 16.06.2009, 11:57   #14
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
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.
этого хватит?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.06.2009, 12:13   #15
lerochka
Пользователь
 
Регистрация: 13.06.2009
Сообщений: 16
По умолчанию

Врятли подробней бы((
lerochka вне форума Ответить с цитированием
Старый 16.06.2009, 12:16   #16
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
подробней бы
Тогда только книги и методички.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц