26 de noviembre de 2008
Feeliz cumple Kuuba (L
21 de noviembre de 2008
nose
Prpopongo utilizar el blog para organizar alguna salida....PARA QUE NADIE SE QUEDE SIN INFORMACION Y NO PASE COMO ES OTRAS OCASIONES QE LA INFORMACION LLEGABA A UNOS POCOS,,,digamos aquellos aristocratas de la informacion,,,,,asi que USEN ESTE HUMILDE BLOG PARA ARREGLAR SALIDAS...salvo que sean de caracter privado como los sacrficios de KALEN,,,,(FAK por siempre).
jojoojo
19 de noviembre de 2008
Problema de PASCAL
POSTEO EL PROBLEMA DE PASCAL DE LA EMPRESA TELEFONICA QUE DIO NUESTRO TAN QUERIDO APELBAUM(?).
___________________
Program telef;
uses crt; var
min:integer; total,imp:real; clientes:string;
begin
clrscr;
repeat
write('Ingrese el nombre del cliente: ');
readln(clientes);
if clientes='fin' then
writeln('Lo reacuadado es: ',total:0:2)
else
begin
write('Ingrese el numero de minutos hablados: ');
readln(min);
imp:=min*0.07+30; total:=total+imp;
writeln('El cliente debe abonar: ',imp);
delay(200);
end;
delay(3000);
end.
___________________
este es el programa como lo hice yo.....aganle algunos cambios los que quieran pero la estructura es la misma que la de los campos.....

