Count the Number of Words in a String in QBasic

Here is a sample program that will ask the user to give a string and then the program will count the number of words in the given string using QBasic.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

Sample Program Output

Program Listing

CLS

1:

PRINT

PRINT "Count Number of Words in the String"

PRINT

INPUT "Give a String "; a$

IF a$ = "" THEN

    PRINT "Kindly give a string. ";

    PRINT

    GOTO 1:

END IF

words = 1

FOR i = 1 TO LEN(a$)

    IF MID$(a$, i, 1) = " " THEN

        words = words + 1

    END IF

NEXT i

PRINT

PRINT "The Total Number of Words in a String is "; words

PRINT

PRINT "End of Program"

END

Remove Vowels in QBasic

Here is a simple program that will ask the user to give a string and then the program will remove the vowels in the given string using Qbasic as our programming language.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

Sample Program Output

Program Listing

CLS

PRINT "REMOVE VOWELS IN A STRING IN QBASIC"

PRINT

INPUT "Give a String :"; a$

b$ = LCASE$(a$)

FOR i = 1 TO LEN(b$)

    c$ = MID$(b$, i, 1)

    IF c$ <> "a" AND c$ <> "e" AND c$ <> "i" AND c$ <> "o" AND c$ <> "u" THEN

        display$ = display$ + c$

    END IF

NEXT i

PRINT

con$ = UCASE$(display$)

PRINT "The word without the vowels : "; con$

PRINT

PRINT "End of Program"

END

Area of the Rectangle Solver Using Pointers in Go

Write a program to find the area of a rectangle using pointers using Go programming language.


I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

Sample Program Output

Program Listing

/* rectangle.go

Author   : Mr. Jake Rodriguez Pomperada, MAED-IT

Date     : August 8, 2019  Thursday  5:37 AM

Location : Bacolod City, Negros Occidental

Website  : http://www.jakerpomperada.com

Emails   : jakerpomperada@gmail.com and jake_pomperada@tup.edu.ph */

package main

import "fmt"

func main(){

var area int

var l,b int

fmt.Print("\n\n")

  fmt.Print("\tArea of the Rectangle Solver Using Pointers")

fmt.Print("\n\n")

fmt.Print("\tGive Length of Rectangle : ")

fmt.Scan(&l)

fmt.Print("\n")

fmt.Print("\tGive Breadth of Rectangle : ")

fmt.Scan(&b)

length := &l

breath := &b

area = (*length * *breath)

fmt.Print("\n")

fmt.Printf("\tArea of Rectangle will be %d. ",area)

fmt.Print("\n\n")

fmt.Print("\tEnd of Program")

fmt.Print("\n")

}

Odd and Even Number Checker Using Pointers in Golang

Write a program that will ask the user to give a number and then the program checks if the given number is an odd or even number using pointers and display the result on the screen.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

Sample Program Output

Program Listing

/* odd_even_pointers.go

Author   : Mr. Jake Rodriguez Pomperada, MAED-IT

Date     : August 8, 2019  Thursday  5:27 AM

Location : Bacolod City, Negros Occidental

Website  : http://www.jakerpomperada.com

Emails   : jakerpomperada@gmail.com and jake_pomperada@tup.edu.ph

*/

package main

import "fmt"

func main(){

num:= 0;

fmt.Printf("\n\n");

fmt.Printf("\tOdd and Even Number Checker Using Pointers");

fmt.Printf("\n\n");

fmt.Printf("\tEnter a Number : ");

fmt.Scanln(&num);

ptr := &num;

if (*ptr % 2== 0) {

fmt.Printf("\n");

fmt.Printf("\tThe given number %d is an EVEN number.",num);

} else {

fmt.Printf("\n");

fmt.Printf("\tThe given number %d is an ODD number.",num);

}

fmt.Print("\n\n")

fmt.Print("\tEnd of Program")

fmt.Print("\n")

}

Average Grade Solver Using Pointers in Golang

Write a program that will ask the user to give three numbers and then the program will compute the total sum of the three numbers using pointers and display the result on the screen.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

Sample Program Output

Program Listing

average.go

/* average.go

   Author   : Mr. Jake Rodriguez Pomperada, MAED-IT

   Date     : August 7, 2019  Wednesday   4:39 PM

   Location : Bacolod City, Negros Occidental

   Website  : http://www.jakerpomperada.com

   Emails   : jakerpomperada@gmail.com and jake_pomperada@tup.edu.ph

 */

package main

import "fmt"

func main(){

solve_average:=0.00

prelim :=0.00

midterm:= 0.00

final:=0.00

fmt.Printf("\n\n");

fmt.Printf("\tAverage Grade Solver Using Pointers");

fmt.Printf("\n\n");

fmt.Printf("\tGive Prelim Grade   : ");

fmt.Scanf("%f",&prelim);

fmt.Printf("\tGive Midterm Grade  : ");

fmt.Scanf("%f",&midterm);

fmt.Printf("\tGive Final Grade    : ");

fmt.Scanf("%f",&final);

prelim_p := &prelim;

midterm_p := &midterm;

final_p := &final;

solve_average =(*prelim_p+*midterm_p+*final_p)/3;

fmt.Printf("\n\n");

fmt.Printf("\t===== DISPLAY RESULTS =====");

fmt.Printf("\n\n");

fmt.Printf("\tThe student average grade is %.2f.",solve_average);

fmt.Print("\n\n")

fmt.Print("\tEnd of Program")

fmt.Print("\n")

}

Addition of Two Numbers Using Pointers in Go

Write a program that will ask the user to give two numbers and then the program will compute the sum of the two numbers and display the results on the screen using pointers using Go programming language.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

Sample Program Output

Program Listing

/* add.go

   Author   : Mr. Jake Rodriguez Pomperada,MAED-IT

   Date     : August 14, 2019   Wednesday    7:43 AM

   Location : Bacolod City, Negros Occidental

   Website  : http://www.jakerpomperada.com

   Emails   : jakerpomperada@gmail.com and jake_pomperada@tup.edu.ph

 */

package main

import "fmt"

func main() {

var val1 int32

var val2 int32

var sum int32

    fmt.Print("\n")

fmt.Print("\tAddition of Two Numbers Using Pointers")

fmt.Print("\n\n")

fmt.Print("\tEnter Two Numbers : ")

fmt.Scanf("%d%d",&val1,&val2)

p :=&val1

q :=&val2

sum = (*p+*q)

fmt.Print("\n")

fmt.Println("\tThe sum of",val1, "and",val2 ,"is",sum,".")

fmt.Print("\n")

fmt.Print("\tEnd of Program")

fmt.Print("\n")

}

Count Vowels and Consonants in BASIC

A simple program that wrote using Quick Basic to ask the user to give a string and then the program will count the number of consonants and vowels.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

Sample Program Output

Program Listing

CLS

PRINT

PRINT "Count Vowels and Consonants in BASIC"

PRINT

PRINT "Written By Mr. Jake R. Pomperada"

PRINT

INPUT "Enter the string"; a$

b$ = LCASE$(a$)

FOR i = 1 TO LEN(b$)

    c$ = MID$(b$, i, 1)

    IF c$ = "a" OR c$ = "e" OR c$ = "i" OR c$ = "o" OR c$ = "u" THEN

        vowels = vowels + 1

    END IF

   ELSE

    consonants = consonants + 1

    END IF

NEXT i

PRINT

PRINT "DISPLAY RESULTS"

PRINT

PRINT "The number of consonants in the string is "; consonants

PRINT "The number of vowels in the string is "; vowels

END

String Palindrome in Basic

A simple program that will ask the user to give a string or a word and then the program will check if the given string or word is a palindrome or not a palindrome using BASIC.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

Sample Program Output

Program Listing

CLS

PRINT

PRINT "String Palindrome in BASIC"

PRINT

INPUT "Enter string : "; t$

t$ = LCASE$(t$)

PRINT

PRINT

FOR I = LEN(t$) TO 1 STEP -1

    r$ = r$ + MID$(t$, I, 1)

NEXT I

IF r$ = t$ THEN

    PRINT "The given string "; t$; " is Palindrome!"

ELSE

    PRINT "The given string "; t$; " is not Palindrome!"

END IF

PRINT

PRINT "End of Program"

END

Positive and Negative Number Checker Using unless in Ruby

Write a program that will ask the user to give a number using unless a statement to check if the given number is a positive or negative number and display the results on the screen.

I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

Sample Program Output

Program Listing

# pos_neg.rb

# Author   : Jake Rodriguez Pomperada,BSCS,MAED-IT

# Date     : June 3, 2019   Monday  4:35 PM

# Address  : Bacolod City, Negros Occidental

# Tools    : Eclipse IDE and Ruby Version 2.6.3

# Location : Bacolod City, Negros Occidental  

# Website  : http://www.jakerpomperada.com

# Emails   : jakerpomperada@gmai.com and jakerpomperada@yahoo.com

puts "\n\n"

print "\tPositive and Negative Number Checker Using unless";

puts "\n\n"

print "\tGive a number  : ";

num = gets.chomp

num = num.to_i;

print "\n";

print "\t===== DISPLAY RESULT ====="

print "\n\n";

unless (num >= 0)

   print("\tThe given number #{num} is a NEGATIVE number.");

else    

   print("\tThe given number #{num} is a POSITIVE number.");

end  

print "\n\n";

print "\tEND OF PROGRAM";

print "\n\n";