search

calculadora / c

0 stars 0 forks source link

Calculadora Full #3

Open Jaimerodriggues opened 7 months ago

Jaimerodriggues commented 7 months ago

program HelloPascal; uses crt; var firstNumber, secondNumber, result: integer; memory: array[1..3] of string;

procedure Calculate(operation: string); begin case operation of '+': result := firstNumber + secondNumber; '-': result := firstNumber - secondNumber; '': result := firstNumber secondNumber; '/': begin if secondNumber <> 0 then result := firstNumber div secondNumber else begin writeln('Error: Division by zero'); Exit; end; end; end; writeln('==============', operation, ' RESULT=============='); writeln(firstNumber, ' ', operation, ' ', secondNumber, ' = ', result); writeln('======================================'); end;

begin writeln('Enter a number'); readln(firstNumber); writeln('Enter another number'); readln(secondNumber); clrscr;

Calculate('+'); memory[1] := IntToStr(result);

Calculate('-'); memory[2] := IntToStr(result);

Calculate('*'); memory[3] := IntToStr(result);

Calculate('/'); // memory[4] := IntToStr(result); // Uncomment if you want to store division result

// Display memory writeln('Memory:'); writeln('1. Addition Result: ', memory[1]); writeln('2. Subtraction Result: ', memory[2]); writeln('3. Multiplication Result: ', memory[3]); // writeln('4. Division Result: ', memory[4]); // Uncomment if you want to display division result end.

Jaimerodriggues commented 7 months ago

program HelloPascal; uses crt; var firstNumber, secondNumber, result: integer; memory: array[1..3] of string;

procedure Calculate(operation: string); begin case operation of '+': result := firstNumber + secondNumber; '-': result := firstNumber - secondNumber; '': result := firstNumber secondNumber; '/': begin if secondNumber <> 0 then result := firstNumber div secondNumber else begin writeln('Error: Division by zero'); Exit; end; writeln('==============', operation, ' RESULT=============='); writeln(firstNumber, ' ', operation, ' ', secondNumber, ' = ', result); writeln('======================================'); end;

begin writeln('Enter a number'); readln(firstNumber); writeln('Enter another number'); readln(secondNumber); clrscr;

Calculate('+'); memory[1] := IntToStr(result);

Calculate('-'); memory[2] := IntToStr(result);

Calculate('*'); memory[3] := IntToStr(result);

Calculate('/'); // memory[4] := IntToStr(result); // Uncomment if you want to store division result

// Display memory writeln('Memory:'); writeln('1. Addition Result: ', memory[1]); writeln('2. Subtraction Result: ', memory[2]); writeln('3. Multiplication Result: ', memory[3]); // writeln('4. Division Result: ', memory[4]); // Uncomment if you want to display division result end.