practica 7 ejercicio 2, Pascal

Language: Layout:

//fpc 3.0.4

program HelloWorld;

{----------------------------------------------------------------------------------------------------------------------}

{-------------------------------------------------------------
TYPE - Declaracion de tipos definidos x el usuario}
type
    
    rangoAbecedario = 'a' .. 'z';

Tvector = array [rangoAbecedario] of integer;
    
    conj = set of char;
    
{----------------------------------------------------------------------------------------------------------------------}

{----------------------------------------------------------------------------------------------------------------------}
{-------------------------------------------------------------
VARIABLES GLOBALES - Ingresa variables para todos los modulos... }
var 
    i: rangoAbecedario;
{----------------------------------------------------------------------------------------------------------------------}
    
{----------------------------------------------------------------------------------------------------------------------}
{-------------------------------------------------------------
INICIALIZACION - Inicia el vector todo en cero }
procedure inicializacion(var v:Tvector;var c:conj);
begin
    
    c := ['a'..'z'];
    
    for i:='a' to 'z' do begin
    
        v[i] := 0;
    
    end;

end;
{----------------------------------------------------------------------------------------------------------------------}

{----------------------------------------------------------------------------------------------------------------------}
{-------------------------------------------------------------
LEER SECUENCIA - Cuenta la cantidad de veces que aparece cada letra
y lo almacena en el vector}
procedure leerSecuencia(var car:char;var v:Tvector;c:conj);
begin
    if car in c then
        v[car]:= v[car] + 1;
    read(car);
end;
{-------------------------------------------------------------
INFORMAR - Informa la cantidad de veces que aparece cada letra}
procedure Informar(v : Tvector);

begin
        for i:='a' to 'z' do begin
            writeln(i,': ',v[i]);        
        end;
end;

{----------------------------------------------------------------------------------------------------------------------}

{----------------------------------------------------------------------------------------------------------------------}
var
    car : char;
    v:Tvector;
    c:conj;
begin
        // ------inicializa------//
        inicializacion(v,c);
        //------read first char----//
        read(car);
        //------press secuence-----//
        while (car <> '.') do begin
            leerSecuencia(car,v,c);
        end;
        //-----report times x letter----//
        Informar(v);
        
end.
{----------------------------------------------------------------------------------------------------------------------}

Una casa de venta de comidas ofrece a la venta una variedad de platos La misma cuenta con un software que utiliza dos estructuras de datos: una en donde almacena la información de sus clientes: código de cliente, apellido, nombre, domicilio y teléfono; y otra en donde almacena la información de los 100 platos diferentes que dispone Los platos se encuentran codificados del 1 al 100 y de cada uno se sabe: nombre y stock disponible Realizar un programa que: j
a) Lea información de pedidos de platos de comida De cada pedido se conoce el código de cliente que desea hacer el pedido, el código del plato que solicita y la cantidad de ese plato Para que el pedido pueda llevarse a cabo se deben realizar las validaciones correspondientes y en caso de no existir ningún inconveniente, realizar la venta del mismo, caso contrario, informar porque la venta no pudo ser realizada Tener en cuenta que el código de cliente debe ser de un cliente almacenado por la empresa, y debe existir suficiente stock del plato pedido La recepción de pedidos finaliza cuando se lee un código de cliente igual a -1
b) Una vez finalizada la recepción de solicitudes informar aquellos platos que yaj.

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.16 sec, cpu time: 0.01 sec, memory peak: 5 Mb, absolute service time: 0,57 sec