Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Algoritmia » Solucion de algoritmos

Algoritmia - Solucion de algoritmos

Volver
Nuevo Tema
<<>>
 
Vista:

Solucion de algoritmos

Publicado por Pedro (1 intervención) el 14/10/2021 19:29:05
Empeze una carrera de progrmacion y nose como realizar el siguiente enunciado en lazarus/pascal
La oficina de administración de puertos cuenta con una estructura de 2000 embarcaciones de carga que ingresaron al puerto con los siguientes datos

Código de embarcación

Nombre de la embarcación

Titular de la embarcación

Fecha de arribo

Valor de la carga

Nacionalidad

Se pide:

a) declarar la estructura anterior

b) listado ordenado por fecha y nombre de la embarcación en el año 2020

c) total acumulado en concepto del valor de las cargas en 2020

d) generar una nueva estructura con aquellas embarcaciones cuya nacionalidad sea extranjera con código de embarcación y nacionalidad

e) permitir la modificación del campo nombre de una embarcación

f) Cantidad de embarcaciones nacionales
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: 303
Oro
Ha mantenido su posición en Algoritmia (en relación al último mes)
Gráfica de Algoritmia

Solucion de algoritmos

Publicado por dario (105 intervenciones) el 15/10/2021 15:02:11
Hola, te dejo una idea.
Salu2.

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
program Hello;
const max = 2000;
type
    embarcaciones = record
        codigo:string;
        nombre:string;
        titular:string;
        fecha:string;
        valor:real;
        nacionalidad:string;
    end;
var
    barcos:array[1..max] of embarcaciones;
    flag:boolean;
    i:integer;
begin
  flag:=true;
  i:= 1;
 
  while flag do begin
    Write('Codigo de la embarcacion [0 para finalizar]: ');
    readln(barcos[i].codigo);
 
    if barcos[i].codigo = '0' then
        flag:=false
    else begin
        Write('Nombre de la embarcacion: ');
        readln(barcos[i].nombre);
        Write('Titular de la embarcacion: ');
        readln(barcos[i].titular);
        Write('Fecha de arribo: ');
        readln(barcos[i].fecha);
        Write('Valor de la carga: ');
        readln(barcos[i].valor);
        Write('Nacionalidad: ');
        readln(barcos[i].nacionalidad);
        inc(i);
    end;
 
  end;
 
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