How to Write a Program to Print the First 10 Multiples of a Given Number Using a While Loop

This article provides a detailed guide on how to write a program that prints the first 10 multiples of a given number using a while loop. If you are familiar with basic programming concepts and looking to enhance your skills in writing efficient and logical programs, this tutorial is for you.

Understanding the Problem

The problem statement is to write a program that takes a given number as input and prints its first 10 multiples. This can be achieved using a while loop, which continues to execute a block of code until a certain condition is met. Let's dive into how to implement this in both VBA (Visual Basic for Applications) and Pascal (Turbo Pascal).

Step-by-Step Guide in VBA (Visual Basic for Applications)

VBA Code

Dim lngInput As Long
Dim strOutput As String
Dim i As Integer
On Error GoTo ChkError
lngInput  (prompt:"Enter a number", Type:1)
If lngInput  0 Then Exit Sub
strOutput  ""
i  1
Do While i  10
    strOutput  strOutput  CStr(i)  " x "  CStr(lngInput)  "  "  CStr(i * lngInput)  vbCrLf
    i  i   1
Loop
MsgBox strOutput, vbInformation, "Multiples"
ChkError:
If   0 Then
    Resume Next
Else
    MsgBox "An error occurred."  vbCrLf  , vbCritical, "Error"
    Resume
End If

Explanation:

The program starts by declaring variables: `lngInput` to store the input number, `strOutput` to build the output message, and `i` as an index variable. An error handler is set up to catch and handle any errors that might occur during runtime. The user is prompted to input a number. If the input is 0, the program exits. A `Do While` loop is used to print the first 10 multiples of the input number. The loop runs until `i` reaches 11, printing each multiple. The loop builds the `strOutput` string, which contains the formatted multiples, and displays it using `MsgBox`. Error handling is used to manage errors, such as invalid inputs.

Implementing in Pascal (Turbo Pascal)

Pascal Code

program Multiples;
var
  enteredNumber, count: integer;
  strOutput: string;
begin
  count : 1;
  writeln('Enter a number: ');
  readln(enteredNumber);
  strOutput : '';
  while count  10 do
  begin
    strOutput : strOutput   IntToStr(count)   ' x '   IntToStr(enteredNumber)   '  '   IntToStr(count * enteredNumber)   #13#10;
    count : count   1;
  end;
  writeln(strOutput);
end.

Explanation:

The program starts by declaring variables: `enteredNumber` to store the input number, `count` to act as an index, and `strOutput` for the constructed output message. The program prompts the user to enter a number and reads the input. A `while` loop is used to print the first 10 multiples of the entered number. The loop runs until `count` reaches 11. The `strOutput` string is constructed and updated with each iteration, including the number, the multiplication, and the result. The final string is printed to the console.

Enhancing the Logic

To handle real numbers with floating-point precision, consider the following code:

program RotichHomework;
var
  enteredNumber: real;
begin
  count : 1;
  writeln('Enter a number: ');
  readln(enteredNumber);
  while count 

This logic builds on the previous implementation to handle floating-point numbers, ensuring that the user's input is processed with precision.

Conclusion

Writing a program to print the first 10 multiples of a given number using a loop is a fundamental exercise that helps in understanding basic programming concepts such as loops, data types, and error handling. By practicing and implementing such programs, you can improve your coding skills and develop a deeper understanding of programming languages.

Further Reading

For further learning, you may explore more advanced programming constructs and techniques, such as loops, conditionals, and data structures. Also, consider checking out resources like tutorials, books, and online courses to enhance your programming skills.