Множества

[SVing]

Ребята, как это делать? ваще не втыкаю,помогите пожалуйсто


Составить программу, присваивающую некоторой переменной значение «истина», если букв латинского алфавита во введенном тексте больше строчных гласных букв русского алфавита и значение «ложь» в противном случае. Подсчитать количество цифр.
Напечатать выдать исходный текст, значение логической переменной и количество цифр.

[Poma][a]

ваще не втыкаю

в разделе const опишем константу LLL = 'a'..'z' {интересно в константе так можно... потом попробую; LLL = LittleLatinLetters; если нельзя (см выше) то или пишешь все букафки ручками или потом будешь проверять по ASCII коду}
Тамже опишем и LVR = 'a','е', 'ё'...'я' {LittleVowelsRussian; и здесь точно ручками};
и снова тамже NUM = '0' ..'9' {честно не помню где стоит 0 после 9 или пере 1}
ну потом сама программа

цикл for от 1 до Length(s) поехали
               если s[i] in LLL тогда
                         l := l+1
               иначе если s[i] in LVR тогда
                         r := r+1
               иначе если s[i] in NUM тогда
                         n := n + 1;
конец
      
если l > r тогда
          result := TRUE
else
          result := FALSE;
 
Выводим (s, ' ', result, ' ', n )

З.Ы. не забудь про инициализировать переменные

[SVing]

так ,значит я описываю это всё это ,потом вбиваю то что ты написал и вывод?

[Poma][a]

угу
10 букаф

[SVing]

) Спасибо) буду ломать систему)

[SVing]

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

[Hacker19_90]

что лучше через массив не писать

а вы какие массивы имеете ввиду?

[SVing]

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

а вы какие массивы имеете ввиду?

ой тьфу ,точно ,уже совсем не замечаю , это сегодня начал через массив другую писать ,так сказала не то. а как эту сделать?

[Poma][a]

const
     LLL = ['a'..'z'];
     LVR = ['ё', 'у', 'е', 'ы', 'а', 'о', 'э', 'я', 'и', 'ю'];
     NUM = ['0'..'9'];

var
   s : string;
   l, r, n, i : Integer;
   result : Boolean;

begin
     ReadLn (s);

     l := 0;
     r := 0;
     l := 0;
     for i := 1 to Length(s) do begin
         if s[i] in LLL then
              Inc (l)
         else if s[i] in LVR then
              Inc (r)
         else if s[i] in NUM then
              Inc (n);
     end;

     if l > r then
        result := TRUE
     else
        result := FALSE;

     WriteLn (s, ' ', result, ' ', n)
end.

[Hacker19_90]

 LVR = ['с', 'Ґ', 'л', '*', '®', 'н', 'п', 'Ё', 'о'];

не понял, Это что?