Programa pascal modular

[Leite]

Tenho um trabalho para fazer, mas não sei por onde começar, alguém poderia me explicar como eu faço????

Fazer um programa pascal modular contendo um vetor de 20 posições para comportar nomes de cidades. O programa deve conter os seguintes procedimentos e funções:

Função: LocalizarCidade

Parâmetro: nome da cidade

Objetivo: Localizar a cidade no vetor

Obs.: A função deve retornar a posição da cidade no vetor

Procedimento: CadastrarCidade

Parâmetro: nome da cidade

Objetivo: Incluir a cidade passada por parâmetro no vetor de 20 posições

Obs.: Incluir a cidade no final do vetor

Procedimento: ExcluirCidade

Parâmetro: nome da cidade

Objetivo: Excluir a cidade passada por paramento do vetor de 20 posições

Obs.: Localizar a posição da cidade no vetor através da função

LocalizarCidade e remover a mesma inserindo no lugar o valor vazio.

Procedimento: AlterarCidade

Parâmetro: nome da cidade

Objetivo: Alterar a cidade passada por paramento do vetor de 20 posições

Obs.: Localizar a posição da cidade no vetor através da função LocalizarCidade e sobrescrever a cidade com o valor passado por parâmetro.

[Mog.Lucas]

Olá!

Se você está fazendo um treinamento (curso/etc) disso é porque é de seu interesse. Por favor tente fazer algo com o conhecimento que tiver e poste aqui as duvidas que forem surgindo (se surgirem) e só então te ajudaremos..

Podemos te ajudar mas não iremos resolver seus exercícios por completo..

Acredite: é pro seu proprio bem, quando surgirem exercícios mais difíceis ninguém vai resolver pra você de graça e você não conseguirá resolver..

Estude, não é complicado, só é necessário que você se dedique..

Conforme, ainda, regra da seção:

- Os demais frequentadores do fórum poderão ajudá-lo a tirar dúvidas, mas não irão fazer seu trabalho por você, por isso tente ao menos fazer seus exercícios e poste suas dúvidas, senão nunca irá aprender se fizerem tudo por você.

Regras adicionais, olhe aqui antes de postar

Abraços e qualquer coisa é só postar!

[valecovo]

Aqui

http://pascalforum.forumvila.com/viewtopic.php?f=4&t=36

poderás encontrar material para resolveres o teu problema. Tenta fazer algo e depois coloca as dúvidas.

[Leite]

Obrigada pela ajuda, peguei algumas apostilas sobre esse assunto, já que meu professor não explicou quase nada sobre ele, mas vou tentar fazer e qualquer dúvida pergunto a vocês. Ahhh caso tenham algum material bom que possa me ajudar fiquem a vontade para postar.

[valecovo]

Analisa este código:

program cidades;
uses crt;

var array1: array[1..20] of string;
    opcao: char;
    n: integer;
    cidade: string;

Function LocalizarCidade(nome: string): integer;
var x: integer;
    encontrou: boolean;
begin
  encontrou:= false;
  x:= 1;
  while (x<=20) and (encontrou=false) do
  begin
    if nome= array1[x] then
    begin
      encontrou:= true;
      LocalizarCidade:= x;
    end;
    x:= x+1; 
  end;
  if encontrou = false then LocalizarCidade:= 0;
end;


Procedure CadastrarCidade(nome: string; posicao: integer);
begin
  array1[posicao]:= nome;
end;

Procedure ExcluirCidade;
var ind: integer;
begin
  clrscr;
  write('Digite o nome da Cidade: ');
  readln(cidade);
  ind:= LocalizarCidade(cidade);
  if ind <> 0 then
  begin
    array1[ind]:= ' ';
    writeln('Exclusao efectuada');
  end
  else writeln('Cidade nao encontrada');
  readln;
end;

Procedure AlterarCidade;
var ind: integer;
begin
  clrscr;
  write('Digite o nome da Cidade: ');
  readln(cidade);
  ind:= LocalizarCidade(cidade);
  if ind <> 0 then
  begin
    write('Digite o novo nome: ');
    readln(cidade);
    array1[ind]:= cidade;
    writeln('Alteracao efectuada');
  end
  else writeln('Cidade nao encontrada');
  readln;
end;

Procedure LerDados;
var x: integer;
begin
  n:= 0;
  repeat
    clrscr;
    write('Quantas Cidades deseja Introduzir? ');
    readln(n);
    if (n<1) and (n>20) then writeln('O numero deve estar entre 1 e 20');
  until n in [1..20];
  for x:= 1 to n do
  begin
    write('Digite o nome da Cidade: ');
    readln(cidade);
    CadastrarCidade(cidade, x);
  end;
end;

Procedure Listar;
var x: integer;
begin
  clrscr;
  writeln('Cidades registadas');
  for x:= 1 to 20 do
  begin
    cidade:= array1[x];
    if cidade>' ' then writeln(cidade);
  end;
  readln;
end;

begin
  repeat
    clrscr;
    writeln('                 1 - INSERIR CIDADE');
    writeln;
    writeln('                 2 - EXCLUIR CIDADE');
    writeln;
    writeln('                 3 - ALTERAR CIDADE');
    writeln;
    writeln('                 4 - LISTAR CIDADES');
    writeln;
    writeln('                 0 - FIM');
    opcao:=readkey;
    case opcao of
      '1': LerDados;
      '2': ExcluirCidade;
      '3': AlterarCidade;
      '4': Listar;
    end;
  until opcao='0';
end.