SHPORA.net :: PDA

[ Back ]

procedure TForm1.Button23Click(Sender: TObject);

begin

if Edit1.Text<>'' then begin если Эдит1 не пустое

z:=strtoint(Edit1.Text); Zприсваиваем из строковой в численную (Эдит1.текст)

x:=1; x присваиваем значение 1

for y:=1 to z do x:=x*y; для y присваиваем значение от 1 до введённого в Эдит числа и выполняем действие x:=x*y

Edit1.Text:=inttostr(x); переводим из численной в строковою и записываем в Эдит1

end else

ShowMessage('введите значение'); если ничего ранее не выполнялось выводится сообщение

end;