1º12 Informatica
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.


1º12 Informatica | MDQ
 
ÍndicePortalÚltimas imágenesBuscarRegistrarseConectarse
Buscar
 
 

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

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

» hernan en un cumple
Tarea De  Algoritmoo I_icon_minitimeVie Mayo 16, 2008 7:01 pm por Enzox

» Modulo 1....
Tarea De  Algoritmoo I_icon_minitimeVie Mayo 09, 2008 11:56 pm por adminBraian

» FOTOSSS 10/04/08
Tarea De  Algoritmoo I_icon_minitimeLun Abr 28, 2008 9:20 pm por gonz@lo

» Tarea de Ingles
Tarea De  Algoritmoo I_icon_minitimeMar Abr 22, 2008 9:19 pm por AdriX

» Tarea de Filosofia
Tarea De  Algoritmoo I_icon_minitimeDom Abr 20, 2008 10:00 pm por adminBraian

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

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

Navegación
Click aka
Visitas
Contadores Web

Marzo 2024
LunMarMiérJueVieSábDom
    123
45678910
11121314151617
18192021222324
25262728293031
CalendarioCalendario

 

 Tarea De Algoritmoo

Ir abajo 
4 participantes
AutorMensaje
AdminNaWe
Admin
AdminNaWe


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

Tarea De  Algoritmoo Empty
MensajeTema: Tarea De Algoritmoo   Tarea De  Algoritmoo I_icon_minitimeVie 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


Tarea De  Algoritmoo Tp7


Ese me Baje yo -.-"
Volver arriba Ir abajo
https://repiolas.ace.st
polar.mdq

polar.mdq


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

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

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



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

Tarea De  Algoritmoo Empty
MensajeTema: Re: Tarea De Algoritmoo   Tarea De  Algoritmoo I_icon_minitimeJue 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

http://rapidshare.com/files/110161263/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
adminBraian
Admin



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

Tarea De  Algoritmoo Empty
MensajeTema: Re: Tarea De Algoritmoo   Tarea De  Algoritmoo I_icon_minitimeLun 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
adminBraian
Admin



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

Tarea De  Algoritmoo Empty
MensajeTema: Re: Tarea De Algoritmoo   Tarea De  Algoritmoo I_icon_minitimeLun 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
mika




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

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

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





Tarea De  Algoritmoo Empty
MensajeTema: Re: Tarea De Algoritmoo   Tarea De  Algoritmoo I_icon_minitime

Volver arriba Ir abajo
 
Tarea De Algoritmoo
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Tarea de Ingles
» Tarea de Filosofia
» Tarea de Fisica
» Tarea de Tecnologia de los materiales
» Equipos Para Tarea!

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