Showing posts with label vowels and consonants in pascal. Show all posts
Showing posts with label vowels and consonants in pascal. Show all posts

Friday, September 16, 2016

Consonants and Vowels Counter in Delphi

A simple program that I wrote in Delphi as my main programming language that will ask the user to give a string, word, sentence or phrase and then our program will count the number of consonants and vowels. The code is very short and very easy to understand. I hope you will like my work  and able to share my knowledge in Delphi programming.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
 
My mobile number here in the Philippines is 09173084360
.







Sample Program Output


Program Listing

unit vowels_consonants_counter;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

var
    St : String[255];
    Location1,Location2 : integer;
    Count_Vowels, Count_Consonants : integer;

    Valid_Vowels     : Set of Char;
    Valid_Consonants : Set of Char;


procedure TForm1.Button1Click(Sender: TObject);
begin
    Count_Vowels     := 0;
    Count_Consonants := 0;
    st := edit1.text;
    Valid_Vowels := ['A', 'E', 'I', 'O', 'U', 'a', 'e', 'i', 'o', 'u'];

    Valid_Consonants := ['B', 'C', 'D','F', 'G', 'H', 'J', 'K',
                          'L', 'M', 'N', 'P', 'Q','R', 'S', 'T',
                          'V','W','X','Y','Z','b','c','d','f',
                          'g','h','j','k','l','m','n','p','q',
                          'r','s','t','v','w','x','y','z'];


     For Location1 := 1 to Length(st) Do
       If St[Location1] IN Valid_Vowels Then
             Count_Vowels := SUCC(Count_Vowels);
             label3.caption := 'The Number of Vowels is '
             + inttostr(Count_Vowels)+ '.';

     For Location2 := 1 to Length(st) Do
           If St[Location2] IN Valid_Consonants Then
             Count_Consonants := SUCC(Count_Consonants);
             label6.caption := 'The Number of Consonants is '
             + inttostr(Count_Consonants)+ '.';


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.text := '';
label3.caption :='';
label6.caption :='';
edit1.setfocus;
end;

end.