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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 29.10.2009, 10:45   #1
Archangelos
Пользователь
 
Регистрация: 01.06.2009
Сообщений: 17
По умолчанию Прошу помощи создать програмку...

Предложение содержит буквы русского алфавита. Подсчитать количество гласных и согласных букв.

Применение процедур и функций для работы со строками в сочетании с операторами ветвления и циклами
Прошу помочъ.
Нужен полный код в делфи.

Последний раз редактировалось Archangelos; 29.10.2009 в 10:51.
Archangelos вне форума Ответить с цитированием
Старый 29.10.2009, 11:06   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Без проблем:
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
type
 aga=class
  private
    Fs: string;
    g,sg:integer;
    procedure Sets(const Value: string);
 Public
  Property s:string read Fs write Sets;
  function glasnCount:integer;
  function soglCount:integer;
 end;
{ aga }

function aga.glasnCount: integer;
begin
  Result:=g;
end;

procedure aga.Sets(const Value: string);
var i:integer;
begin
  Fs := Value;
  for i:=1 to length(fs) do
   if fs[i] in ['у','е','ы','а','о','э','я','и','ю'] then
    inc(g) else
     if IsCharAlphaNumeric(fs[i]) then inc(sg);
end;

function aga.soglCount: integer;
begin
  Result:=sg;
end;

var a:aga;
begin
 a:=aga.Create;
 a.s:='Привед чуваче';

 write(a.glasnCount,' ',a.soglCount);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Прошу помощи! hijke Паскаль, Turbo Pascal, PascalABC.NET 0 10.06.2009 18:04
Прошу помощи. Brian Lee Jones Свободное общение 0 19.06.2008 00:21
Прошу помощи! Oksana Общие вопросы Delphi 6 11.02.2007 18:36