visualg

[Lucas Kevin 0]

poderiam me ajudar na criação desse programa no viasualg?

 

 

Faça um programa que realize o cadastro de contas bancárias com as seguintes informações:

Número da conta, nome do cliente e saldo.

O banco permitirá o cadastramento de apenas cinco contas.

Crie o menu de opções a seguir:

 

1. Cadastrar contas

2. Visualizar todas as contas

3. Excluir a conta

4. Sair

 

Desde já agradeço.

[Sergio Cavalcante 6]

lgoritmo "Inicio"

// Função :

// Autor :Sergio Cavalcante

// Data : 12/07/2014

// Seção de Declarações

var

op,cad_cont,visual,cancel:inteiro

inicio

Escreval("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx")

Escreval("/$\ /$\ BANCO IMASTERS.com.br /$\ /$\/$\ x")

Escreval(" \$/ \$/ \$/ \$/\$/\$/ x")

Escreval(" 001-00002-0000003-00120 x")

Escreval(" x")

Escreval("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx")

Escreval("")

Escreval("1- Cadastrar Conta")

Escreval("2- Visualizar Contas")

Escreval("3- Excluir Conta")

Escreva("Seja Bem-vindo escolha uma opção: ")

leia(op)

limpatela

escolha op

caso 1

Escreval("Bem vindo ao cadastro de contas")

Escreval("1- Cadastrar")

Escreval("2- sair")

leia(cad_cont)

caso 2

Escreval("Visualizador de contas")

Escreval("1- visualizar")

Escreval("2- sair")

leia(visual)

caso 3

Escreval("Excluir contas")

Escreval("1-Excluir")

Escreval("2- sair")

leia(cancel)

fimalgoritmo

[Lûîz Arthur 0]

pessoal tou com uma problema aqui

precisar criar um algoritmo no visualg

que fique assim

me ajudem pfpf

 

*

**

***

****

*****

******

*******

********

*********

**********

 

[Sergio Cavalcante 6]

Escreval("*")

Escreval("**")

Escreval("****")

Escreval("*****")

Escreval("******")

Escreval("*******")

Escreval("********")

Escreval("*********")

Escreval("**********")

[Lûîz Arthur 0]

eu ja tinha pensado nessa maneira mas, o professor do meu curso de logica quer que eu crie uma maneira de que o próprio visualg insira mas um asterisco a cada linha automaticamente,e desse jeito que você colocou eu que tou fazendo,entendeu?

meu ajuda?

[Mário Monteiro 179]

Faça com dois laços de repetição um dentro do outro

 

O primeiro determinaria o numero de linha a serem escritas e o segundo o numero de asteriscos em cada linha

 

Tente fazer e post suas dificuldades

[Lûîz Arthur 0]

só consigo fazer assim

chegou perto mas não é assim, me ajuda ?

algoritmo "semnome"

// Função :

// Autor :

// Data :

// Seção de Declarações

var

j:inteiro

inicio

// Seção de Comandos

j <- 1

enquanto j <= 10 faca

escreval ("*")

j <- j+1

escreva ("*")

fimenquanto

fimalgoritmo

[Mário Monteiro 179]

Acredito que tenha que usar dois contadores

 

Um no primeiro laco que listará as linhas e o segundo com o segundo laço que escreverá os asteriscos

[Lûîz Arthur 0]

mas como fazer isso me dê um exemplo de algoritmo

[Mário Monteiro 179]

Vou deixar voce tentar amanha se não conseguir baixo o visualg para lhe ajudar com o algoritmo em si

[Lûîz Arthur 0]

Ok,se eu não conseguir eu posto pra você me ajudar!!

 

 

não consegui,ajuda ai por favor!!

[Sergio Cavalcante 6]

algoritmo "Ajuda"

// Função :

// Autor :Sergio Cavalcante

// Data : 24/07/2014

// Seção de Declarações

var

i,j:inteiro

inicio

para i de 1 ate 7 faca

Escreval("*")

para j de 1 ate j+1 faca

Escreva("*")

fimpara

fimpara

fimalgoritmo

Amigo v se isso te ajuda.....

[Lûîz Arthur 0]

ajudou, mas tem que ser de 1 até 10, nesse que você colocou ele faz certo mas fica 1 ,2 4,6 e etc, e tem que ser 1,2,3,4,5,6,7,8,9,10.

[Sergio Cavalcante 6]

var

i,j:inteiro

inicio

para i de 1 ate 10 faca

Escreval("*")

para j de 1 ate i faca

Escreva("*")

fimpara

fimpara

fimalgoritmo

nesse tem um pequeno error , ao invês de 10 linhas temos 11 linhas v se tu consegue alterar alguma coisa

[Lûîz Arthur 0]

eu fiz assim e também ficou com 11 linha, até agora não tou conseguindo consertar esse erro.

 

algoritmo "asteriscos"

// Função :

// Autor :

// Data : 24/07/2014

// Seção de Declarações

var

j:inteiro

inicio

// Seção de Comandos

para j de 1 ate 10 faca

escreval("*")

para j de 2 ate j+1 faca

escreva("*")

fimpara

fimpara

fimalgoritmo

 

 

Sergio muito obrigado pela ajuda conseguir resolver!!!!

[Anderson Hall Einstein 0]

pessoal alguém pode me ajudar neste exercício de algoritmo, A tabela abaixo expressa os valores de apartamentos de diferentes metragens em diferentes bairros da cidade de Porto Alegre. As colunas desta Matriz 5x5 mostram a metragem e as linhas o nome do Bairro. Faça um algoritmo principal que chama os seguintes subalgoritmos:
a) Subrotina de Leitura da matriz 5x5; b) Subrotina de Escrita da matriz 5x5; c) Função/Subrotina que calcula o apartamento mais caro de Porto Alegre; d) Função/Subrotina que calcula o apartamento mais barato do bairro que tem o apartamento mais caro de Porto Alegre; e) Subrotina que confere um aumento de 5% a todos os apartamentos que custam menos de R$ 250.000,00.
1 0 0 m ² 1 5 0 m ² 2 0 0 m ² 2 5 0 m ² 3 0 0 m ² Centro 70 80 90 100 200 Bela Vista 120 180 240 300 360 Petrópolis 100 150 250 300 450 Moinhos 180 250 360 410 540 Bom Fim 90 130 170 210 350

var
m:vetor [1..5,1..5] de inteiro
lin, col:inteiro
linha_maiorpreco:inteiro
l,j:inteiro
a:caracter
procedimento lermatriz
var

inicio
para lin de 1 ate 5 faca
para col de 1 ate 5 faca
leia (m[lin,col])
fimpara
fimpara
fimprocedimento

 

fiz um pouco mais não sei que está certo,ou estou seguindo a logica correta