Pascal – o básico! – Parte 7

21, fevereiro 2007 at 9:35 pm Deixe um comentário

Exercício 7, vamos tirar a média geométrica de dois valores adicionados pelo usuário!!!

============código fonte============

Program Ex07;

Uses
Crt;

Var
valor1,valor2,media : Real;

Begin
ClrScr;
Write(‘Digite o primeiro valor:’);
ReadLn(valor1);
Write(‘Digite o segundo valor:’);
ReadLn(valor2);
media:=Sqrt(valor1*valor2);
WriteLn(‘A media geometrica e: ‘,media:3:1);
ReadKey;
End.

============código fonte============

Básico né? Acredito que com tantos exercícios já estamos conseguindo fixar conceitos. Em breve irei acatar ao conselhor de Adriano Moreira. Farei a implementação de plugins para Syntax Highlighting, para facilitar a leitura do nosso código.

Abraços

Adicione ao favoritos do seu BlogBlogs:
Adicionar aos Favoritos BlogBlogs

Anúncios

Entry filed under: CEFET, Estudos, Pascal, Software, Tecnologia.

Pascal – o básico! – Parte 6 Pascal – o básico! – Parte 8

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Agenda

fevereiro 2007
S T Q Q S S D
« jan   mar »
 1234
567891011
12131415161718
19202122232425
262728  

Most Recent Posts


%d blogueiros gostam disto: