Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.09.2016, 22:47   #1
Gix
Новичок
Джуниор
 
Регистрация: 28.09.2016
Сообщений: 1
По умолчанию Помогите с процедурой.

При помощи процедур написать программу. При вводе слова с клавиатуры считать количество гласных букв(английских) в нём.
Вот моя программа. Но она сделана без процедур. Помогите переписать ее с помощью процедур.
Код:
program Project1; 
{$APPTYPE CONSOLE} 
var a, b:string; 
 c, d:integer; 
begin
C:=0;
writeln('vvedite slovo'); 
readln(a); 
for d:=1 to length(a) do 
if (a[d]='a') or (a[d]='e') or (a[d]='i')or (a[d]='y') or(a[d]='o') or (a[d]='u') 
then 
c:=c+1; 
writeln('kol-vo glasnih bukov sostovlyaet ',c); 
readln; 
end.

Последний раз редактировалось Аватар; 29.09.2016 в 10:02.
Gix вне форума Ответить с цитированием
Старый 29.09.2016, 04:51   #2
CMY_3
Пользователь
 
Регистрация: 24.02.2016
Сообщений: 38
По умолчанию

Код:
procedure count(a : string);
var
c, d:integer;
begin
  C:=0;
  for d:=1 to length(a) do
  if (a[d]='a') or (a[d]='e') or (a[d]='i')or (a[d]='y') or(a[d]='o') or (a[d]='u')
  then
  c:=c+1;
  writeln('kol-vo glasnih bukov sostovlyaet ',c);
end;
CMY_3 вне форума Ответить с цитированием
Старый 29.09.2016, 09:54   #3
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,216
По умолчанию

Такие задачи лучше решать с использованием множеств:
Код:
procedure glas_count(s: string; var cnt: integer);
var
  i: integer;
begin
  cnt:=0;
  for i:=1 to length(s) do
    if s[i] in ['e','u','i','o','a','E','U','I','O','A']
      then inc(cnt);
end;

var
  s: string;
  c: integer;

begin
  readln(s);
  glas_count(s,c);
  writeln('Glasnyh: ',c);
  readln;
end.
Arigato вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите пожалуйста с процедурой <Валюшка> SQL, базы данных 3 24.01.2015 16:19
Помогите с процедурой в Builder C++ 6.0 AntareSFire C++ Builder 1 27.02.2009 16:50
Помогите с процедурой, plz. Stager Помощь студентам 1 21.01.2009 02:17
Помогите с процедурой... Arkuz Помощь студентам 10 15.05.2008 08:56
помогите с процедурой на VBA Exo Microsoft Office Excel 2 06.05.2008 10:53