Pascal - Форум администраторов игровых серверов
Форум администраторов игровых серверов StormWall - Защита от DDos атак
Регистрация Мнения Справка Пользователи Календарь Все разделы прочитаны
Вернуться   Форум администраторов игровых серверов > Полезное / Common > Программирование / Programming

Программирование / Programming
Ищете помощи в написании программы, есть сложность в выполнении задания (в институте и т.д.), пожалуйста, спросите у нас в данном форуме и мы обязательно вам поможем.

Ответ
Опции темы
Непрочитано 21.02.2011, 21:22   #1
Аватар для Csandr
Участник

Автор темы (Топик Стартер) Pascal

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

Заранее спасибо.
Csandr вне форума Отправить сообщение для Csandr с помощью Skype™ Ответить с цитированием
Непрочитано 21.02.2011, 21:41   #2
Аватар для [STIGMATED]
Супергерой

По умолчанию Re: Pascal

Код:
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.
__________________
Web программист\разработчик

— Есть только один способ проделать большую работу — полюбить ее. Если вы к этому не пришли, подождите. Не беритесь за дело.
[STIGMATED] вне форума Отправить сообщение для [STIGMATED] с помощью Skype™ Ответить с цитированием
Сказали спасибо:
Непрочитано 24.02.2011, 14:35   #3
Пользователь

По умолчанию Re: Pascal

кто-то еще пользуется паскалем?
tolik5190 вне форума Отправить сообщение для tolik5190 с помощью ICQ Ответить с цитированием
Непрочитано 24.02.2011, 15:41   #4
Аватар для weTr1k
Пользователь

По умолчанию Re: Pascal

Есть малость)
weTr1k вне форума Отправить сообщение для weTr1k с помощью ICQ Отправить сообщение для weTr1k с помощью Skype™ Ответить с цитированием
Непрочитано 24.02.2011, 16:00   #5
Пользователь

Post Re: Pascal

Цитата:
Сообщение от tolik5190 Посмотреть сообщение
кто-то еще пользуется паскалем?
только деревенщина.

Последний раз редактировалось sibling; 24.02.2011 в 16:16. Причина: С++ Java Delphy
sibling вне форума Ответить с цитированием
Непрочитано 24.02.2011, 16:22   #6
Аватар для PROGRAMMATOR
Администратор

По умолчанию Re: Pascal

Так в учебных заведениях преподаватели других языков не знают.
__________________
composer require laravel/framework
yarn add vue
PROGRAMMATOR вне форума Отправить сообщение для PROGRAMMATOR с помощью ICQ Отправить сообщение для PROGRAMMATOR с помощью Skype™ Ответить с цитированием
Непрочитано 24.02.2011, 16:35   #7
Пользователь

По умолчанию Re: Pascal

почему же) нас на 3 курсе учили лиспу еще
tolik5190 вне форума Отправить сообщение для tolik5190 с помощью ICQ Ответить с цитированием
Непрочитано 24.02.2011, 19:21   #8
Аватар для Ro_0TT
Супергерой

По умолчанию Re: Pascal

Цитата:
Сообщение от PROGRAMMATOR Посмотреть сообщение
Так в учебных заведениях преподаватели других языков не знают.
Куда хуже: они не знаю по языкам, которые преподают - ответвлений от плана преподавания. Не был знаком в реале с преподами, которые углубленно знали язык, который преподают ... Хотя не мудрено на первом курсе . Дай бог на 3-5 курсе все будет иначе .
Ro_0TT вне форума Отправить сообщение для Ro_0TT с помощью ICQ Отправить сообщение для Ro_0TT с помощью Skype™ Ответить с цитированием
Непрочитано 24.02.2011, 19:30   #9
Пользователь

По умолчанию Re: Pascal

на втором курсе с++, c#, с builder, basic (куда же без него), архитектура, autocad, этого мало?
sibling вне форума Ответить с цитированием
Непрочитано 24.02.2011, 19:52   #10
Пользователь

По умолчанию Re: Pascal

Цитата:
Сообщение от Ro0TT Посмотреть сообщение
Куда хуже: они не знаю по языкам, которые преподают - ответвлений от плана преподавания. Не был знаком в реале с преподами, которые углубленно знали язык, который преподают ... Хотя не мудрено на первом курсе . Дай бог на 3-5 курсе все будет иначе .
у меня проработки вела девушка, в программировании ноль, но она настойчиво минут 15 насиловала программу и в результате что-то да зависало любая прога
tolik5190 вне форума Отправить сообщение для tolik5190 с помощью ICQ Ответить с цитированием
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


© 2007–2024 «Форум администраторов игровых серверов»
Защита сайта от DDoS атак — StormWall
Работает на Булке неизвестной версии с переводом от zCarot
Текущее время: 10:39. Часовой пояс GMT +3.

Вверх