Паскаль. Задачи на строки
"Задан строковый массив. Каждая строка содержит информацию о сотруднике фирмы и имеет след структуру: фамилия пол з/п должность.
Вывести в алфавитном порядке всех мужчин, з/п которых выше средней." Я вот написал пока что процедуры ввода/вывода и процедуру сортировки мужчин. Теперь, как мне сказали, нужно написать функцию выделения из строки з/п. Затем нужно как-то применять эту функцию к всему массиву и выбирать те, что больше средней.. Помогите, пожалуйста, написать эти функции. Вот, что я пока что сделал: Код:
Program ZP; |
Цитата:
Код:
Program ZP; |
Цитата:
|
Цитата:
|
Часть задачи, видимо в ней нужно реализовать несколько подпрограмм:
Дана информация по жителям N городов в таком виде: Фамилия Имя год рождения пол. Для тех из них, у которых средний возраст жителя не более Q(задается с клавиат.) упорядочить жителей в порядке убывания возрастов. Помогите пожалуйста. |
Citrus, а самостоятельно? Тем более, что задача аналогична предыдущей, только проще. Во всяком случае, тут не указано, что информация забита в строки, поэтому можно ее расположить в виде отдельных массивов, а лучше полей массива записей. А в остальном - всё то же.
|
Цитата:
так вот я и запутался в написании этой подпрограммы в том, что какой массив объявлять в локальных переменных.. Мысли таковы: из каждой строки (фамилия имя г.р. пол) вытащить г.д. в новый массив и уже там дальше искать средний возраст и упорядовачивать. Тогда получается, что вводить в подпрограмму нужно какой-то из массивов, а выводом будет массив, содержащий г.р. всех жителей. Вот не пойму, что и как объявить тогда Код:
Procedure KM (Var x:MAS; s:MAS; N:byte); |
Прекрасно, продолжайте. Вот Вы используете команды Delete (еще можно Insert), а я их никогда не употреблял и потому намертво про них забыл. Действительно, с ними можно и без файла обойтись. А вы пробуйте, ищите, пишите маленькие программки-фрагменты - только так и научитесь. А желание, как я вижу, у Вас есть, и это главное. И не надо при малейшем затруднении бежать на форумы "ой, не получается!" да "ах, запутался!". Смелее - у Вас всё получится. Удачи!
|
Часовой пояс GMT +4, время: 23:11. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.