Решение задачек на Turbo Pascal

[WickedW00LF]

Бестушка, спасибо тебе огромное)
На автофоруме залайкаю

[TheBest]

Бестушка, спасибо тебе огромное)
На автофоруме залайкаю

Былоп за што. :)
А спасибы на автофоруме это фигня типа народного контроля. :)

[mamrot]

TheBest, а я их вижу, и они не способны ничего далее делать сами. Минимизировать напряги - это подойти к преподу взять все лабы, сделать за неделю и сдать, отдыхать семестр по этому предмету, получить автомат.
а по поводу задачек, 29 - последняя официальная пересдача, экзамен последний был в районе 22-23 числа. Задачи в основном - для зачета (тем более в таком количестве). Нормальному студенту они 28 числа не могут быть нужны. Можно конечно поверить, что он не получил единственный допуск по программированию/информатике... но что-то не верится.

[TheBest]

mamrot, Я конкретную ситуацию не знаю, поэтому судить не берусь.
Опять же, может в той специальности программирование не профильный предмет или у человека просто оно туговато идёт. Кстати, сложности с предметом могут быть и из-за качества преподавания. ;)

[FreemanNow]

mamrot, добавлю к этому, что задачки то детсадовские, больше времени потрачено на получения ответа на форуме, нежели на то, чтобы самому их решить, а следовательно, нет ни малейшего желания учиться. Нафига помогать таким студентам ?

[mamrot]

TheBest, радует, что данный студент неконкурентоспособен, по сравнению с тобой.

[TheBest]

mamrot, Старый я уже для студенчества.
СФ МЭИ, ВМ-1-96.

[mamrot]

TheBest, так и я о том же. Вроде как выпускники - конкуренты работающим инженерам. Но этот 100% нет :)
П.С. судя по всему заочник, вроде как 92 года. Возможен вариант, что нужна только корочка, не знания.
И все же, по информатике главное - уметь гуглить, и понимать, анализировать найденное, а не тупо на непрофильном форуме просить помощи.

[Azazelius]

mamrot, так ты ему пару вхерачь за списывание с форума... ))) он же, так понимаю, один в один перенесет с форума на бумагу и тебе принесет показывать, вот мол справился )))

[Лесн@я]

я институте всем курсовые по экономике делала, ну и что, ни мне, ни кому из тех кому я их делала не пригодились эти знания, разве только как дополнительная тренировка технического разума
так что не факт, что понадобится этому челу эти знания, а нужны будут-освоит
в этом отношении любили все у нас Селищева, который считал, что если тебе это надо-будешь учить, а нет-сильно не мучал, вернее совсем не мучал
вот я когда-то ТП знала, но за 19 лет его не применения, совсем ничего не помню

[mamrot]

Azazelius, не мой предмет :)
бездельники и разгильдяи четко делятся на 2 группы: первые нагло утверждают, что делал все сам, да взял пример у одногруппника - чтоб знать как делать, но все сам считал (потом доказывают мне, что это эксель плохо считает, когда не сходится с моими расчётами); вторые просто как болото, пока раза 3 не спросишь что-то предпочитают молчать, ближе к дате пздца - умолять поставить оценку. Бесят и те и другие.
На 150 человек встречаются 3-4, которые просто живут весело, потом в последние недели хватают чужие рыбы, приносят кое-как переправленные, после первых же замечаний делают очень хорошо. Ну и плюс -6 человек, кто сам сразу хорошо все делает. Итого 10 человек на поток, которым не тяжело справляться с программой (курсы у меня не спец., общеобразовательные, сильно не жму). Вот такая статистика.

[mamrot]

Лесн@я,

дополнительная тренировка технического разума

если честно - в этом весь смысл образования. Научиться учиться и развить мозг.
По науке часто приходится сталкиваться с решением систем диф.уров и просто нелинейных уравнений. Несмотря на то, что я люблю математику, голова все не удерживает, и я не помню четких алгоритмов их решений, подходов и т.п. Но. Полученного образования (а не знаний), хватает, чтобы БЫСТРО найти нужный источник (книгу, сайт, статью), обоснованно выбрать метод решения, и реализовать его в нужной мне среде. Да я не помню наизусть формулы МНК (когда не преподаю их 1 курсу), но знаю что могу их вывести, это раз, и второе, самое главное, в любой среде, опираясь на учебник или вики, реализовать минут за 20-30 схему расчётов с изменяемыми параметрами. Очень хочется научить студентов именно этому - поворачивать задачу к себе тем боком, в котором ты хорош, и уметь найти и использовать информацию для ее решения. Анализ и синтез, не более, я не заставляю зубрить справочники "объёмов красных шариков".

[barmoglot]

Научиться учиться и развить мозг.

турбо паскалем мозг развивать, не издевайся над студентами. У меня вон на потоке 2 однокурсника компьютер первый раз в жизни в институте уведели, какой им TPascal и VBasic. А сейчас большие люди.
Правда преподаватель тоже так и не поняла, как через динамическую память прога работала, но автоматом все равно мне не поставила.

[Лесн@я]

нам на 5-м курсе Мурзилка комп принес и показывал, что есть такая штука Виндоус, в которой все так интересно и нарисовано, что на крестик нажимаешь и документ превращается в бумажку, которую смяли и бросается в корзину

[TheBest]

OS/2 рулила.

[mamrot]

barmoglot, мне кажется ты не вчера универ закончил.
У меня студенты ноют - интегралы не понимают. Вообще. Простейшие. И не моя забота их обучать интегрированию/дифференцированию. Тоже не мучать? Понять и простить?

[Dejmos]

О, паскаль. Я аж школу вспомнил

[Инженер]

Задача 6

Спойлер

Задача 6.

//
//
//

var
a : array [1..70] of integer; // Массив 70 семей, в каждом элементе количество членов семьи
i : integer = 0;
CountChel : integer = 0; IndMax : integer = 0;



begin
randomize; // инициализируем (включаем) генератор случайных чисел
// Заполняем массив
for i := 1 to 70 do
a := random(9) + 1; // ограничиваем количество членов семьи 10 и отсекаем значение 0. random(9) дает от 0 до 9. С +1 от 1 до 10.

write('Содержимое массива - ');
// Показываем содержимое массива
for i := 1 to 70 do
write(a + ' ');

writeln;

// Находим самую большую семью
// при одинаковом количестве человек наибольшей выбирается семья в следующей квартире
// если при равенстве человек нужно оставлять имеющуюся семью, то сделать if a > CountChel then begin
for i := 1 to 70 do begin
if a >= CountChel then begin
CountChel := a;
IndMax := i;
end;
end;

writeln('Семья с максимальным количеством человек - '+CountChel+' живет в квартире - '+IndMax);
end.

Выполнил код программы, результат получился такой:

Содержимое массива - 1 5 9 1 7 8 6 7 5 4 7 1 4 1 2 2 3 7 8 7 7 6 2 4 8 9 5 9 5 6 2 9 5 7 6 9 6 1 2 2 5 1 2 3 5 1 6 4 8 2 3 1 1 3 2 4 4 5 2 8 4 6 3 8 3 7 6 6 5 2
Семья с максимальным количеством человек - 9 живет в квартире - 36

В коде нужно убрать лишнее, т.к. не выполняется условие поставленной задачи.

[Инженер]

И ещё. С точки зрения понятий, семья не может состоять из 1 человека, это программист также обязан учитывать при составлении кода.

[FreemanNow]

И ещё. С точки зрения понятий, семья не может состоять из 1 человека, это программист также обязан учитывать при составлении кода.

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

[FreemanNow]

Задача 6

....
В коде нужно убрать лишнее, т.к. не выполняется условие поставленной задачи.

кстати, а что именно "не выполняется" ??

[Инженер]

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

Это понятно, хотя не факт, т.к. рандомные значения могут быть "1 1 1 1 ... 1".

кстати, а что именно "не выполняется" ??

Нужно найти номер квартиры, где живёт максимальное количество членов семьи. В результате вывода данного кода, отброшены 4 квартиры, лишь из-за доп.условия в коде программы ("при одинаковом количестве человек наибольшей выбирается семья в следующей квартире"). Это неправильно. Если есть одинаковое кол-во людей, то вывод должен быть множественный, т.е. несколько квартир.

[FreemanNow]

Инженер, из условия задачи этого вовсе не следует, скорей, наоборот, требуется только одно значение. Но, как вариант, можно вывести и все максимальные, только для этого нужно будет не "убрать лишнее" из кода, а наоборот, дополнить его еще одним циклом.

[Инженер]

FreemanNow, представь реальную ситуацию. Закончил человек МЭИ, пошёл работать в АГГС. Там ему дали задание разработать подобный алгоритм, с целью найти в доме самую многочисленную семью, чтобы вручить ей подарок от администрации города. В результате неверного вывода программы, была забыта одна из семей, которая очень обиделась на АГГС и на соседей по дому и подала многомиллионый иск, с целью восстановить справедливость. Вот такие вот пирожки

[FreemanNow]

Инженер, ты считаешь эту ситуацию реальной ??? И какие же шансы этот иск выиграть ?

Но это все лирика. Виноват будет не программист, а постановщик задачи которая в этом случае должна была быть сформулирована как "вывести все номера квартир с максимальным количеством жильцов" и никак иначе )

[Инженер]

Про реальную ситуацию я пошутил, хотя всякое бывает

А задача должна выполняться либо с поставленным условием, либо не выполняться вовсе. Неверный (в том числе неполный) результат недопустим.

[Storm]

А задача должна выполняться либо с поставленным условием, либо не выполняться вовсе. Неверный (в том числе неполный) результат недопустим.

Не, тут нужно внимательно читать задание. Номер квартиры, а не номера квартир. Т.е. решение - любой из номеров с наибольшим числом, причем он не обязательно повторяется при одинаковых начальных условиях.
Ты мне скажи лучше, почему специальное поле не вводишь "семья" с уникальным индентификатором для одной семьи. А то в твоем конкурсе приз получат 40 прописанных таджиков :)

[TheBest]

Инженер, Старшекурсник или преподаёшь? :)
Задачи идеологически просты, на тему "массивы". К чему придумывать ненужное и впихивать невпихуемое?
Если ничего не поменялось, то это для первого курса Энергета, возможно для заочника. Так что вариант решения прекрасно подойдёт.
Иначе я бы 100500 раз вернул эту задачу постановщику задачи. В конце концов, нужно же учесть процентное отношение семей с 2 членами к семьям с 9 членами.
Только вот в Смоленском регионе или среднее по стране? За какой год? Выше 5 человек уведомлять государственные органы, вдруг в квартире гастарбайтеры-нелегалы.

[mamrot]

TheBest, на самом деле было б интересно препода потроллить, вернуть задачу с формулировкой ТЗ некорректно мало преподователей, кто оценит шутку юмора и подправит условие

[TheBest]

mamrot, В мою бытность на кафедре ВТ мне на таких преподавателей везло. :)