Страница 1 из 1
Задача по Турбо паскаль,записи
Добавлено: 21 дек 2008, 19:19
ReleRool
Помогите пожалуйста кто может...
Сформировать массив записей, описывающих следующую таблицу:
Код: Выделить всё
--------------------------------------------------------------
Ф.И.О. !Возраст!Рост !Образование !Есть ли дети !Занимаемая жи-
женщи- ! ! ! ! (да/нет) !лая площадь
ны ! ! ! ! !
---------------------------------------------------------------
Вывести фамилии женщин не старше 35 лет, бездетных и с высшим
образованием, по форме:
Код: Выделить всё
----------------------------------------------
Ф.И.О. ! Занимаемая жилая площадь !
----------------------------------------------
Re: Задача по Турбо паскаль,записи
Добавлено: 21 дек 2008, 22:38
Naeel Maqsudov
Тема отделена
Re: Задача по Турбо паскаль,записи
Добавлено: 21 дек 2008, 23:26
ReleRool
Naeel Maqsudov писал(а):Тема отделена
как отделена?
Re: Задача по Турбо паскаль,записи
Добавлено: 22 дек 2008, 00:27
Хыиуду
type twoman=record
fio, education: string;
height, age: byte;
children: boolean;
square: real;
end;
var a: array[1..100] of twoman;
begin
//Тут этот массив как-то заполняется
for i:=1 to 100 do
if (a.age<35) and (a.education='High') and (not a.children) then
writeln (a.fio, ' ', a.square);
Re: Задача по Турбо паскаль,записи
Добавлено: 23 дек 2008, 21:28
ReleRool
Спасибо большое..может и с этой кто поможет?...ато военкомат сделает свое дело...
Дан массив из n слов пpоизвольной длины ,но не пpевышающих
80 символов.
Элементами слов могут быть любые гpафические символы.
В слове наименьшей длины удалить все гласные буквы и
подсчитать их количество в этом слове.
Re: Задача по Турбо паскаль,записи
Добавлено: 25 дек 2008, 01:04
Хыиуду
Пройтись по массиву, найти кратчайшее слово (функция нахождения минимума/максимума - в разделе "Алгоритмы")
Пройтись по этому слову, посмотреть: если буква гласная - удалить. Рекомендую сделать строку из всех гласных букв и проверять, есть ли в ней очередной символ слова.