1º12 Informatica | MDQ
 
ÍndicePortalFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse
Buscar
 
 

Resultados por:
 
Rechercher Búsqueda avanzada
Últimos temas
» Ciclo Repeat
Miér Jul 09, 2008 2:56 pm por adminBraian

» Tarea De Algoritmoo
Dom Mayo 25, 2008 2:02 am por mika

» hernan en un cumple
Vie Mayo 16, 2008 7:01 pm por Enzox

» Modulo 1....
Vie Mayo 09, 2008 11:56 pm por adminBraian

» FOTOSSS 10/04/08
Lun Abr 28, 2008 9:20 pm por gonz@lo

» Tarea de Ingles
Mar Abr 22, 2008 9:19 pm por AdriX

» Tarea de Filosofia
Dom Abr 20, 2008 10:00 pm por adminBraian

» Formatiaste la PC ? Todos los Programas que nesesitas!
Dom Abr 20, 2008 6:32 pm por adminBraian

» Bill gates o la bestia ???
Sáb Abr 19, 2008 5:22 pm por gonz@lo

Navegación
Click aka
Visitas
Contadores Web

Septiembre 2018
LunMarMiérJueVieSábDom
     12
3456789
10111213141516
17181920212223
24252627282930
CalendarioCalendario

Comparte | 
 

 Tarea De Algoritmoo

Ir abajo 
AutorMensaje
AdminNaWe
Admin
avatar

Cantidad de envíos : 22
Fecha de inscripción : 09/04/2008

MensajeTema: Tarea De Algoritmoo   Vie Abr 11, 2008 10:30 pm

Bueno seguramente de esta seccion el encargado va a ser braian que es el mas capacitado Very Happy xD yo soy medio discapasitado en esto Very Happy


Principal el Turbo Pascal 7.0 <<<<<<<< Click en el nombre gris Para Bajarlo





Ese me Baje yo -.-"
Volver arriba Ir abajo
Ver perfil de usuario http://repiolas.ace.st
polar.mdq

avatar

Cantidad de envíos : 20
Edad : 26
Localización : MDQ
Fecha de inscripción : 10/04/2008

MensajeTema: Re: Tarea De Algoritmoo   Sáb Abr 12, 2008 3:51 pm

huuu bn ahii eso necesitabaa, buenisimoo
Volver arriba Ir abajo
Ver perfil de usuario http://www.fotolog.com/salepolar
adminBraian
Admin


Cantidad de envíos : 17
Fecha de inscripción : 10/04/2008

MensajeTema: Re: Tarea De Algoritmoo   Jue Abr 24, 2008 7:05 pm

ese pascal qe dio nahuee.e.
no sirve para nada.
emm
este es el fulll
asi qe bajenloo
abrazooo

rapidshare.com TP.rar.html

ese es el rar.
ah cuando les aparece qe pongan un codigoo pongan mediante la forma qe esta el gatito tmb
Volver arriba Ir abajo
Ver perfil de usuario
adminBraian
Admin


Cantidad de envíos : 17
Fecha de inscripción : 10/04/2008

MensajeTema: Re: Tarea De Algoritmoo   Lun Abr 28, 2008 8:18 pm

chicos vamos a hacerla mas corta..
emm
pregunten todo lo que no entienden y yo les doy la solucion personalizada..
es mucho mas facilll
Volver arriba Ir abajo
Ver perfil de usuario
adminBraian
Admin


Cantidad de envíos : 17
Fecha de inscripción : 10/04/2008

MensajeTema: Re: Tarea De Algoritmoo   Lun Abr 28, 2008 9:05 pm

Program precio;
Uses
Crt;
Var.
Pre1,Uti1,Cont1,Credit1:Real;
Pre2,Uti2,Cont2,Credit2:Real;
Pre3,Uti3,Cont3,Credit3:Real;
Begin

Clrscr;

Writeln(‘ingrese precio del producto 1:’);
Readln(pre1);
Writeln(‘ingrese el precio del producto 2:’);
Readln(pre2);
Writeln(‘ingrese el precio del producto 3’);
Readln(pre3);


Uti1: = pre1*30/100;
Iva1: pre1*21/100;
Cont1: pre1-(pre1*5/100);
Credit1: =pre1+(pre1*15/100);

Uti2: = pre2*30/100
Iva2: pre2*21/100
Cont2: pre2-(pre2*5/100)
Credit2: =2pre+(pre2*15/100)

Uti3: = pre3*30/100
Iva3: pre3*21/100
Cont3: pre3-(pre3*5/100)
Credit3: =pre3+(pre3*15/100)

Clrscr;
Writeln(‘los precios son los siguientes:’);
ClrScr;
Writeln(‘ la utilidad del producto 1 es ‘ uti1: 2:2);
Writeln(‘ el iva del producto 1 es ‘ iva1: 2:2);
Writeln(‘ el precio contado del producto uno es es ‘ cont1: 2:2);
Writeln(‘ el credito del producto 1 es ‘ credit1: 2:2);
Writeln(‘ la utilidad del producto 2 es ‘ uti2: 2:2);
Writeln(‘ el iva del producto 2 es ‘ iva2: 2:2);
Writeln(‘ el precio contado del producto uno es ‘ cont2: 2:2);
Writeln(‘ el credito del producto 2 es ‘ credit2: 2:2);
Writeln(‘ la utilidad del producto 3 es ‘ uti3: 2:2);
Writeln(‘ el iva del producto 1 es ‘ iva3: 2:2);
Writeln(‘ el precio contado del producto uno es ‘ cont3: 2:2);
Writeln(‘ el credito del producto 1 es ‘ credit3: 2:2);
ReadKey;
End.

Buenooo este es le ejemplo de como crear un programa.
lo primero es poner el nombre al programa (program ejemplo;) siempre cuando programamos tenemos que poner (Wink para qe se pueda ejecutar.
luego de esto
dejamos un espacio y ponemos Uses Crt; (que significa Usar la Unidad) esto nos sirve y mucho en el programa.
luegoo declaramos las variables que vamos a utilizar ejemplo (VAR Nombre: String; Numero:REal; ) este comando nos sirve para representar los datos qe vamos a utilizar.
luego de esto
ponemos BEGIN que significa COMENZAR
Siempre despues del begin va CLRSCR; ( Clear Screen) significa borrar la pantalla y fijense qe va con ;
buenoo
Necesitamos el programa nos diga algo para eso vamos a poner lo siguiente
writeln('');(esto significa escribir en la linea)
una ves que ponemos esoo vamos a querer qe responda.
entonces le ponemos ReadLn(); (dentro de los parentesis va una variable que nosotros le asignameros el nombre y que despues tenemos que especificar si es numerica(real,integer) o alfanumerica(string) es para eso)
una vez que ponen esooo una
vez que quieren terminar el programa.
le ponen un Readkey(esto significa que puedan leer todo)
y un END.
eso es todo
les dejo un ejemplo mas sobre este ejemploo
Program Braian;
Uses
Crt;
Var

Numero: Real;
Nombre: String;
Begin
ClrScr;
WriteLn('Ingrese su nombre');
ReadLn(nombre);
WriteLn('Ingrese un numero');
ReadLn(numero);

ClrScr;

Writeln('Su nombre es:',nombre);
WriteLn('su numero es: ',numero);

ReadKey;
end.
Volver arriba Ir abajo
Ver perfil de usuario
mika



Cantidad de envíos : 1
Edad : 26
Fecha de inscripción : 25/04/2008

MensajeTema: Re: Tarea De Algoritmoo   Dom Mayo 25, 2008 2:02 am

uhhhhh loko a mi no me anda el Pascal..!!! Sad
Volver arriba Ir abajo
Ver perfil de usuario
Contenido patrocinado




MensajeTema: Re: Tarea De Algoritmoo   

Volver arriba Ir abajo
 
Tarea De Algoritmoo
Volver arriba 
Página 1 de 1.
 Temas similares
-
» La capacidad es relativa
» La ingente tarea del cambio de armario.
» Y DESPUÉS DE LOS DEBATES....
» tareas específicas
» Insolito. Fuerza de Tarea militar la solucion para resolver los problemas de los tawakhas

Permisos de este foro:No puedes responder a temas en este foro.
1º12 Informatica :: Tareas !!!!!!!!!!!-
Cambiar a: