Pascal

[Csandr]

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

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

[[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]

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

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

[PROGRAMMATOR]

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

[tolik5190]

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

[Ro_0TT]

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

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

[sibling]

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

[tolik5190]

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

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