Pascal/Turbo Pascal - AYUDA CON PASCAL

   
Vista:

AYUDA CON PASCAL

Publicado por Federico (1 intervención) el 16/08/2016 08:55:08
Hola necesito ayuda con estos programas.
1,Una empresa de venta de ropa fabrica 3 talles S, M y L. Al valor inicial de la prenda en talle S le incrementa un 20% para el talle M y un 30% para el talle L.
En los precios de venta efectúa un descuento del 20% por la compra de 100 prendas o mas, un 10 % para la compra entre 80 y 100.
Escribir un programa pascal que ingresando el valor unitario de la prenda S y la cantidad de prendas de cada talle que se quiere comprar muestre por pantalla el precio final.
2. Dado un arreglo C con valores ingresados por el teclado, escribir un programa pascal que permita colocar un arreglo A los valores positivos de C.
3.Escribir un programa pascal que llene una matriz de N X M elementos, colocando ceros en las columnas y unos en las pares.
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

AYUDA CON PASCAL

Publicado por ramon (2072 intervenciones) el 17/08/2016 12:10:19
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
{Espero sea esto lo que quieres]
 
program ayuda3;
 uses
    crt;
  type
    product = record
         pro : char;
         prec : real;
         incre : real;
         canti : integer;
       end;
   const
      nn = 5;
      mm = 5;
 
   var
     productos : array[1..3] of product;
     venta : array[1..3] of product;
     cont : integer;
     c, l, m : integer;
     cc, a : array[1..10] of integer;
     matriz : array[1..nn,1..mm] of integer;
     cl, li : integer;
 
   procedure entradaproducto;
   begin
      writeln('   *** Entrada Productos ***');
      writeln;
      productos[1].pro := 'S';
      write('    Precio De La Talla S = ');
      readln(productos[1].prec);
      productos[1].incre := productos[1].prec;
      productos[1].canti := 0;
      productos[2].pro := 'M';
      productos[2].incre := (productos[1].prec +
                               (productos[1].prec * 20 / 100));
      productos[2].canti := 0;
      productos[3].pro := 'L';
      productos[3].incre := (productos[1].prec +
                               (productos[1].prec * 30 / 100));
      productos[3].canti := 0;
    end;
 
   procedure compraproducto;
   begin
      write('  Entre Cantidad A Comprar Del Producto C = ');
      readln(c);
      venta[1].canti := c;
      write('  Entre Cantidad A Comprar Del Producto M = ');
      readln(m);
      venta[2].canti := m;
      write('  Entre Cantidad A Comprar Del Producto L = ');
      readln(l);
      venta[3].canti := l;
      writeln;
      for cont := 1 to 3 do
      begin
      if venta[cont].canti >= 100 then
      begin
      venta[cont].prec := (productos[cont].incre * venta[cont].canti) -
          ((productos[cont].incre * venta[cont].canti) * 20 / 100);
      end;
      if (venta[cont].canti > 80) and (venta[cont].canti < 100) then
      begin
      venta[cont].prec := (productos[cont].incre * venta[cont].canti) -
          ((productos[cont].incre * venta[cont].canti) * 10 / 100);
      end;
      if venta[cont].canti < 81 then
      begin
      venta[cont].prec := (productos[cont].incre * venta[cont].canti);
      end;
     end;
       writeln;
       for cont := 1 to 3 do
       writeln('  Producto = ',productos[cont].pro,'  Cantidad = ',
       venta[cont].canti,'   Costo = ',venta[cont].prec:0:2);
       readkey;
   end;
 
   procedure entradaarreglo;
   var
      ar : integer;
   begin
      for ar := 1 to 10 do
      begin
         write('  Entre Numero Arreglo [ ',ar,' ] = ');
         readln(cc[ar]);
      end;
        for ar := 1 to 10 do
        begin
           if cc[ar] > 0 then
           a[ar] := cc[ar]
        else
           a[ar] := 0;
        end;
         writeln;
         for ar := 1 to 10 do
         if a[ar] <> 0 then
         write('  ',a[ar])
      else
         write(' ');
         readkey;
   end;
 
   procedure rellenamatriz;
   begin
      for li := 1 to nn do
        for cl := 1 to mm do
        if li mod 2 = 0 then
        matriz[cl,li] := 1
     else
        matriz[cl,li] := 0;
     for li := 1 to nn do
     begin
       for cl := 1 to mm
 
        do
       begin
       write(' ',matriz[li,cl]);
       end;
       writeln;
     end;
     readkey;
   end;
 
 
  begin
     clrscr;
     entradaproducto;
     writeln;
     compraproducto;
     clrscr;
     entradaarreglo;
     clrscr;
     rellenamatriz;
  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

AYUDA CON PASCAL

Publicado por Armando José (22 intervenciones) el 18/08/2016 21:33:26
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
(* 3.Escribir un programa pascal que llene una matriz de N X M elementos,
colocando ceros en las columnas y unos en las pares*)
   uses crt;
   const
     N  = 6; (* Filas *)
     M  = 9; (* Columnas *)
   type
      Lista  = array[1..N, 1..M] of Integer;
   var
     j,i : integer;
     matriz  :  Lista ;
 
  begin
  clrscr;
 
    for i := 1 to N do
    begin
      for j := 1 to M do
      begin
 
        if ( (j mod 2) = 0) then
        begin
           matriz[i,j] := 1;
        end
        else
        begin
          matriz[i,j] := 0 ;
        end;
 
      end ;
    end ;
 
    Writeln('     La matriz ', N ,' X ',M ,'  ');
for i := 1 to N do
begin
  for j := 1 to M do
begin
 
  Write(matriz[i,j]:6);
end;
   Writeln;
end;
 
 
 
  readln;
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