#!/user/bin/perl -w use strict; use warnings; print "Welcome to the math program\n"; while (1) { print "Enter a number\n"; my $first_number = <STDIN>; chomp ($first_number); if ($first_number eq 'q') { die "Goodbye!\n"; } else { print "Enter a second number"; my $second_number = <STDIN>; chomp ($second_number); my $add; my $subtract; my $times; my $divide; if ($second_number !=0) { $add = $first_number + $second_number; $subtract = $first_number - $second_number; $times = $first_number * $second_number; $divide = $first_number / $second_number; print "$first_number + $second_number = $add\n"; print "$first_number - $second_number = $subtract\n"; print "$first_number x $second_number = $times\n"; print "$first_number / $second_number = $divide\n"; } else { $add = $first_number + $second_number; $subtract = $first_number - $second_number; $times = $first_number * $second_number; print "$first_number + $second_number = $add\n"; print "$first_number - $second_number = $subtract\n"; print "$first_number * $second_number = $times\n"; } } }
In reply to Re: Homework: simple calculator
by R4j4
in thread Homework: simple calculator
by R4j4
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |