Общие вопросы программирования, алгоритмы и т.п.
Модератор: Модераторы
manas_anarov » 21.02.2014 20:07:35
Третья задача отсюда
http://allmatematika.ru/page.php?25.0, эту задачу я уже решил, но хочу увидеть вариант решения лучше моего.
- Код: Выделить всё
procedure TForm1.Button2Click(Sender: TObject);
var
k:integer;
z:integer;
n:integer;
c:integer;
d:integer;
a:real;
begin
z:=1;
n:=3;
c:=20;
d:=20;
for k:=2 to n do
begin
c:=c-1;
z:=z*d*(c);
d:=1;
end;
a:=z;
a:=a/6;
ShowMessage('Example_3='+FloatToStr(a));
end;
-
manas_anarov
- новенький
-
- Сообщения: 26
- Зарегистрирован: 13.12.2013 20:56:59
Padre_Mortius » 22.02.2014 16:39:51
manas_anarov, дабы проверить ваш алгоритм внесите в него небольшое изменение (увеличьте количество дежурных до 4-х (изменением только одной переменной N)) и проверьте как отработает ваш алгоритм. Сразу увидите ошибку.
-
Padre_Mortius
- энтузиаст
-
- Сообщения: 1265
- Зарегистрирован: 29.05.2007 17:38:07
- Откуда: Спб
Вернуться в Общее
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 23