Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Турбо Паскаль. Программирование на Pascal
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]
Модераторы: paradise, KMA
  

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. Вот...

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 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 всегда принимает значение последнего четного числа

Всего сообщений: 3109 | Присоединился: май 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;

Вот что-то типа этого...

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 5 апр. 2006 19:41 | IP
Guest



Новичок

скажите пожалуйста,где можно скачать сам турбо паскаль????

Всего сообщений: Нет | Присоединился: Never | Отправлено: 5 апр. 2006 21:07 | IP
KITKAT


Удален

У КОГО-НИБУДЬ ЕСТЬ ПОЛНЫЙ ЛИСТИНГ ПО ПРОГРАМКЕ "РЕШЕТО ЭРАТОСФЕНА"?

Всего сообщений: N/A | Присоединился: N/A | Отправлено: 9 апр. 2006 16:00 | IP

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]

Форум работает на скрипте © Ikonboard.com