Archivo por meses: Jul PM


Notas primer parcial

Arias, Julián – desaprobado Cárdenas, Gustavo Martín – aprobado Cassini, Iván – aprobado D’Angelo, Ezequiel – desaprobado Dimartini, Rocío – desaprobado Garay, Lautaro – aprobado Nicoud, Guillermo – desaprobado Ojeda, Elías – aprobado Palacios, Lucas – aprobado Ramundo, Rolando – desaprobado Rodriguez Forte, Francisco – aprobado Salamén, Débora Inés – […]


Gracias a Martín (Gustavo) 1

program Project1; {$mode objfpc}{$H+} uses{$IFDEF UNIX}{$IFDEF UseCThreads}cthreads,{$ENDIF}{$ENDIF}Classes{ you can add units after this }; {$R *.res}varnumero1,numero2,numero3,resultado: integer;seleccion:char;function suma(a,b,c:integer):integer;var resultado:integer;beginresultado:=a+b+c;suma:=resultado;end;function producto(a,b,c:integer):integer;var resutado:integer;beginresultado:=a*b*c;producto:=resultado;end; beginwriteln (‘ingrese los valores’);readln (numero1);readln (numero2);readln (numero3);writeln (‘que calculo desea realizar? (1 = suma / 2 = producto’);readln (seleccion);case seleccion of‘1’: writeln (suma(numero1,numero2,numero3));‘2’: writeln (producto(numero1,numero2,numero3));elsewriteln (‘no se ha ingresado […]