Calcula las 4 operaciones básicas
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | {-Victor De la Rocha} {-Algoritmia@groups.msn.com} {-www.myalgorithm.com} uses crt;var suma,resta,multiplicacion:integer; division:real; numero1,numero2:integer; procedure leer(var num1,num2:integer); begin write('Numero 1: ');readln(num1); write('Numero 2: ');readln(num2); end; procedure operar(var s,r,m,d:real); begin s:=numero1+numero2; r:=numero1-numero2; if numero2=0 then d:=0 else d:=numero1/numero2; m:=numero1*numero2; end;begin ClrScr; leer(numero1,numero2); operar(suma,resta,multiplicacion,division); write('Suma: ',suma:0:0); write('Resta: ',resta:0:0); write('Multiplicacion: ',multiplicacion:0:0); write('Division: ',division:0:2); ReadKey; end. |
numero 1: 9
numero 2: 9
suma: 18
resta: 0
multiplicacion: 81
division: 9/9
Emiliano
0000-00-00 00:00:00
Hola, estoy aprendiendo procedure por medio de tus algoritmos y encontre un error. En el procedure "operar" deberias tomar solo a "d" como real algo asi:(var s,r,m:integer, var d:real); porque hay incompatibilidad de tipos si no se corrige.
Alejandro Bolivar
0000-00-00 00:00:00
Si numero2 es igual a cero entonces ocurre una indeterminación
Gabriel Coronado
2010-06-15 20:51:03
MUCHAS GRACIAS POR ESTO:
ES NOTORIO TU TALENTO, DE VERDAD GRACIAS POR EL APORTE