помогите пожалуйста дописать задачу в Pascal

[mishammm]

Сама задача:
Напечатать в алфавитном порядке все маленькие русские буквы, которые входят в даный текст из 200 букв. (препод сказала в задаче мы работаем с символами (char)
я так думаю. этот код просто догадка:

var 
i:integer;
ch:char
stroka:string;
 type
      ch=('а', 'б', 'в' ) // и так далее до последней буквы алфавита.
begin
Writeln('VVedi elementi ');
Readln(stoka)
For i:=1 to 200 do
If stroka(i) in ch then
writeln(stroka(i))

...
это только догадка. помогите плиз

[ZX Spectrum-128]

Не забудьте, что в алфавитном порядке. И ошибки нужно исправить.

[mishammm]

подскажите плиз какие, сейчас попробую методом пузырька еще

const 
m=200;
var 
   stroka:array[1..m] of char;
k,j,i:integer;
ch:char
type
ch=('а', 'б', 'в' ) // и так далее до последней буквы алфавита.
begin
Writeln('VVedi elementi ');
Readln(stroka[i])
If stroka[i] > = 'a' and stroka[i] <= 'z' then 
write(stroka[i]);
For i:=1 to m-1 do
For j:=1 to m-i do
If stroka[j] > strokap[j+1] then begin
k:=stroka[j];
stroka[j]:=stroka[j+1];
stroka[j+1]:=k;
end;

вот как исправляю. я на правильному пути?

[Poma][a]

подскажите плиз какие, сейчас попробую методом пузырька еще

Не нужен тут пузырек..

type
      ch=('а', 'б', 'в' ) // и так далее до последней буквы алфавита.
begin
Writeln('VVedi elementi ');
Readln(stoka)
For i:=1 to 200 do
If stroka(i) in ch then
writeln(stroka(i))

А Вы знаете о существовании справки?
1) Type описывается перед var
2) in используется для множеств..
3) А если длина строки = 1? Вы выйдете за пределы.. А если 250? Тогда Вы не обработаете всю строку..

вот как исправляю. я на правильному пути?

Неа...

begin
    ReadLn (s);
    for ch := 'a' to 'z' do 
          if (Pos (ch, s) <> 0) or (Pos (UpCase(ch), s) <> 0)  then WriteLn (ch)
end.

Или так :

for i := 'a' to 'z' do
    for j := 1 to Length(s) do
           if (i = s[i]) or (UpCase (i) = s[i]) then begin
                       WriteLn (i); Break 
           end;

Или так :
a : array ['A'..'Z'] of Integer;

for i ;= 1 to Length(s) do
      Inc (UpCase(a[i]));

for ch := 'A' to 'Z' do
      if a[ch] > 0 then
            WriteLn (ch)

Не забываем инициализировать..

[mishammm]

вот так вишло:
var
i:integer;
ch:char;
stroka:string;
begin
Writeln('VVedi elementi ');
Readln(stroka);
For ch:= 'a' to 'я' do
If (Pos (ch,stroka) <> 0) or (pos(upcase(ch),stroka) <> 0) then
Writeln(ch);
end.
но в результате иероглифы (

[ZX Spectrum-128]

Посмотрите результат выполнения. FPC
Как можно видеть, программа пропускает заглавные русские буквы.
стандартный upcase не работает для кириллицы
Вы работаете в Турбо Паскале? "Иероглифы" в нем выводятся.

[Poma][a]

Посмотрите результат выполнения. FPC

Программа НЕ может выводить Л.. что-то странное..
Кстати, уже давно 2.6.2. есть..

[Stilet]

что-то странное..

Ниче странного:

or (pos(upcase(ch),stroka) <> 0)

Это нужно убрать.

[Poma][a]

Ниче странного:

Разговор не про это..
Идет строка "Лучшим доктором ..."
После этого идет 'Л'..
Хотя, оно НЕ МОЖЕТ там быть..

стандартный upcase не работает для кириллицы

Да.. мой косяк..

[ZX Spectrum-128]

Сообщение от Poma][a

Кстати, уже давно 2.6.2. есть..

О спасибо. Давно не заглядывал к ним. Сейчас качну. Lazarus тоже меняли? 1.0 у меня