Hola
Este Ejericicio lo estoy comprendiendo pero no entiendo algunas partes
me podrian decir que en vez de esos codigos tan complicados , si se puede colocar otro codigo que cumpla la misma funcion !!
Porque realmente no entiendo Esto :
Código Delphi
[-]
unit cuadrado;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
stdctrls, buttons, printers; type
tform2 = class(tform)
label1: tlabel;
numero: tedit;
cerrar: tbitbtn;
imprimir: tbitbtn;
borrar: tbitbtn;
mostrar: tbitbtn;
salida: tlistbox;
procedure cerrarclick(sender: tobject);
procedure borrarclick(sender: tobject);
procedure mostrarclick(sender: tobject);
procedure imprimirclick(sender: tobject);
private
public
end;
var
form2: tform2;
impres:textfile; implementation
{$r *.dfm}
procedure tform2.cerrarclick(sender: tobject);
begin
close;
end;
procedure tform2.borrarclick(sender: tobject);
begin
salida.clear;
numero.clear;
salida.visible:=false;
numero.setfocus;
end;
procedure tform2.mostrarclick(sender: tobject);
var
num,cuadrado,cubo,i:integer;
linea,i2,cuadrado2,cubo2:string; begin
num:=strtoint(numero.text);
linea:=format('%5s%6s%5s%8s%6s%4s',[' ','numero',' ','cuadrado',' ','cubo']);
salida.items.add(linea); linea:=format('%5s%6s%5s%8s%6s%4s',[' ','________',' ','__________',
' ','_____']); salida.items.add(linea);
for i:=1 to num do
begin
cuadrado:=i*i;
cubo:=cuadrado*i;
str(i,i2);
str(cuadrado,cuadrado2);
str(cubo,cubo2);
linea:=format('%9s%3s%20s%4s%16s%5s',['',i2,'',cuadrado2,'',cubo2]);
salida.items.add(linea);
end; salida.visible:=true;
end;
procedure tform2.imprimirclick(sender: tobject);
var
i,cubo,cuadrado,num:integer;
begin
assignprn(impres); rewrite(impres); writeln(impres,' numero cuadrado cubo');
writeln(impres);
num:=strtoint(numero.text);
for i:=1 to num do
begin
cuadrado:=i*i;
cubo:=cuadrado*i;
writeln(impres,' ',i:2,' ',
cuadrado:4,' ',cubo:5);
end;
closefile(impres);
end;
end.
Y este es el programa ejecutando: