Autor
|
Tema: Ejercicios en BASIC (Leído 19,867 veces)
|
¤ Nerviozzo ¤
Ex-Staff
Desconectado
Mensajes: 3.942
[*_*]RAP SOLO[*_*]
|
Ejercicios muy básicos:
1 - Crear un programa que imprima un nombre o una frase con un carácter menos cada vez, de esta manera:
Hola amigos! Hola amigos Hola amigo Hola amig Hola ami Hola am Hola a Hola Hola Hol Ho H
2 - Introducir tres números por teclado e imprimir el mayor y el menor.
3 - Introducir los lados de un triángulo y visualizar por pantalla si dicho triángulo es equilátero, isósceles o escaleno.
4 - Introducir 4 números por teclado y visualizar la suma del primero y el tercero y el producto del segundo y el cuarto.
5 - Crear un programa que imprima los 100 primeros números primos y su suma.
6 - Introducir una palabra o frase y visualizar únicamente las vocales.
7 - Crear un programa que imprima las tablas de multiplicar de un número que el usuario introduzca por teclado.
8 - Almacenar nombres en una instrucción DATA, y permitir que el usuario introduzca un nombre por teclado para imprimir el número de veces que se repite el nombre en la instrucción
9 - Crear un programa que genere los seis números de la loto (6 números aleatorios entre 1 y 49)
10 - Codificar un programa en Basic que permita introducir 10 nombres y sus 10 edades correspondientes y, los que sean mayores de edad, los ordene por orden alfabético.
11 - Almacenar en una instrucción DATA los nombres de 5 alumnos y las dos notas de los examenes que han realizado, y crear un menú que permita:
1 - Visualizar la nota media de cada alumno ordenado por nombre de alumno. 2 - Visualizar los alumnos aprobados, ordenados por la nota media. 3 - Introducir un nombre e informar de las notas del alumno. 4 - Salir.
12 - Realizar un programa que permita almacenar en un vector 10 valores aleatorios y los ordene.
13 - Realizr el programa en Basic que permita consultar por pantalla los datos de un determinado registro del fichero llamado ARTICULO.DAT. Para efectuar dicha consulta deberá aparecer una máscara que solicite el código del artículo para poder acceder directamente al registro. El programa deberá tener en cuenta los posibles errores del usuario, tales como introducir un código inexistente o incorrecto (caracteres alfabéticos)
Formato del registro:
Campo Nºcaracteres Descripción
COD$ 7 Código de artículo ART$ 20 Artículo CAN$ 4 Cantidad PVP$ 6 Precio unidad
Una vez leído el registro deberá aparecer la siguiente información:
- Código del artículo
- Nombre del artículo
- Precio por unidad (IVA incluido)
Hay que tener en cuenta que el precio grabado en el fichero no tiene IVA, por lo que se deberán incrementar los precios de los artículos en un 16%
Unos cuantos ejercicios sencillos para los iniciados en Basic
PAZ
|
|
« Última modificación: 20 Diciembre 2005, 23:37 pm por ¤ Nerviozzo ¤ »
|
En línea
|
|
|
|
¤ Nerviozzo ¤
Ex-Staff
Desconectado
Mensajes: 3.942
[*_*]RAP SOLO[*_*]
|
Ahora os pongo las soluciones, para el que se atasque o el que las quiera como ejemplo
Ejercicio 1:cls input "Introduce un nombre: ",nom$ for car=LEN(nom$) to 0 step -1 print LEFT$(nom$,car) next car igual, pero en vez de con un for lo hago con un whilecls input "Introduce un nombre: ",nom$ car=LEN(nom$) while car>0 print LEFT$(nom$,car) car=car-1 wend PAZ
|
|
|
En línea
|
|
|
|
¤ Nerviozzo ¤
Ex-Staff
Desconectado
Mensajes: 3.942
[*_*]RAP SOLO[*_*]
|
Ejercicio 2:
cls input "Introduce 3 n£meros: ",A,B,C if A > B and A > C then print A "es el mayor" if A < B and A < C then print A "es el menor" if B > A and B > C then print B "es el mayor" if B < A and B < C then print B "es el menor" if C > A and C > B then print C "es el mayor" if C < A and C < B then print C "es el menor" Un código un poco guarro, pero bueno
PAZ
|
|
|
En línea
|
|
|
|
¤ Nerviozzo ¤
Ex-Staff
Desconectado
Mensajes: 3.942
[*_*]RAP SOLO[*_*]
|
Ejercicio 3:cls input "Introduce los tres lados del triangulo: ",A,B,C if A = B and A = C then print "El triangulo es equilatero" if A <> B and A <> C and B <> C then print "El triangulo es escaleno" if A = B and A <> C or A = C and A <> B or B = A and B <> C or C = A and C <> B or C = B and C <> A then print "El triangulo es isosceles" end if PAZ
|
|
|
En línea
|
|
|
|
¤ Nerviozzo ¤
Ex-Staff
Desconectado
Mensajes: 3.942
[*_*]RAP SOLO[*_*]
|
Ejercicio 4:cls input "Introduce 4 n£meros: ",A,B,C,D Suma = A + C Produ = B * D print "La suma del primero y el tercero es" Suma print "El producto del segundo y el cuarto es" Produ PAZ
|
|
|
En línea
|
|
|
|
¤ Nerviozzo ¤
Ex-Staff
Desconectado
Mensajes: 3.942
[*_*]RAP SOLO[*_*]
|
Ejercicio 5:cls for I=199 to 0 step -2 print I suma = suma + i next i print "La suma es" suma PAZ
|
|
|
En línea
|
|
|
|
¤ Nerviozzo ¤
Ex-Staff
Desconectado
Mensajes: 3.942
[*_*]RAP SOLO[*_*]
|
Ejercicio 6:
CLS INPUT "Ingrese una palabra: ", pal$ FOR I = 1 TO LEN(pal$) IF MID$(pal$, I, 1) = "a" OR MID$(pal$, I, 1) = "A" OR MID$(pal$, I, 1) = "e" OR MID$(pal$, I, 1) = "E" OR MID$(pal$, I, 1) = "i" OR MID$(pal$, I, 1) = "I" OR MID$(pal$, I, 1) = "o" OR MID$(pal$, I, 1) = "O" OR MID$(pal$, I, 1) = "u" OR MID$(pal$, I, 1) = "U" THEN cont = cont + 1 palcom$=palcom$+MID$(pal$, I, 1) END IF NEXT I print palcom$ PRINT "el total de vocales en esta palabra es :", cont PAZ
|
|
|
En línea
|
|
|
|
¤ Nerviozzo ¤
Ex-Staff
Desconectado
Mensajes: 3.942
[*_*]RAP SOLO[*_*]
|
Ejercicio 7:cls input "Introduce un numero: ",A for B=1 to 10 P=B*A print A "*" B "=" P next B PAZ
|
|
« Última modificación: 20 Diciembre 2005, 23:21 pm por ¤ Nerviozzo ¤ »
|
En línea
|
|
|
|
¤ Nerviozzo ¤
Ex-Staff
Desconectado
Mensajes: 3.942
[*_*]RAP SOLO[*_*]
|
Ejercicio 8:CLS DATA JUAN,PEPE,LUIS,JOSE,JUAN,LUIS,ISMAEL,JUAN,RUBEN,CARLOS INPUT "Introduce un nombre: ", NOM$ FOR I=1 TO 10 READ N$ IF UCASE$(NOM$) = N$ THEN CONT=CONT+1 END IF NEXT I PRINT NOM$ " aparece" CONT "veces en la instruccion DATA." PAZ
|
|
|
En línea
|
|
|
|
¤ Nerviozzo ¤
Ex-Staff
Desconectado
Mensajes: 3.942
[*_*]RAP SOLO[*_*]
|
Ejercicio 9:cls randomize timer for A=1 to 6 C=INT(RND*49-1+1)+1 B$=B$+STR$(C) next A print B$ PAZ
|
|
|
En línea
|
|
|
|
|
|