• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

sr._neves

[Pascal] Calcular perímetro e área de uma circunferência

2 mensagens neste tópico

Bem é o meu 1º "trabalho" em Pascal, espero que seja útil.

program area_e_perimetro_do_circulo;
uses crt;
var raio,perimetro,area  :real;
//Este Programa server para descobrir o perimetro e a area de um circulo sabendo o seu raio
//Criado por sr._neves (puto.nevesgmail.com
begin
//Inicio
        clrscr;
        writeln ('Este programa serve para mostrar o perimentro e area de uma circuferncia click enter para continuar');
//Inserir o raio da circunferencia
        readln;
        write('Ensira o raio da citcunferˆcia:   ');
        readln (raio);
//Calcular o perimetro
        perimetro:=2*pi*raio;
        writeln ('O perimetro do circulo ‚ de:   ', perimetro:5:2);
//calcular a area
        area:=pi*raio*raio;
        Writeln ('A area do circulo ‚ de:   ', area:5:2);
        readln;
End.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora