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

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Турбо Паскаль. Программирование на 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
  

VF



Administrator

KMA, можете начать составления FAQ. Он будет опубликован.

Всего сообщений: 3110 | Присоединился: май 2002 | Отправлено: 18 окт. 2006 11:04 | IP
Guest



Новичок

Люди подскажите, как (2 * n)! организовать

Всего сообщений: Нет | Присоединился: Never | Отправлено: 7 нояб. 2006 4:57 | IP
miss_graffiti


Долгожитель

Циклом. Только осторожно с типом данных - в integer мало что влезет... только для маленьких n.

Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 7 нояб. 2006 16:25 | IP
coolusa


Удален

Ребят решите пожалуйста!))а то траблы большие))

даны натуральное n,действительные числа  a1,...,an;b1,...bn.Получить новый массив c1...cn каждый элемент которого равен c1=max(a1,b1).  i=1,2,....n.

пожалуйста вы ведь меня не оставите)))))

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



Долгожитель

Ладно, организуй функцию поиска максимально элемента:

function max (x, y: integer): integer;
Begin
 if x>y
    then max:=x
    else max:=y
End;

Далее запускаешь цикл а в нем:

for j:=1 to n do
 c[j]:=max (a[j], b[j]);

Вот и вся твоя задача.

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



Долгожитель


Люди подскажите, как (2 * n)! организовать


Можно еще красивее, рекурсией... Это так-то стандартный пример, пишем функцию:

function fact (x: byte): longInt;
Begin
   if x>1
     then fact:=fact (x-1)
     else fact:=1
End;

Ну и потом в самой программе, хоть какую величину вводи:

fact (2*n);

Вот, хотя можно и циклом, как угодно, лишь бы работало =)

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


Удален

спасибо4ки)))))))

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


Удален

а массивов 3 создавать!?и что надо вводить на экран......?скажите пожалуйста

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



Долгожитель


а массивов 3 создавать!?и что надо вводить на экран......?скажите пожалуйста


Мда, тяжелый случай Ты сама та понимашь свою задачу?
В общем, побарабану что ты делать будешь, у тебя две последовательности состоящие из n элементов. Как их организовавать будешь, это твоя проблема, я решил пойти путем наименьшего сопротивления и записать их в два массива a и b, так как к ним будет намного проще обращаться. при этом размерность у них у всех одинаковая.

На экране, как можно было бы догадаться, должен быть выведен красиво третий массив, то бишь с, который удовлетворяет собственному условию...

P. S. До чего народ дошел, даже толком не знает что сделать нужно.

OffTopic: Я уже начал потихоньку писать FAQ, вот на внешняя ссылка удалена, при этом темы дублировать на этих двух форумах не надо. По мере появления там запросов на отдельную тему (массивы, записи, строки и т. п.), буду ее оформлять, чтобы человек сразу видел как делают ту или иную вещь, а потом уже сам разбирался с задачей. Есть предложение, просто где-нибудь кинуть ссылочку, что мол смотри Faq там-то и там-то. На худой конец, берите с 9zima, мне не жалко, вещи то общедоступные.    

Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 7 нояб. 2006 23:40 | IP
miss_graffiti


Долгожитель

тогда можно вообще договориться с паскаль.нет.ру
там FAQ уже готовый. но все равно большинство не в состоянии даже прочитать.

Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 8 нояб. 2006 14:53 | 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