Draconit
Новичок
|
    
Ясно, а 2 восклицательных знака что обозначают?
|
Всего сообщений: 27 | Присоединился: март 2006 | Отправлено: 4 апр. 2006 15:22 | IP
|
|
KMA 
Долгожитель
|
 
Значит факториал факториала... Ну как тебе объяснить... Смотри например 3!!=(1*2*3)!=6!=(1*2*3*4*5*6)!=36*5*4=720. Вот...
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 4 апр. 2006 23:33 | IP
|
|
Draconit
Новичок
|
кошмар
|
Всего сообщений: 27 | Присоединился: март 2006 | Отправлено: 5 апр. 2006 7:36 | IP
|
|
Draconit
Новичок
|
Это задача с факториалами так чтоли решается:
Var i,n:integer;
a:real;
Begin
Writeln('Vvedite n');
Readln(n);
a:=1;
for i:=1 to n do
if i mod 2 <> 0 then
a:=a*i;
Writeln('Otvet ',a:2:1);
Readln;
End.
|
Всего сообщений: 27 | Присоединился: март 2006 | Отправлено: 5 апр. 2006 8:26 | IP
|
|
Draconit
Новичок
|
И ещё одна задачка:
Пользователь вводит последовательно с клавиатуры десять целых чисел (разнообразных по знаку). Пусть в ряде имеются максимальный среди четных и максимальный среди нечетных его элементов. Вывести значение максимального элемента среди четных.
Вот какую к ней программу я составил:
Var a,i,max:integer;
Begin
for i:=1 to 10 do
begin
writeln('Input ',i:2,'th number: ');
readln(a);
if (a mod 2 = 0) then
begin
max:=a;
end
else
if (a>max) then
begin
max:=a;
end;
Readln;
end;
Writeln(max);
end.
Но мне что-то не нравится как она работает, не подскажите где ошибка?
|
Всего сообщений: 27 | Присоединился: март 2006 | Отправлено: 5 апр. 2006 8:28 | IP
|
|
VF
Administrator
|
Цитата: Draconit написал 5 апр. 2006 10:28
Вывести значение максимального элемента среди четных.
...
Но мне что-то не нравится как она работает, не подскажите где ошибка?
else работает для нечетных. Зачем они тебе вообще нужны?
А max всегда принимает значение последнего четного числа 
|
Всего сообщений: 3110 | Присоединился: май 2002 | Отправлено: 5 апр. 2006 8:38 | IP
|
|
miss_graffiti
Долгожитель
|
С факториалами - странная задача.
Факториал и так очень быстро растет, а двойной... Это ж никакого типа данных не хватит!
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 5 апр. 2006 9:34 | IP
|
|
KMA
Долгожитель
|
Интересный ты человек Draconit вначале спрашиваешь четное ли это чилсло, и если четное, то присваиваешь значение максимума, если нечетное, то сравниваешь максимальное четное, с текущим нечетным... Супер...
Тут дело более простое...
for i:=1 to 10 do
begin
write ('Enter number->');
readLn (a);
if a mod 2=0
then if a>max
then max:=a
end;
Вот что-то типа этого...
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 5 апр. 2006 19:41 | IP
|
|
Guest
Новичок
|
скажите пожалуйста,где можно скачать сам турбо паскаль????
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 5 апр. 2006 21:07 | IP
|
|
KITKAT
Удален
|
У КОГО-НИБУДЬ ЕСТЬ ПОЛНЫЙ ЛИСТИНГ ПО ПРОГРАМКЕ "РЕШЕТО ЭРАТОСФЕНА"?
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 9 апр. 2006 16:00 | IP
|
|
Форум
Турбо Паскаль. Программирование на Pascal
