Como estava fora por um tempo decidir colocar mais um codigo para poderem utilizar ele vem da ideia de ordenação de vetores so que posso utiliza-lo para identificar qual maior numero que o usuario digitou ou o menor ou ambos vai de como e para que vou utiliza-lo entao irei demonstrar como exibir o maior e o menor.
Estou utilizando o metodo de ordenar vetores:
program Maior_Menor;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
var
//aqui abaixo contruo uma variavel do tipo array que é um vetor com varias posições
vetor: array[1..4] of integer;
//cria-se duas varias do tipo inteiro para serem os contadores
i,j, menor : integer;
begin
//é criado uma estrutura de repetição para ler os numeros digitado pelo usuario
for i:=0 to 3 do
begin
writeln('insira um valor na posição: ', i);
read(vetor[i]);
end;
//a função que sera apresentada abaixo é para ordenar um vetor em ordem crescente
// aqui vamos ter uma nova estrutura de repetição e logo abaixo outra
for i:= 0 to 3 do
begin
//aqui começa a nova estrutura de repetição
for j:= 0 to 3 do
begin
//temos aqui um condição que pergunta se um posição com valor é maior que a outra
if (vetor[j] > vetor[i]) then
begin
//se o valor for maior entao ele ira fazer o seguinte o valor do vetor na posição I
//e coloca ele como o menor na variavel MENOR
menor:= vetor[i];
//aqui é feito a troca de posições a posição do vetor I receberar o que estava na posição J
vetor[i]:=vetor[j];
//e aqui seria o primeiro valor que o i possuia que é representado pela variavel MAIOR
vetor[j]:=menor;
end;
end;
end;
//neste trecho é exibido o maior numero
//peço para escrever a posição 3 do vetor pois ele estar em ordem crescente
//então o maior numero sera o 4º que esta na 3ª posição partindo do principio que a 1ª posição do vetor começar apartir do 0 e como lemos 4 valores ira ate a posição 3
writeln(vetor[3]);
//neste trecho é exibido o maior numero
//peço para escrever a posição 0 do vetor pois ele estar em ordem crescente
//então o menor numero sera o 1º que esta na posição 0 partindo do principio que a 1ª posição do vetor //começar apartir do 0 e como lemos 4 valores ira ate a posição 3
writeln(vetor[0]);
read(j);
end.
entao esta ai mais um algoritmo desenvolvido na LAZARUS utilizando a linguagem Pascal
podem utilizar o codigo para só exibir o maior ou menor.
Estou utilizando o metodo de ordenar vetores:
program Maior_Menor;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
var
//aqui abaixo contruo uma variavel do tipo array que é um vetor com varias posições
vetor: array[1..4] of integer;
//cria-se duas varias do tipo inteiro para serem os contadores
i,j, menor : integer;
begin
//é criado uma estrutura de repetição para ler os numeros digitado pelo usuario
for i:=0 to 3 do
begin
writeln('insira um valor na posição: ', i);
read(vetor[i]);
end;
//a função que sera apresentada abaixo é para ordenar um vetor em ordem crescente
// aqui vamos ter uma nova estrutura de repetição e logo abaixo outra
for i:= 0 to 3 do
begin
//aqui começa a nova estrutura de repetição
for j:= 0 to 3 do
begin
//temos aqui um condição que pergunta se um posição com valor é maior que a outra
if (vetor[j] > vetor[i]) then
begin
//se o valor for maior entao ele ira fazer o seguinte o valor do vetor na posição I
//e coloca ele como o menor na variavel MENOR
menor:= vetor[i];
//aqui é feito a troca de posições a posição do vetor I receberar o que estava na posição J
vetor[i]:=vetor[j];
//e aqui seria o primeiro valor que o i possuia que é representado pela variavel MAIOR
vetor[j]:=menor;
end;
end;
end;
//neste trecho é exibido o maior numero
//peço para escrever a posição 3 do vetor pois ele estar em ordem crescente
//então o maior numero sera o 4º que esta na 3ª posição partindo do principio que a 1ª posição do vetor começar apartir do 0 e como lemos 4 valores ira ate a posição 3
writeln(vetor[3]);
//neste trecho é exibido o maior numero
//peço para escrever a posição 0 do vetor pois ele estar em ordem crescente
//então o menor numero sera o 1º que esta na posição 0 partindo do principio que a 1ª posição do vetor //começar apartir do 0 e como lemos 4 valores ira ate a posição 3
writeln(vetor[0]);
read(j);
end.
entao esta ai mais um algoritmo desenvolvido na LAZARUS utilizando a linguagem Pascal
podem utilizar o codigo para só exibir o maior ou menor.
Comentários
Postar um comentário