Проект «Факториал числа»
Постановка задачи. Создать проект «Факториал числа», реализующий вычисление факториала заданного числа.
Схема выполнения
Создать новый проект. Разместить на форме:
Вести код событийной процедуры:
Var
lngN:longint;
lngF:longint;
lngI:longint;
procedure TForm1.Button1Click(Sender: TObject);
begin
lngN := StrToInt(EditN.Text);
lngF := 1;
For lngI := 1 To lngN Do
Begin
lngF := lngF * lngI;
EditF.Text := IntToStr(lngF);
end;
end;
Запустить проект на выполнение. Ввести число. Щелкнуть по кнопке Факториал. В поле будет выведен факториал числа.
Сохранить проект.
Достарыңызбен бөлісу: |
