Pascal/Turbo Pascal - unefa

 
Vista:
Imágen de perfil de Marylin

unefa

Publicado por Marylin (2 intervenciones) el 01/05/2020 01:10:41
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
program UnefaVino;
uses crt;
var tipo_uva: char;
	tamano_uva, kilos_produccion, productores, i, contador: integer;
	precio_uva, ganancia: real;
	nombre, apellido, cedula, telefono, fecha, nombre_a, rif: string;
 
BEGIN
contador:=1;
writeln ('--BIENVENIDOS--');
writeln ('Ingerse el nombre de la asociacion');
readln (nombre_a);
writeln ('Ingerse el RIF de la asociacion');
readln (rif);
writeln ('Ingrese la cantidad de productores que hay en la asociacion de vinicultores');
readln (productores);
writeln ('Ingerse el precio de la uva');
readln (precio_uva);
clrscr;
repeat
begin
writeln ('Ingrese el nombre del productor');
readln (nombre);
writeln ('Ingrese el apellido del productor');
readln (apellido);
writeln ('Ingrese la cedula del productor');
readln (cedula);
writeln ('Ingrese el telefono del productor');
readln (telefono);
writeln ('Ingrese la fecha de compra del producto');
readln (fecha);
writeln ('Ingrese el tipo de uva: A o B');
readln (tipo_uva);
writeln ('Ingrese el tamano de uva');
writeln;
writeln ('1. Tamano 1');
writeln ('2. Tamano 2');
readln (tamano_uva);
writeln ('Ingerse los kilos de produccion');
readln (kilos_produccion);
	if ((tipo_uva = 'A') or (tipo_uva = 'a')) and (tamano_uva = 1) then
	begin
	precio_uva := precio_uva + 200000;
	ganancia := precio_uva * kilos_produccion;
	end
	else if ((tipo_uva = 'A') or (tipo_uva = 'a')) and (tamano_uva = 2) then
	begin
	precio_uva := precio_uva + 300000;
	ganancia := precio_uva * kilos_produccion;
	end
	else if ((tipo_uva = 'B') or (tipo_uva = 'b')) and (tamano_uva = 1) then
	begin
	precio_uva := precio_uva - 300000;
	ganancia := precio_uva * kilos_produccion;
	end
	else if ((tipo_uva = 'B') or (tipo_uva = 'b')) and (tamano_uva = 2) then
	begin
	precio_uva := precio_uva - 500000;
	ganancia := precio_uva * kilos_produccion;
	end;
writeln ('---DATOS DE LA ASOCIACION---');
writeln ('Nombre: ',nombre_a);
writeln ('RIF: ', rif);
writeln ('---DATOS DEL PRODUCTOR---');
writeln ('Nombre: ',nombre);
writeln ('Apellido: ',apellido);
writeln ('Cedula: ',cedula);
writeln ('Telefono: ',telefono);
writeln ('Fecha: ',fecha);
writeln ('Tipo de uva: ',tipo_uva);
writeln ('Tamano de uva: ',tamano_uva);
writeln ('Precio de la uva: ',precio_uva:0:1);
writeln ('Kilos de produccion: ',kilos_produccion);
writeln ('Ganancia obtenida  por el productor: ',ganancia:0:2);
 
contador:=contador + 1;
until (contador>productores);
end;
 
 
END.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 119
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

unefa

Publicado por dario (40 intervenciones) el 01/05/2020 04:02:07
Cual es tu duda.
Salu2
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