elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayudenmen se los ruego
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayudenmen se los ruego  (Leído 1,992 veces)
nordik

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Ayudenmen se los ruego
« en: 27 Abril 2014, 08:02 am »



Esto es lo que presenta el ejercicio a resolver:

Hacer un programa que:

1. Lea de un archivo llamado cont.txt el nombre, seguro social e ingreso sujeto a contribucion de una cantidad indeterminada de personas.

2. Determina
a) la contribucion de cada persona
b) la cantidad de contribucion en cada rango contributivo
c) la cantidad de dinero aportado por los contribuyentes en cada rango contributivo

3. Determina
a) el total de contribucion
b) el total aportado por todos los contribuyentes
c) el promedio aportado por todos los contribuyentes
d) el promedio aportado por los contribuyentes en cada rango

La contribucion de cada persona se determina de la siguiente manera:
Si ic<9000 entonces
c=0
sino
Si 9000<ic<25000 entonces
c= (ic-9000)*0.07
Si 25000<ic<41500 entonces
c= (ic-25000)*0.14+1120
sino
Si 41500<ic<61500 entonces
c= (ic-41500)*0.25+3430
sino
si ic>61500 entonces
c= (ic-61500)*0.33+8430

La cantidad de contribucion en cada rango contributivo se determina de la siguiente manera:

Si ic<9000 entonces
cc=0
sino

Si 9000<ic<25000 entonces

cc=(25000-9000)*0.07
sino

Si 25000<ic<41500 entonces

cc=(41500-25000)*0.14
sino

Si 41500<ic<61500 entonces

cc=(61500-41500)*0.25
sino

Si ic>61500 entonces

cc=(ic-61500)*0.33

La cantidad de dinero aportado por los contribuyentes en cada rango contributivo:
r1=0
r2=1120
r3=2310
r4=5000
r5=(ic-61500)*0.33


Ahora necesito que me ayuden en base a los calculos a hacer el seudocodigo en VB, y de paso que me ayuden a resolver el 3. Determinar, ayudarme con las variables que debo establecer y los operadores matematicos para satisfacer lo que me piden.


En línea

nordik

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: Ayudenmen se los ruego
« Respuesta #1 en: 27 Abril 2014, 08:02 am »

Este fue mi intento de resolver el programa, agradeceria lo revisaran tanto variables como operadores y reglas de visual basic y me ayuden a resolver el problema.

Primero yo hice un seudocodigo del programa:

Diccionario de variables:

n=nombre
ss=seguro social
ic=ingreso sujeto a contribucion
c=contribucion
sc= almacenar la suma de las contribuciones
sap=almacernar el total del dinero aportado
nc=numero indeterminado de personas
Tap= promedio aportado por todos los contribuyentes
Tad=promedio de dinero aportado por todos los contribuyentes en cada rango contributivo

Programa Principal
Mientras hay datos
leer
determinar 1
determinar 2
Fin mientras
determinar 3
imprimir 1
imprimir 2
Fin
Procedimiento valor inicial

Procedimiento leer
lee n, sc, ic
Procedimiento determinar 1
Si ic<9000 entonces
c=0
sino
Si 9000<ic<25000 entonces
c= (ic-9000)*0.07
Si 25000<ic<41500 entonces
c= (ic-25000)*0.14+1120
sino
Si 41500<ic<61500 entonces
c= (ic-41500)*0.25+3430
sino
si ic>61500 entonces
c= (ic-61500)*0.33+8430
Fin si
Fin
Procedimiento determinar 2
Si ic<9000 entonces


cc=0
sino

Si 9000<ic<25000 entonces

cc=(25000-9000)*0.07
sino

Si 25000<ic<41500 entonces

cc=(41500-25000)*0.14
sino

Si 41500<ic<61500 entonces

cc=(61500-41500)*0.25
sino

Si ic>61500 entonces

cc=(ic-61500)*0.33
Fin si
r1=0
r2=1120
r3=2310
r4=5000
r5=(ic-61500)*0.33
Fin
Fin mientras
Procedimiento 3
sc=sc+c
sap=sap+cc
Tc=sc
Ta=sap
Tap= Tc/nc
Tad=


En línea

abkanis

Desconectado Desconectado

Mensajes: 34


Ver Perfil
Re: Ayudenmen se los ruego
« Respuesta #2 en: 28 Abril 2014, 11:55 am »

creo  que tienes  que buscar como editarlo linea por linea  es todo :/, aun necesitas el codigo?.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines