|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.01.2012, 17:02 | #1 |
Новичок
Джуниор
Регистрация: 27.01.2012
Сообщений: 2
|
я ничего из этого не понимаю надеюсь на других (понимающих)
1.Даны натуральное число n,действительные числа b1,b2...,bn.Найти сумму всех членов этой последовательности начиная с первого положительного уменьшенных на 0,5.
2.Даны натуральное число n,целые числа a1,a2,...,an.Найти номер последнего нечетного числа последовательности a1,...,аn,если нечетных членов нет,то ответом должно быть число n+1. 3.Даны натуральное число n,целые числа а1,...,аn.Получить новую последовательность из n целых чисел,заменяя а1 нулями,если а1 все равно max (a1,...,аn) и заменяя а1 единицей в противном случае (1=1,...,n). 4.Даны целые числа а1,...,аn(в этой последовательности могут быть повторяющиеся члены).Выяснить сколько чисел входят в последовательность по одному разу Последний раз редактировалось Жуан; 27.01.2012 в 17:21. Причина: важные дополнения язык программирования паскаль |
27.01.2012, 17:06 | #2 |
Пользователь
Регистрация: 18.12.2009
Сообщений: 13
|
Если актуально, вот мои контакты
kuremap@yandex.ru ICQ: 402435606 |
27.01.2012, 17:08 | #3 |
Санитар
Старожил
Регистрация: 04.10.2008
Сообщений: 2,577
|
язык какой?
|
27.01.2012, 17:11 | #4 |
Новичок
Джуниор
Регистрация: 27.01.2012
Сообщений: 2
|
rrrFer
а какие они бывают язык паскаль и обычный или нет?? |
27.01.2012, 18:26 | #5 |
Форумчанин
Регистрация: 19.03.2010
Сообщений: 409
|
если актуально, пишите в асю
Есть вопросы, пишите в ЛС.
|
27.01.2012, 18:50 | #6 |
Участник клуба
Регистрация: 30.01.2011
Сообщений: 1,578
|
стучи в асю.... быстро и недорого...
пишу код не только за печеньки
|
27.01.2012, 20:01 | #7 |
Новичок
Джуниор
Регистрация: 26.06.2011
Сообщений: 2
|
Напишите на мыло:
loldop@gmail.com скину решение на perl остальных задач решение первой: допустим, так: #просто вывод sub say{ return print(@_,"\n"); } #возвращает номер первого элемента sub ReturnFirst{ my ($condition,$ref) = @_; for (my $i=0; $i<scalar(@$ref); ++$i) { #say $ref->[$i]; return $i if (eval('$ref->[$i]'.$condition)); } } #возвращает сумму элементов массива, начиная с первого положительного sub One{ my @array = @_; $"="\n"; say "at begin: \n". "@_"; #my $count = scalar (@array); my $sum = 0; say "array left: "; map{print; say; $sum+=$_;} splice @array, ReturnFirst(">0",\@array); #say "@array"; return $sum; } #генерирует массив n действительных чисел sub GenRand{ my ($number) = shift; map{rand()-0.5}(1..$number); # R[-0.5,0.5] - равномерное распределение } say "and sum is: ".One(GenRand(10)); |
27.01.2012, 20:04 | #8 |
Регистрация: 20.01.2012
Сообщений: 3
|
Сделаю без проблем.
ICQ:453939604 E-mail:zerg202@yandex.ru |
28.01.2012, 16:39 | #9 |
Босс
Форумчанин
Регистрация: 03.06.2009
Сообщений: 125
|
255507394.
Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются. Ася 255507394. Отзывы здесь. |
28.01.2012, 23:23 | #10 |
В стагнации
Участник клуба
Регистрация: 29.07.2011
Сообщений: 1,303
|
pashaworking@gmail.com
E-mail: pashaworking@gmail.com | ICQ: 479914426 | Skype: moondearr
Понять, чего от тебя требует заказчик – это уже половина всей работы, а иногда и полностью выполненное задание. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не понимаю этого | ubun | JavaScript, Ajax | 1 | 31.12.2011 20:12 |
задача,сама ничего не понимаю на асемблере........... | koshechka91 | Помощь студентам | 0 | 12.12.2011 10:57 |
Ничего не понимаю!!! | sermog | Помощь студентам | 9 | 14.03.2011 12:02 |
Помогите решить!Ничего не понимаю в информатике! | felice | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 03.02.2008 14:54 |