В алфавитном порядке напечатать все согласные буквы, которые не входят ни в одно слово

[alex_fcsm]

Сообщение от Stilet

А че нет? IN стандартный оператор классического паскаля для проверки вхождения в множество.

там не хватает var, ну да ладно. Stilet у меня не компилится - выдает ошибку 91 перед IN "Expected :=".

[__STDC__]

Сообщение от Shain

но почему у этой задачи всегда выходить один и тот же ответ?Оо

О_О вы не можете readln дописать??!? я не знаю уже.. как так можно..

[Stilet]

alex_fcsm

А-а-а! Все терь понял. НЕ сразу разглядел что автор FOR с IF'ом перепутал

[__STDC__]

Сообщение от Stilet

А-а-а! Все терь понял. НЕ сразу разглядел что автор FOR с IF'ом перепутал

ой.. на тот код лучше вообще не смотреть... я его попробовал скомпилировать... потом просто заново переписал.. не хочется во всем этом разбираться даже)

[Shain]

все)всем спасибо я отладил её))

[darika]

Сообщение от __STDC__

var
	text:string;
	x:set of char;
	i:byte;
	j:char;
begin
	text := 'abcdefghijklmnopqr';
	x := ['a'..'z'] - ['e','y','u','i','o','a'];
	for i:=1 to length(text) do
		if (text[i] in x) then
			x := x - [text[i]];
	for j:='a' to 'z' do
		if (j in x) then
			write(j:2);
end.

Oo

а как сделать это же только через файлы???

var
	f:text;
	i:word;
	j:char;
	st:set of char;

begin
  assign(f,'as.dat'); rewrite(f);
  writeln(f,'Скоро наступит лето');close(f);
  reset(f);
  st:=['к','н','г','ш','щ','з','х','ф','в','п','р','л','д','ж','ч','с','м',
  'т','б'];
  while not eof(f) do begin
                      read(f,j);
                     if j in st then st:=st-j;
                     end;
                    close(f);
                    writeln;
                    writeln(st);
                    end.

только до этого додумалась

[Stilet]

darika

Ну я бы предложил примерно такую стратегию:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var f:text;s:string;k,i:integer;
begin
 assign(f,'c:\temp\q');rewrite(f);write(f,'Вот лето пролетело');close(f);
 reset(f);read(f,s);
 for i:=1 to length(s) do begin  k:=0;
  for k:=i+1 to length(s) do if s[k]=s[i] then delete(s,k,1);
 end;
 close(f);
 write(s);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.