Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Ayuda en Pascal

Pascal/Turbo Pascal - Ayuda en Pascal

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Ayuda en Pascal

Publicado por Dagoberto (10 intervenciones) el 08/07/2017 18:23:33
Alguien me ayuda?

1.-lea una serie de 10 números (almacenados en un arreglo) calcular la potencia (número elevado a 2) de cada uno e imprimirlos
2.-Hacer un algoritmo que imprima el nombre de un artículo, clave, precio original y su precio con descuento. El descuento lo hace en base a la clave, si la clave es 01 el descuento es del 30% y si la clave es 02 el descuento en 40% (solo existen dos)
3.-leer una cadena de caracteres e indicar cuantas cuantas consonantes se encuentran de cada una de ellas
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda en Pascal

Publicado por dario (38 intervenciones) el 09/07/2017 15:05:47
Te dejo esto a ver si te sirve, falta el ejercicio Nro 3. Lo dejo para q lo hagas tu.
Saludos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
uses crt;
 
{----------------------------------------------------}
procedure cuadradoVector;
var
	num:array[1..10] of integer;
	i:byte;
begin
	//llenar vector

	for i:=1 to 10 do begin
		write('Ingrese elemento Nro ',i,': ');
		readln(num[i]);
	end;
	writeln;
	writeln('Array original');
	for i:=1 to 10 do
		write(num[i],' ');
 
	//cuadrado de los elementos del vector

	for i:=1 to 10 do
		num[i]:=sqr(num[i]);
 
	writeln; writeln;
	writeln('Array con sus elementos elevados al cuadrado');
	for i:=1 to 10 do
		write(num[i],' ');
end;
{----------------------------------------------------}
procedure ejercicio2;
var
	nom_articulo,clave:string;
	precio,desc,total:real;
begin
	write('Nombre del articulo: ');
	readln(nom_articulo);
	write('Clave del articulo (01 o 02): ');
	readln(clave);
	write('Precio del articulo: ');
	readln(precio);
 
	if clave = '01' then begin
		desc:=precio*0.30;
		total:=precio-desc;
		writeln('Nombre: ',nom_articulo);
		writeln('Clave: ',clave);
		writeln('Precio original: ',precio:5:2);
		writeln('Precio con descuento: ',total:5:2)
	end
	else if clave = '02' then begin
		desc:=precio*0.40;
		total:=precio-desc;
		writeln('Nombre: ',nom_articulo);
		writeln('Clave: ',clave);
		writeln('Precio original: ',precio:5:2);
		writeln('Precio con descuento: ',total:5:2);
	end
	else
		writeln('Clave invalida');
end;
{---------------------------------------------------------}
begin
	clrscr;
	cuadradoVector;
	writeln; writeln;
	ejercicio2;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar