Удаление согласных из текста и Построение записи по образцу., Turbo Pascal 7.0 Опции

[SergSIS]

Извините за частоту вопросов, но через два дня экзамен. Выручайте.
1. Задача: Задан текст из маленьких латинских букв, в конце точка. Напечатать в алфавитном порядке все согласные буквы, которые не входят ни в одно слово, с использованием процедуры.

Представил следующее решение, но препод говорит, что неправильно. Якобы нигде не использован символ '.', т.е. текст типа mama.papa. Проверил, и с этим текстом работает. Немогу понять. Может я не так условие задачи понял? Как исправить?

2.Задача: Задано число Р. Построить запись типа:
type chisco=record
поле1-число;
поле2- двоичное представление;
поле3 - шестнадцатеричное представление;
end;
и напечатать.

Решение ниже. Прошу Вас проверить правильно ли понято мной условие задачи по приведенному решению.
Заранее благодарен, а то мозги уже зацикливаются. А экзамен на носу.

Сообщение отредактировано: SergSIS - 26.05.2006 15:23

[volvo]

Следующая тема с подобным названием будет удалена сразу же...

Здесь название поменяй. Правила для тебя никто не отменял...

P.S. Не изменишь название - эту тему тоже удалю. Хватит уже. Почему КТО-ТО должен все время изменять названия ЗА КОГО-ТО другого?

[SergSIS]

Помогите разобратся, пожалуйста. Время поджимает.

[Malice]

Поставь вместо

readln (s);

Код

repeat
readln (s);
if s[length(s)]<>'.' then writeln ('точку поставь..');
until s[length(s)]='.';

и будет тебе использование точки.