EI

Exemplos De Programas

Por Eigenlieb, 22 de set. de 2006 em Tutoriais de Programação

3
2.4k
EigenliebE
22 de setembro de 2006 às 23:54

Olá!

Postem aqui programas em português estruturado.

O objetivo é disponibilizar material para estudo e análise.

Postem somente programas completos. Para programas incompletos usem o tópico: Exercicios

Lembrem-se, explicações detalhadas são bem vindas!

Abraços

Editado Setembro 22 por Eigenlieb

EigenliebE
23 de setembro de 2006 às 00:01

Programa 01 - Complemento para o tópico: Aula 3 - Português Estruturado

----------------------------------------------------------------

Temos gravados em um disco vários números com dois algarismos. Neste disco os números não estão repeticos. Porém, igualmente, não estão ordenados. Desejamos elaborar um esquema lógico (Programa) que nos permita encontrar o maior entre esses números.

Elaboração do programa:

Parte descritiva:

- Nome do arquivo de entrada: ARQ1

- Nome do registro de entrada: RG1 (Area Numérica com duas posições)

- Nome do arquivo de saída: ARQ2

- Nome do registro de saída: RG2 (Area Numérica com duas posições)

Procedimentos: (Lógica)

01. Abrir ARQ1 E ARQ2

02. Mover zeros para RG2

03. Ler ARQ1, se acabar o arquivo, gravar RG2, fechar ARQ1 E ARQ2, e encerrar o processamento.

04. Se RG1 for maior que RG2, mover RG1 para RG2. Ir para 03.

Massa de testes: (Resolução)

Parte descritiva:

- Nome do arquivo de entrada: ARQ1

- Nome do registro de entrada: RG1 (Area Numérica com duas posições)

- Nome do arquivo de saída: ARQ2

- Nome do registro de saída: RG2 (Area Numérica com duas posições)

Conteúdo de ARQ1:

20

11

25

61

Conteúdo de ARQ2:

Vazio

Procedimentos: (Lógica)

01. Abrir ARQ1 E ARQ2

02. Mover zeros para RG2

03. Ler ARQ1, se acabar o arquivo, gravar RG2, fechar ARQ1 E ARQ2, e encerrar o processamento.

04. Se RG1 for maior que RG2, mover RG1 para RG2. Ir para 03.

Comparação - Procedimento 04.

Primeiro número: 20

20 > 00

Arquivo não acabou.

Segundo número: 11

11 < 20

Arquivo não acabou.

Teceiro número: 25

25 > 20

Arquivo não acabou.

Quarto número: 61

61 > 25

Arquivo acabou.

Conforme procedimento 03.

Gravar RG2, fechar ARQ1 E ARQ2, e encerrar o processamento.

----------------------------------------------------------------

Abraços

Editado Setembro 23 por Eigenlieb

NostradamusN
23 de setembro de 2006 às 00:07

@Eigenlieb

Muito bom, vamos ver se os users se interessam.