забыл паскаль напрочь - а ведь было время!)), пара задачек на массивы Опции

[Ветеран-склеротик]

В годы светлой и безоблачной юности, когда компьютеры были в тысячу раз медленнее - а цветов на мониторе так и вовсе в мильоны раз меньше было - знавал я Паскаль как свои пять пальцев, а то и лучше.
Всякие там ТэЭсЭры мерзопакостные и прочие полезные штуки с пацанами клепали.
Жизнь была впереди и весь мир лежал у наших залитых соса-солой клавиш.

Потом настали крупные да твёрдые окна (как принято было тогда говорить... и как до сих пор некоторым оскомину не набило!?), глобальное зл.. ой, то бишь - глобальная сеть, линухи-подсолнухи и прочие знаковые хреновины нашего глобализованного и глубоко брендированного времени.

Прошли годы.
И попросила меня вчера девчушка милая - ну, мол, ты типа умный, кнопки нажимать умеешь, значит наверняка помочь сможешь. Задачки две, на паскале. Реши, мол, а?
Сами понимаете, дамам не отказывают ;)
Да и почему бы стариной не тряхнуть?

Тряхнул, называется.
Друзья! Я понимаю, что преподавателям надо что-то преподавать, кому-то переучиваться поздно, кому-то влом, кто-то от жизни оторван.. но чтобы настолько!?
Не очень врубаюсь, почему паскаль - и, вернее даже, ТОЛЬКО паскаль!!! - до сих пор требуют в университетах!?
Я ещё понимаю, лет эдак 10 назад, когда винда и инет только набирали обороты.
Но сейчас!? Какая польза от этого практическая?
Понимаю, да, основы программирования, стиля правильного и тд и тп... но... эх!
Зачем это всяким юристам-экономистам?
Лучше уж хмтл-ю учили бы их, ей 6огу, хоть какая-то польза могла бы быть.
А программирование, да без практики - на кой?
Крик души просто вырвался, не могу остановить.
Остаётся надеяться, что это не прочитает любимый в светлые годы (см. выше) тов. Калашников из Физтеха, который меня в своё время на данную тему просвещал... да и вообще никого обидеть не хочу
Просто удивляюсь чуток.

Ну так вот.
Поставил я Паскаль - господи! лет эдак шесть его вообще не видел, не вспоминал. Полчаса пытался освоиться с когда-то родной, а нынче такой непривычной оболочкой.
Признаюсь, так и не удалось :p2:

А уж чтобы написать что-то!!!!!!!!!!!!!
НАРОД! это травма на всю жизнь.
Я, писавший когда-то на паскале чуть ли не лучше всех в своём городе, несколько минут потратил на написание хеллоу ворлд :o

В общем!
Друзья, выручайте, ежели кому не влом будет
Могу отблагодарить - к примеру, на php и тд накатать чего угодно, или ещё как...
После нескольких лет пэхапэ с экшен скриптом милый родимый паскаль уже, боюсь, понять заново не получится .. по крайней мере, это заняло бы много времени.
Ассемблер - и тот вспомнить проще, думаю.
Т.к. он особенный, а тут всё уже перемешалось.

Ладно, даже вот написал это всё - и то полегчало :D
А уж если поможет кто старику-склеротику - и вовсе ...!!!

Так. Вот они, задачки.

---1
Каждая из N компаний предоставила перечень из M машин разных моделей - для их приобретения В ЕДИНСТВЕННОМ (!) экземпляре.
Составить общий перечень необходимых моделей машин с указанием их кол-ва, расположив модели в порядке убывания потребности в них.

---2
Структура записи исходных данных:
{ Код предприятия | Название предприятия | Продукция | Произведено, ед. | Цена (ед.) }

2.1 Дать сведения об общем выпуске конкретного вида продукции (в натуральном выражении) и средней стоимости выпуска одним предприятием.
2.2 Дать сведения об общем выпуске продукции каждого вида продукции и о её средней цене.
2.3 Выдать список предприятий в порядке убывания стоимости произведённой продукции

---

Вот такие вот задачки.
Понимаю, что не на две минуты - но и сложного ничего нет
Что меня сразу убило - это требование компилятора в секии var объявить длину массива :no:
Отвык я от таких дел! Сразу руки опустились.
На php, ясен пень, задача решается на раз плюнуть.
Но на паскале.. эх, ладно, уже повторяюсь. Хватит! ;)

Короче, удачи всем !!!
Если вдруг,... заранее спасибо!!!
Зайду ещё сюда днём да ближе к вечеру.

p.s. надеюсь, никого своим криком души не обидел.. давайте жить дружно и всё такое! просто очень удивился, .. а так, лет 10 назад сам лекции мог читал про это дело, хехе... как говорится, и на старуху, sh*t happens, и так далее