procedure Simple_Banking_System is

type Bank_Account is record
Balance : Integer := 0;
end record;

Account : Bank_Account;

procedure Deposit(Amount : Integer) is
begin
Account.Balance := Account.Balance + Amount;
Put_Line(“Deposited: ” & Integer’Image(Amount) & “, New Balance: ” & Integer’Image(Account.Balance));
end Deposit;

procedure Withdraw(Amount : Integer) is
begin
if Amount > Account.Balance then
Put_Line(“Error: Insufficient funds. Current Balance: ” & Integer’Image(Account.Balance));
else
Account.Balance := Account.Balance – Amount;
Put_Line(“Withdrew: ” & Integer’Image(Amount) & “, New Balance: ” & Integer’Image(Account.Balance));
end if;
end Withdraw;

procedure Check_Balance is
begin
Put_Line(“Current Balance: ” & Integer’Image(Account.Balance));
end Check_Balance;

procedure Main is
Choice : Integer;
Amount : Integer;
begin
loop
Put_Line(“Welcome to the Simple Banking System!”);
Put_Line(“1. Deposit”);
Put_Line(“2. Withdraw”);
Put_Line(“3. Check Balance”);
Put_Line(“4. Exit”);
Put(“Enter your choice (1-4): “);
Get(Choice);

case Choice is
when 1 =>
Put(“Enter amount to deposit: “);
Get(Amount);
Deposit(Amount);
when 2 =>
Put(“Enter amount to withdraw: “);
Get(Amount);
Withdraw(Amount);
when 3 =>
Check_Balance;
when 4 =>
Put_Line(“Exiting the system. Goodbye!”);
exit;
when others =>
Put_Line(“Invalid choice. Please select again.”);
end case;
end loop;
end Main;

begin
Main;
end Simple_Banking_System;

proc Deposit {Account Amount} {
global balance
if {$Amount <= 0} { puts "Deposit amount must be positive." } else { set balance [expr {$balance + $Amount}] puts "Deposit successful. New balance: $balance" } } proc Withdraw {Account Amount} { global balance if {$Amount <= 0} { puts "Withdrawal amount must be positive." } elseif {$Amount > $balance} {
puts “Insufficient funds for withdrawal.”
} else {
set balance [expr {$balance – $Amount}]
puts “Withdrawal successful. New balance: $balance”
}
}

proc Check_Balance {Account} {
global balance
puts “Your current balance is: $balance”
}

proc Display_Menu {} {
set balance 0
while {1} {
puts “Welcome to the Banking System!”
puts “1. Deposit”
puts “2. Withdraw”
puts “3. Check Balance”
puts “4. Exit”
puts -nonewline “Please choose an option: ”
set Ch [gets stdin]

switch — $Ch {
1 {
puts -nonewline “Enter amount to deposit: ”
set Amount [gets stdin]
Deposit “Account” $Amount
}
2 {
puts -nonewline “Enter amount to withdraw: ”
set Amount [gets stdin]
Withdraw “Account” $Amount
}
3 {
Check_Balance “Account”
}
4 {
puts “Exiting the system. Thank you!”
break
}
default {
puts “Invalid option. Please try again.”
}
}
puts “”
}
}

Display_Menu

procedure Number_Guesser is
Secret_Number : Integer;
User_Guess : Integer;
Is_Correct : Boolean := False;
begin
— Initialize random number generator
Ada.Random.Reset;
— Generate a random number between 1 and 100
Secret_Number := Ada.Random.Random(1, 100);

Ada.Text_IO.Put_Line(“Guess the number between 1 and 100:”);

while not Is_Correct loop
Ada.Integer_Text_IO.Get(User_Guess);

if User_Guess < Secret_Number then Ada.Text_IO.Put_Line("Too low! Try again:"); elsif User_Guess > Secret_Number then
Ada.Text_IO.Put_Line(“Too high! Try again:”);
else
Is_Correct := True;
Ada.Text_IO.Put_Line(“Congratulations! You’ve guessed the number.”);
end if;
end loop;
end Number_Guesser;

proc number_guesser {} {
set secret_number [expr {int(rand() * 100) + 1}]
set is_correct 0

puts “Guess the number between 1 and 100:”

while { !$is_correct } {
set user_guess [gets stdin]
set user_guess [expr {$user_guess}]

if { $user_guess < $secret_number } { puts "Too low! Try again:" } elseif { $user_guess > $secret_number } {
puts “Too high! Try again:”
} else {
set is_correct 1
puts “Congratulations! You’ve guessed the number.”
}
}
}

number_guesser