Algoritmos e Programação
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Algoritmos e Programação

Trocas de ideias e soluções


Você não está conectado. Conecte-se ou registre-se

Algoritmos e Programação  » clique para ver os topicos » Tópicos » Programas feitos no visual G

Programas feitos no visual G

2 participantes

Ir para baixo  Mensagem [Página 1 de 1]

1Programas feitos no visual G Empty Programas feitos no visual G Ter 21 Jun 2011, 3:47 pm

marcos20

marcos20
Admin

Este topico serve para aprimorar os estudos de algoritmos com o programa Visual G

Link para download do programa VisualG:
http://www.baixaki.com.br/download/visualg.htm

Manual do Visual G:
http://www.portalgigaweb.com.br/site/index2.php?option=com_docman&task=doc_view&gid=99&Itemid=9



Última edição por marcos20 em Ter 22 Jan 2013, 10:19 pm, editado 7 vez(es)

https://programacaoitb.forumeiros.com

marcos20

marcos20
Admin

Código:

algoritmo "Menor_maior_Soma_ media"
// Função : encontrar o maior e menor numero soma-los e tirar a media dos numeros digitados
// Autor : Marcos cordeiro
// Data : 06/04/2011
// Seção de Declarações
var
vet: vetor [1..5] de inteiro
maior,menor,cont,soma:inteiro
media : real
inicio
// Seção de Comandos]

maior<-vet[1];
para cont de 1 ate 5 faca
escreva ("Digite 5 valores: ")
leia(vet[cont])
limpatela
// soma dos valores digitados
soma <- soma + vet[cont];
//media entre os valores digitados
media<- soma / 5;
// maior numero
se (vet[cont] > maior) entao
maior<- vet[cont];
fimse
// menor numero
menor <- vet[1];
se (vet[cont] < menor) entao
menor <- vet[cont];
fimse
fimpara
//saida dos dados
escreval ("maior numero: ", maior)
escreval ("menor numero: ",menor)
escreval("Soma dos numeros digitados:",soma)
escreva ("Média dos numero digitados:", media)

fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 8:58 am, editado 2 vez(es)

https://programacaoitb.forumeiros.com

3Programas feitos no visual G Empty Matriz bidimensional Qua 22 Jun 2011, 12:49 pm

marcos20

marcos20
Admin

Código:

algoritmo "Matriz Bidimensional"
// Função : Escrever os numeros em uma tabela
// Autor : Marcos Codeiro
// Data : 04/04/2011
// Seção de Declarações
var
matriz: vetor  [1..2,1..2] de inteiro
cont1,cont2: inteiro
inicio
// Seção de Comandos
cont1<- 1;
cont2<- 1;
para cont1 de 1 ate 2 faca
  para cont2 de 1 ate 2  faca
      escreval ("Digite os valores: ")
      leia (matriz[cont1,cont2])
      limpatela
  fimpara
fimpara
escreval ("A matriz digitada é: ")
para cont1 de 1 ate 2  faca
  para cont2 de 1 ate 2  faca
      escreva (matriz[cont1,cont2])
  fimpara
  escreval
fimpara

fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:39 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

4Programas feitos no visual G Empty Media entre dois numeros Qua 22 Jun 2011, 12:51 pm

marcos20

marcos20
Admin

Código:

algoritmo "Media real"
// Função :calcular a media de dois numeros inteiros com resultado real
// Autor :  Marcos cordeiro
// Data : 29/03/2011
// Seção de Declarações
var
// não pode existir variaveis duplicadas
a,b: inteiro
media: real
inicio
// Seção de Comandos
escreva ("Nota 1: ")
leia (a)
escreva ("Nota 2: ")
leia (b)
// saida com numero quebrado entao a variavel  media tem que ser real
media <-  (a + b ) / 2;
escreva (media)
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:41 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

5Programas feitos no visual G Empty laço que imprime os numeros pares Qua 22 Jun 2011, 12:52 pm

marcos20

marcos20
Admin

Código:

algoritmo "Laço_pares"
// Função : escrever os numeros pares
// Autor : marcos cordeiro
// Data : 12/05/2011
// Seção de Declarações
var
 cont: inteiro
inicio
// Seção de Comandos
cont<-2;
enquanto (cont <=40) faca
escreva (cont)
cont<- cont + 2;
fimenquanto
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:41 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

6Programas feitos no visual G Empty Aplicação de funções no visual G Qua 22 Jun 2011, 12:53 pm

marcos20

marcos20
Admin

Código:

algoritmo "função de todos os operadores"
// Função :Função todas as operações
// Autor : Marcos Cordeiro
// Data : 03/04/2011
// Seção de Declarações

  var
  //variaveis globais
    a,b: real
   
// função para soma
funcao soma(a,b:real):real
var
res:real
inicio
res<- a + b;
retorne res;
fimfuncao
        // função para subtração
          funcao sub(a,b:real): real
          var
          res: real
          inicio
          res<- a - b;
          retorne res;
          fimfuncao
// funçao para multiplicação
funcao mult (a,b:real): real
var
res: real
inicio
res <- a * b;
retorne res;
fimfuncao
        // função para divisão
      funcao divi(a,b:real): real
      var
      res:real
      inicio
      res<- a / b;
      retorne res;
      fimfuncao
     
// função para o resto da divisão
funcao resto(a,b:inteiro): inteiro
var
res:inteiro
inicio
res<- a % b;
retorne res;
fimfuncao

//inicio do programa
        inicio
        escreva ("Valor 1: ")
        leia(a)
        escreva ("Valor 2: ")
        leia(b)
        escreval
        escreval ("Resultado da soma: ",soma(a,b))
        escreval ("Resultado da subtração: ", sub(a,b))
        escreval ("Resultado da Multiplicação: ",mult(a,b))
        escreval ("Resultado da Divisão: ",divi(a,b))
        escreval ("Resto da divisão: ",resto(a,b))
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:39 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

7Programas feitos no visual G Empty Aplicação de procedimento no VisualG Qua 22 Jun 2011, 12:55 pm

marcos20

marcos20
Admin

Código:

algoritmo " todas as operações"
// Função : fazer o calculo de dois numeros em todas as operações
// Autor : marcos cordeiro
// Data : 03/04/2011
// Seção de Declarações
var
a,b: real

procedimento soma(a,b: real)
var
res: real
inicio
res<- a + b;
escreval ("Resultado da soma:",res)
fimprocedimento

procedimento sub(a,b: real)
var
res: real
inicio
res<- a - b;
escreval ("Resultado da subtração:",res)
fimprocedimento

procedimento mult(a,b: real)
var
res:real
inicio
res<- a * b;
escreval ("Resultado da multiplicação: ",res)
fimprocedimento

procedimento divi(a,b: real)
var
res: real
inicio
res<- a / b;
escreval ("Resultado da divisão: ",res)
fimprocedimento

procedimento resto(a,b:inteiro)
var
res : real
inicio
res<- a % b
escreval ("Resultado do resto da divisao:",res)
fimprocedimento

// inicio do programa
inicio
// Seção de Comandos
escreva ("Valor 1: ")
leia(a)
limpatela
escreva ("Valor 2: ")
leia(b)
limpatela;
soma(a,b);
sub(a,b);
mult(a,b);
divi(a,b);
resto(a,b);
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:40 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

marcos20

marcos20
Admin

Código:

algoritmo "maior_menor_ soma _media_atribuição"
// Função : descobrir o maior e o menor somá-los  e tirar a media
// Autor : Marcos Cordeiro
// Data : 10/04/2011
// Seção de Declarações
var
    a,b,c,maior,menor,soma: inteiro
    media: real
inicio
// Seção de Comandos
    escreva ("Valor de A: ")
    leia(a)
    escreva ("Valor de B: ")
    leia(b)
    escreva ("Valor de C: ")
    leia(c)
    escreval
 
    maior <- a;
    se (maior < b) entao
    maior <- b;
    fimse
   
    se (maior < c) entao
    maior <- c;
    fimse

    menor<- a;
    se (menor > a) entao
    menor <- a ;
    fimse
    se (menor > b)entao
    menor <- b;
    fimse
    se (menor > c) entao
    menor <-c;
    fimse

    soma <-  a + b + c;
    media<- soma / 3;

    escreval ("Menor numero: ",menor)
    escreval ("Maior numero: ",maior)
    escreval ("Soma dos numeros: ",soma)
    { media:1:1 os valores com dois pontos apos
    //a variavel que vai ser impressa regula
    //quantos valores podera aparecer antes e
    //depois da virgula na tela}
      escreval ("Media dos numero: ",media:1:1)
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:35 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

9Programas feitos no visual G Empty contagem regressiva Sex 24 Jun 2011, 8:35 pm

marcos20

marcos20
Admin

Código:

algoritmo "Contagem regressiva "
// Função :Conta de 10 ate 0
// Autor : Marcos Cordeiro
// Data : 10/03/2011
// Seção de Declarações
var
i: inteiro
inicio
// Seção de Comandos
para i de 10 ate 0  passo -1 faca
escreva (i)
fimpara
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:40 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

10Programas feitos no visual G Empty conversão do dolar para real Sex 24 Jun 2011, 8:35 pm

marcos20

marcos20
Admin

Código:

algoritmo "converter real em dolar"
// Função : converter o valor do real em dolar
// Autor : Marcos Cordeiro
// Data : 29/03/2011
// Seção de Declarações
var
      montante,cotacao: real
inicio
      // Seção de Comandos
      escreva  ("Digite o valor em reais: ")
      leia(montante)
      escreva  ("Digite  a cotação a do dolar: ")
      leia(cotacao)

      montante <- montante * (1 /cotacao);
      escreval
      escreva ("US$: ",montante)
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:40 am, editado 2 vez(es)

https://programacaoitb.forumeiros.com

11Programas feitos no visual G Empty Uso de estrutura condicional composta Seg 27 Jun 2011, 10:02 am

marcos20

marcos20
Admin


Código:

algoritmo "calculo e comparação se "
// Função : fazer uma soma e comparar a um valor
// Autor : marcos cordeiro
// Data : 09/05/2011
// Seção de Declarações
var
  a,b: inteiro
inicio
  escreva ("Valor 1: ")
  leia(a)
  escreva ("Valor 2: ")
  leia(b)
  escreval
  se ( (a + b) <= 18) entao
  escreva ("numero e: menor ou igual a 18")
  senao
  escreva ("Numero e: maior que 18")
  fimse
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:37 am, editado 2 vez(es)

https://programacaoitb.forumeiros.com

12Programas feitos no visual G Empty Calculadora com estrutura escolha ou caso Seg 27 Jun 2011, 10:06 am

marcos20

marcos20
Admin

Código:

algoritmo "Calculadora_Básica"
          // Função : Fazer as 4 operações Básicas
          // Autor :  Marcos Cordeiro Alves Junior
          // Data : 08/03/2011
          // Seção de Declarações
var
  a,b,res:real
  oper: caracter
inicio
// Seção de Comandos
  escreval ("Entrada de dados:")
  escreva ("Valor 1: ")
  leia(a)
  escreva ("Operador: ")
  leia(oper)
  escreva ("Valor 2: ")
  leia(b)
// estrutura para a escolha da operação
      escolha oper

      caso "+"
      res<- a + b;    //Adição
      caso "-"
      res<- a - b;    //Subtração
      caso "*"
      res<- a * b;    //Multiplicação
      caso "/"
      res<- a / b;    //Divisão
      // caso seja digitado um operado diferente dos programados
      outrocaso
      escreval
      escreva("Erro!!! Operador inválido!!!")
      fimescolha
      {imprime na tela o resultado e a operação e os numeros}
      escreval
      escreval ("Saída dos dados: ")
      escreva ("Resultado: ",a)
      escreva(" ",oper,b)
      escreva (" =",res)
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:32 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

13Programas feitos no visual G Empty Estrutura condicional encadeada Seg 27 Jun 2011, 10:08 am

marcos20

marcos20
Admin

Código:

algoritmo "Faixa de numeros"
// Função :  Escreva por extenso os numeros dentro das consições
// Autor : Marcos cordeiro
// Data : 02/04/2011
// Seção de Declarações
var
a: inteiro
inicio
// Seção de Comandos
escreva ("Valor: ")
leia(a)

se (a=1) entao
  escreva ("Um")
senao
  se (a=2) entao
      escreva ("Dois")
  senao
      se (a=3) entao
        escreva ("Três")
      senao
        se (a=4) entao
            escreva ("Quatro")
        senao
            se (a=5) entao
              escreva ("Cinco")
            senao
              escreva ("Fora da faixa")
            fimse
        fimse
      fimse
  fimse
fimse
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:32 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

14Programas feitos no visual G Empty Laço de repetição PARA Seg 27 Jun 2011, 10:09 am

marcos20

marcos20
Admin

Código:

algoritmo "Contador"
// Função :contar de 1 a 20 e escrever na tela
// Autor :Marcos Cordeiro
// Data : 05/03/2011
// Seção de Declarações
var
        i: inteiro
inicio
  // Seção de Comandos
  I<-1;
  {contador}
  escreva("Contador:")
  para i  de 1 ate 20 passo 1 faca
  escreva (i)
  fimpara
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:31 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

15Programas feitos no visual G Empty Laço de repetição Enquanto Seg 27 Jun 2011, 10:12 am

marcos20

marcos20
Admin

Código:

algoritmo "Laço_pares"
// Função : escrever os numeros pares
// Autor : marcos cordeiro
// Data : 12/05/2011
// Seção de Declarações
var
  cont: inteiro
inicio
// Seção de Comandos
  cont<-2;
  enquanto (cont <=40) faca
  escreva (cont)
  cont<- cont + 2;
  fimenquanto
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:30 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

16Programas feitos no visual G Empty Tabuada Seg 27 Jun 2011, 10:14 am

marcos20

marcos20
Admin

Código:

algoritmo "tabuada"
// Função : escreva o valor de um numero multiplicado de 0 a 10
// Autor :Marcos Cordeiro
// Data : 14/05/2011
// Seção de Declarações
var

numero,cont: inteiro
inicio
// Seção de Comandos
escreva ("Digite um valor: ")
leia(numero)

para cont de 0 ate 10 passo 1 faca
escreval(numero," X ",cont,"=",numero * cont)
fimpara

fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:29 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

17Programas feitos no visual G Empty Alocação de Bytes Seg 27 Jun 2011, 10:15 am

marcos20

marcos20
Admin

Código:

algoritmo "Alocacao de bytes"
// Função :  Calcular a quantidade de byteas alocados pelo S.O.
// Autor :  Marcos Cordeiro
// Data : 07/04/2011
// Seção de Declarações
var
 bytes, variaveis: inteiro
inicio
// Seção de Comandos
escreva ("Quantidade de Bytes: ")
leia(bytes)
escreva ("Quantidade de Variaveis: ")
leia(variaveis)

bytes <- bytes * variaveis;
escreva (bytes)
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:28 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

18Programas feitos no visual G Empty Calculo para tirar a nota ponderada Qui 30 Jun 2011, 12:44 pm

marcos20

marcos20
Admin

Código:

algoritmo "Nota_ponderada"
// Função :Calcular a nota
// Autor : Marcos Cordeiro Alves Junior
// Data : 05/03/2011
// Seção de Declarações
var
a,b,media: inteiro
inicio
// Seção de Comandos
escreva ("Nota 1:")
leia(a)
escreva ("Nota 2:")
leia(b)

media<-(a*6 + b*4)\10;
escreva ("Resultado:",media)
fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 9:28 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

19Programas feitos no visual G Empty Verifica se o numero é primo Sáb 02 Jul 2011, 2:52 pm

marcos20

marcos20
Admin

Código:

algoritmo "numeros primos"
// Função :  verifica se o numero é primo
// Autor :  Marcos Cordeiro
// Data : 01/06/2011
// Seção de Declarações
var
num,cont,primo: inteiro
inicio
// Seção de Comandos
escreva ("valor: ")
leia(num)
//laço com teste para o resto da divisão
para cont de 1 ate num passo 1 faca
se (num % cont=0) entao
primo<- primo + 1;
fimse
fimpara
//teste para escrever na tela se é primo ou nao
se (primo=2) entao
escreval ("O numero é primo")
senao
escreval ("O numero nao e primo")
fimse

fimalgoritmo



Última edição por marcos20 em Seg 13 Fev 2012, 8:59 am, editado 1 vez(es)

https://programacaoitb.forumeiros.com

20Programas feitos no visual G Empty Escrever em um Arquivo de texto Qua 14 Dez 2011, 4:32 pm

marcos20

marcos20
Admin

Código:

algoritmo "Aquivo de Texto"
// Função :  Escrever as palavras Digitadas em um aquivo de texto
// Autor :  Marcos Cordeiro
// Data : 14/12/2011
// Seção de Declarações
arquivo "c:\Users\Cátia\Desktop\VisualTexte.txt"

var
nome : caractere
sobrenome: caractere
inicio
// Seção de Comandos
escreva ("nome.......:" )
leia(nome)
escreva ("Sobrenome..:" )
leia(sobrenome)
escreval ("Escrito no arquivo texto!!!")
fimalgoritmo

https://programacaoitb.forumeiros.com

antoniojf



Código:

algoritmo "Contagem regressiva "
// Função :Conta de 10 ate 0
// Autor : Marcos Cordeiro
// Data : 10/03/2011
// Modificado por: Antonio Ferreira, em 02/10/2013
// Seção de Declarações
var
i,n: inteiro
inicio
// Seção de Comandos
escreva ("DIGITE O Nº: ")
leia (n)
i<-n
para i de n ate 0  passo -1 faca
escreva (i)
fimpara
fimalgoritmo

Conteúdo patrocinado



Ir para o topo  Mensagem [Página 1 de 1]

Algoritmos e Programação  » clique para ver os topicos » Tópicos » Programas feitos no visual G

Tópicos semelhantes

-

» Programas feitos no portugol viana

Permissões neste sub-fórum
Não podes responder a tópicos