Помощь - Поиск - Пользователи - Календарь
Полная версия: наличие буквы из файла в множестве
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Alucard
14.05.2009 1:59
Дан файл из латинских букв, описать процедуру 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.
Lapp
14.05.2009 10:44
Цитата(Alucard @ 13.05.2009 22:59) *
описать процедуру print(A), печатающую в алфавитном порядке все элементы множества А (SET OF 'a'..'z')
Примерно так:
for c:='a' to 'z' do if c in A then Write(c);

Ozzя
14.05.2009 12:01
{ Дан файл из латинских букв }
{ qwertyuiopasdfghjklzxcvbnm }

program laba11;
uses    crt;
const
  filename='text.txt';
type
  mnozh = set of char;
var
  a : mnozh;
  q : char;
  f : file of char; {Дан файл из латинских букв}
Procedure Print (b: mnozh);
var
  c : char;
begin
  for c:='a' to 'z' do
    if c in b then
      Write(c);
end;

begin
  clrscr;
  a:=[];
  assign(f,filename);
  ReSet(f);
  while not eof(f) do
    begin
       read(f,q); 
       {сюда можно вставить проверку на вхождение во множество (защиту от дурака)}
       include(a,q);
    end;
  print(a);
  readln;
  Close(f);
end.
Alucard
17.05.2009 22:57
Lapp, Ozzя
Спасибо). Не ожидал чесно весь код увидеть
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.