|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
19.06.2012, 20:01 | #1 (permalink) |
Новичок
Регистрация: 19.06.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачи, можно на Паскале или Делфи
Дан целочисленный массив из 30 элементов,все элементы которого - неотрицательные числа,не превосходящие 10000.Написать алгоритм,который находит и выводит минимальное трехзначное число,записанное в этом массиве.Если таких чисел нет,нужно вывести сообщение "Таких чисел нет". Задача 2. Требуется написать программу,которая решает неравенство x-a/bx > 0,где a и b не равны 0. а)Приведите примеры таких чисел a,b,x при которых программа неверно решает поставленную задачу. б)Укажите,как нужно доработать программу,чтобы не было случаев её неправильной работы(можно указать любой способ доработки программы). Задача 3. Школьная олимпиада по информатике проводилась для учеников 7-11-х классов,участвующих в общем конкурсе.Каждый участник олимпиады мог набрать от 0 до 70 баллов.Для определения призёров олимпиады сначала отбираются 25% участников,показавшие лучшие результаты.Если у последнего участника,входящего в 25% оказывается такое же количество баллов,как и у следующих за ним в итоговой таблице,все они считаются призёрами только тогда,когда набранные ими баллы больше половины максимально возможных;иначе все они не считаются призёрами. Напишите эффективную по времени работы и по используемой памяти программу,которая по результатам олимпиады будет определять минимальный бал призёров олимпиады,и количество призёров в каждой параллели (среди 7-х,8-х,9-х,10-х и 11-х классов отдельно). Гарантируется,что хотя бы одного призёра по указанным правилам определить можно.На вход программе сначала подаётся число участников олимпиады N.В каждой из следующих N строк находится результат одного из участников олимпиады в следующем формате: <Фамилия><Имя><Класс><Баллы> где <Фамилия> - строка,состоящая не более,чем из 30 символов,<Имя> - строка,состоящая не более,чем из 15 символов,<класс> - число от 7 до 11,<баллы> - целое число от 0 до 70 набранных участником баллов. <Фамилия> и <Имя>,<Имя> и <класс>,а также <класс> и <баллы> разделены одним пробелом.Пример входной строки: Семёнов Сидор 11 66 Программа должна выводить в первой строке минимальный бал призёра,а в следующей - число призёров по всем параллелям отдельно. Пример выходных данных: 63 1 5 8 12 22 P.S.Прошу помочь решить до 20.06.2012 до 9.00 утра. Если что,то могу закинуть денег на вебмани,тому кто поможет. |
19.06.2012, 20:01 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вот вам список тем, которые очень напоминаю вашу Помогите, пожалуйста, решить задачи в Паскале Помогите решить две задачи на Паскале Помогите решить задачи в Паскале, пожалуйста Помогите решить четыре задачи в Паскале Помогите решить две задачи в турбо паскале |
19.06.2012, 20:36 | #3 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Выражение "помочь решить" означает, что вы уже пытались что-то сделать сами, но у вас ничего не получилось. Выкладывайте ваши наработки - тогда вам действительно помогут решить.
|
19.06.2012, 20:52 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Вообще-то сдается мне, что задачки похожи на олимпиадные, а в таком случае обращаться на форум - вообще жульство. Впрочем, что касается первой, то тут вроде ничего ни сложного, ни даже интересного. Как-то так:
Код:
Var V:Array[1..30] of Word; M3:Word; i:Byte; Begin M3:=1000; Randomize; For i:=1 to 30 do begin V[i]:=Random(10001); Write(V[i]:8); If (V[i]<M3) and (V[i]>99) then M3:=V[i]; end; Writeln; Writeln; If M3=1000 then Writeln('No such element!') else Writeln('Minimal three fugures is ',M3); Readln End. Цитата:
x-a/(bx)>0 или x-(a/b)x>0? Но это ладно, а вот дальше - "всё страньше и страньше". То есть требуется написать заведомо неверную программу, потом показать, почему это лажа (т.е. самого [саму] себя высечь), дальше изыскать способ "доработки" программы? Извините - полный, стопроцентный, абсолютный бред! Ну, а за третью вряд ли кто-то возьмется - там только с системой разобраться полночи надо. |
|
19.06.2012, 21:30 | #5 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Вторая задача - нормальная такая, формулировка расчитана на то, что студенты вообще не знают математику.
А третья - тупо вычисления, анализ, снова вычисления и так по кругу. Вы правы, задачи очень похожи на олимпиадные, для чистоты соревнований я предлагаю тему прикрыть до 9 утра, дальше видно будет. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
20.06.2012, 10:44 | #6 (permalink) |
Новичок
Регистрация: 19.06.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вообще,это задачи ЕГЭ уровня С,препод всем раздал типа таких задач,к зачёту надо решить,я просто поздно спохватился.Насчёт 2 задачи времени не было написать так,как надо,извините если непонятно.А "прошу помочь" не означает,что я пытался решать,я просто не ходил на программирование.
Vladimir S - спасибо за задачку.Пиши номер кошелька,только рублёвого,50 руб кину. Задача 2. Требовалось написать программу,которая решает неравенство x-a/(bx)>0 относительно х для всех ненулевых действительных чисел a и b не равны 0,введенных с клавиатуры.Программист сделал в программе ошибки. var a,b,x:real; begin readln(a,b,x); if b > 0 then write ('x > 0 ',a,'или x > 0') else if a > 0 then write ('0 < x < ',a) else write (a, ' < x < 0'); end. Последовательно выполните три задания: 1.Привидите примеры таких чисел a,b,x при которых программа неверно решает поставленную задачу. 2.Укажите, какая часть программы является лишней? 3.Укажите,как нужно доработать программу,чтобы не было случаев её неаправильной работы(можно указать любой способ доработки исходной программы). Время есть до 11.30,позже уже нету смысла решать,но если мне не поставят зачёт,то может будет смысл. |
20.06.2012, 13:12 | #7 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Решения задач уровня С подробно разобраны на сайте профессора Полякова, эта задача там тоже есть.
|
20.06.2012, 14:39 | #8 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Нет, кто бы меня удержал от потока ненормативной лексики в адрес лоботрясов, которые не могут даже выложить условия задач как следует? Похоже, кроме меня самого, некому. Ну что же, попробую. Не, ну правда - я тут, желая помочь человеку, составляю оптимальный алгоритм задачи, исходя из приведенной формулировки: x-a/(bx)>0, что, естественно, приводит к квадратичности и, как следствие, к довольно заковыристому ветвлению. Хорошо, хоть выложить анализ задачи не успел - совсем бы идиотом выглядел. Потому что придя с обеда и пройдя по Лёшиной ссылке, увидел, что условие-то совсем другое: (x-a)/(bx)>0, что, естественно, на порядок проще. Надо думать, у нашего топикстартера ручонки отвалились бы от написания двух скобок. Вот ей-Богу, когда встречаешь подобное наплевательское отношение, пропадает какое-либо желание помогать кому бы то ни было. Чертовы охламоны! |
|
20.06.2012, 15:09 | #9 (permalink) |
Новичок
Регистрация: 19.06.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Да,мы такие криворукие люди,которые ничего не делаем и ничего не хотим,уж простите нас за это.Спасибо всем за ответы.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|