IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> наличие буквы из файла в множестве
Alucard
сообщение 13.05.2009 21:59
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Мужской
Реальное имя: Влад

Репутация: -  0  +


Дан файл из латинских букв, описать процедуру print(A), печатающую в алфавитном порядке все элементы множества А (SET OF 'a'..'z')

сижу пол-сонный, нифига не соображаю уже. КОд вроде начал. Помогите советом или строчкой, проснусь доделывать буду

На данный момент не знаю как заставить проверять фаил в алфавитном порядке

Код
program laba11;
uses    crt;
const   filename='c:\text.txt';
var     a:set of char;
        i,n:integer;
        poz:byte;
        f:text;
        temp,ln:string[80];

begin
     clrscr;
     a:=['a'..'z'];
     assign(f,filename);
     while not eof do
       begin
         append(f);
         for i:=1 to length(ln) do readln(f,ln);
         if  ln[i] in a then
           begin
             poz:=pos(ln[i],ln);

     writeln;
     readln;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 11:51
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"