Pascal

[Csandr]

Помогите создать в Pascal такую прогу: Дана строка из английских букв и цифр, каких букв в нём больше - гласных или согласных. Создайте алгоритм и программу которая это определит.

Заранее спасибо.

[[STIGMATED]]

Var 
  st: String;
  j,a,b: Integer;
Begin              
 Write('Введите текст: ');  
 ReadLn(st);
 j:=ord(st[0]);          
  While (j <> 0) Do       
   Begin
    If st[j] in ['a'..'z'] Then
     Begin
      If st[j] in ['a','e','i','o','u'] Then Inc(a) 
       Else Inc(b);
     End;
   Dec(j);
   End;

or

type
   letters = set of char;
var
   vow, cons: letters;
   i: byte;
   f, counter: integer;
   text: string;
 
BEGIN
   vow := ['a', 'e', 'i', 'o', 'u'];
   cons := ['a' .. 'z'] - vow;
   write('Введите текст: '); readln(text);
   counter := 0;
   f := 0;
 
   for i:=1 to length(text) do
   begin
      if text[i] in vow then inc(counter)
      else
         if text[i] in cons then dec(counter)
         else
            if text[i] in ['0' .. '9'] then inc(f);
   end;
 
   if counter = 0 then writeln('Гласных и согласных букв поровну')
   else
      if counter < 0 then writeln ('Согласных букв больше')
      else writeln('Гласных букв больше');
END.

[tolik5190]

кто-то еще пользуется паскалем?

[weTr1k]

Есть малость)

[sibling]

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

кто-то еще пользуется паскалем?

только деревенщина.

[PROGRAMMATOR]

Так в учебных заведениях преподаватели других языков не знают.

[tolik5190]

почему же) нас на 3 курсе учили лиспу еще

[Ro_0TT]

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

Так в учебных заведениях преподаватели других языков не знают.

Куда хуже: они не знаю по языкам, которые преподают - ответвлений от плана преподавания. Не был знаком в реале с преподами, которые углубленно знали язык, который преподают ... Хотя не мудрено на первом курсе . Дай бог на 3-5 курсе все будет иначе .

[sibling]

на втором курсе с++, c#, с builder, basic (куда же без него), архитектура, autocad, этого мало?

[tolik5190]

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

Куда хуже: они не знаю по языкам, которые преподают - ответвлений от плана преподавания. Не был знаком в реале с преподами, которые углубленно знали язык, который преподают ... Хотя не мудрено на первом курсе . Дай бог на 3-5 курсе все будет иначе .

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