Ajuda com programa em Pascal?

Faça um programa que alimente um vetor, com um número de posições definidas pelo usuário.

Este vetor deverá armazenar um conjunto de nomes em diferentes posições. Crie um mecanismo para alimentar elementos os vetor e pesquisar por um valor existente. ==== =MENU======== 1)Cadastar nome 2)Pesquisar nome 3)Listar todos os nome 0) Sair do programa ——————– Digite sua escolha:_

Lógica de Programação

•

UEPA

2

0

2

0

5

Corrêa Cabral

09/06/2019

💡 5 Respostas

jose sardagna

27.06.2019

.......

0

Andre Smaira

24.07.2019

Pascal, na sua forma original, é puramente linguagem procedural e inclui a matriz tradicional de ALGOL estruturas de controle -como com palavras reservadas, como se , em seguida , outra pessoa , enquanto , para , e caso variando em uma única palavra ou uma começam - final bloco de declarações.

Pascal também possui construções de estruturação de dados não incluídas nos tipos originais do ALGOL 60 , como registros , variantes, ponteiros , enumerações e conjuntose procedimento / ponteiros. Tais construtos foram em parte herdados ou inspirados de Simula 67, ALGOL 68 , o próprio ALGOL W de Niklaus Wirth e sugestões de CAR Hoare .

Os programas Pascal começam com a palavra - chave do programa com uma lista de descritores de arquivos externos como parâmetros (não é necessário no Turbo Pascal etc.); em seguida, segue o bloco principal entre parênteses pelas palavras-chave begin e end . Os pontos-e-vírgulas separam as declarações , e o ponto final (isto é, um período) termina o programa inteiro (ou unidade ). Letras maiúsculas e minúsculas são ignoradas na fonte Pascal.

Sendo assim, o algoritmo pedido será dado por:

1562112264122

0

Corrêa Cabral

12.09.2019

Program MenuNomeN;

const limite_max=1000;

var
op,i, limite:integer;

nome:array [1.. limite_max] of string;

pesquisar:string;
begin
while (true) do
begin
writeln(' ---------------- MENU ---------------------');
writeln('');
writeln('1 - CADASTRAR NOMES');
writeln('2 - PESQUISAR NOME');
writeln('3 - LISTAR NOMES');
writeln('0 - PARA SAIR');
writeln('');
writeln('-------------------------------------------');

writeln('Escolha uma opção:');
readln(op);
writeln('');

case (op) of

1: begin
writeln('Informe quantos nomes você pretende cadastrar: ');
readln(limite);
writeln('');
for i:=1 to limite do
begin
writeln('Informe o ',i,'° nome ',);
readln(nome[i]);
end;
end;

2: begin
writeln('Informe o nome que você procura: ');
readln(pesquisar);
for i:=1 to limite do
begin
if (pesquisar = nome[i]) then
begin
writeln('O nome pesquisado consta na ',i,'° posição !');
writeln('');
end;
if (pesquisar <> nome[i]) then
begin
writeln('O nome não consta na ',i,'° posição !');
writeln('');
end;
end;
end;

3: begin
writeln('Os nomes informados foram os seguintes: ');
writeln('');
for i:=1 to limite do
begin
writeln('O nome da ',i,'° posição é de: ', nome[i]);
end;
end;

0: begin
writeln('Você escolheu sair!!!!');
writeln('Obrigado por usar nossa programa!!!!');
exit;
end;

else
begin
writeln('Informe uma opção válida!!!');
writeln('Os valores estão presentes no MENU!!!');
end;

end;
end;
end.

0