Programas simples para o Visual G

Prévia do material em texto

algoritmo "Soma dos 50 primeiros números"
var
x,y,z:real
inicio
escreva(" Soma dos 50 primeiros numeros ")
enquanto x<>50 faca
x<- x+1
z<-z+x
fimenquanto
escreva(z)
fimalgoritmo
algoritmo "semnome"
var
 n,z:inteiro
inicio
 escreval(" Imprimir os 25 primeiro numeros impares ")
 n<-0
 enquanto n<>25 faca
 z<-2*n+1
 escreval(z)
 n<-n+1
 fimenquanto
fimalgoritmo
algoritmo " Somatroio dos valores impares de 1 a 100 "
var
 n,x,z:inteiro
inicio
 escreval(" Somatroio dos valores impares de 1 a 100 ")
 escreval("")
 n<-0
 enquanto x <=100 faca
 x<-2*n+1
 z<-x+z
 escreval(z)
 n<-n+1
 fimenquanto
 escreval(z)
fimalgoritmo
algoritmo " Todos os multiplos de 7 menores que 200 "
var
 x,n:inteiro
inicio
 escreval(" Todos os multiplos de 7 menores que 200 ")
 n<-0
 enquanto x<200 faca
 escreval(x)
 x<-7*n
 n<-n+1 
 fimenquanto
fimalgoritmo
algoritmo "semnome"
var
 N,z,t,t1,t2:real
inicio
escreval(" Qual numero de competidores? ")
escreva("")
leia(N)
z<-0
enquanto z<N faca
 z<-z+1
 escreval(" Qual o tempo do competidor ",z )
 leia(t1)
 t<-t+t1
fimenquanto
t2<-t/N
escreva(" o tempo medio he: ", t2)
fimalgoritmo
algoritmo "semnome"
var
 n,fat:real
inicio
escreva(" digite n!: ")
leia(n)
fat<-1
enquanto n>1 faca
fat<-fat*n
n<-n-1
fimenquanto
escreva(" he: ",fat)
fimalgoritmo
algoritmo "semnome"
var
 n,k:inteiro
inicio
escreval(" Todos numeros divisiveis por 4 menor que 100 sao: ")
 n<-1
enquanto k<100 faca
 k<-4*n 
 escreval(k)
 n<-n+1
fimenquanto
fimalgoritmo
algoritmo "semnome"
var
 n,x,k:inteiro
inicio
escreval(" tabuada de multiplicacao de n qualquer ")
 leia(n)
 x<-0
enquanto x<10 faca
 x<-x+1 
 k<-n*x
 escreval(n," x ",x," = ",k)
fimenquantofimalgoritmo
algoritmo "semnome"
var
 cont:inteiro
inicio
 escreval(" Escreva os numeros de 1 a 5235 passo 25: " ) 
 para cont de 0 ate 5235 passo 25 faca 
 escreval(cont)
 fimpara
fimalgoritmo
algoritmo "semnome"
var
n,x:inteiro
inicio
escreva(" Inteiros de 1 a n ")
escreva(" Digite o valor de n ")
escreva("")
 leia(x)
para n de 1 ate x passo 1 faca
escreval(n)
fimpara
fimalgoritmo