programa que te ajuda em matematica
Publicado por tiago 12/06/2005
[ Hits: 7.232 ]
parece muito com um q eu fiz em python q tbm esta aki no vol, so que nesse eu adicionei soma de matrizes, ainda nao esta completo
Program ExemploPzim ; Var raio : real; area: real; pi: real; opcao: real; lado: real; areaq: real; areat: real; alt: real; base: real; basem: real; diagm: real; diagn: real; ca: real; a11: real; a12: real; a21: real; a22: real; b11: real; b12: real; b21: real; b22: real; c11: real; c12: real; c21: real; c22: real; Begin textbackground( blue ) ; clrscr; writeln('--------------'); writeln('Geometria (1)'); writeln('Algebra (2)'); writeln('--------------'); write('Escolha a materia:'); readln(ca); if (ca=1) then begin textbackground( blue ) ; clrscr; writeln('----------------------'); writeln('Area do quadrado (1)'); writeln('Area do triangulo (2)'); writeln('Area do circulo (3)'); writeln('Area do trapezio (4)'); writeln('Area do losango (5)'); writeln('----------------------'); write('Escolha uma das opçoes:'); readln(opcao); if (opcao=3) then begin write('Informe o valor do raio: '); readln(raio); area:= raio*raio*3.14 ; writeln('A area e igual a: ', (area)); pi:= raio*raio ; writeln('ou a area em Pi e igual a: ', (pi)); end; if (opcao=1) then begin write('Informe o valor do lado do quadrado:'); readln(lado); areaq:= lado*lado ; writeln('Area igual a: ', (areaq)); end; if (opcao=2) then begin write('Informe a altura:'); readln(alt); write('Informe o tamanho da base:'); readln(base); areat:= alt*base ; writeln('Area igual a: ', (areat)); end; if (opcao=4) then begin write('Informe a base menor:'); readln(base); write('Informe a base maior:'); readln(basem); write('Informe a altura:'); readln(alt); area:= (base+basem)*alt/2 ; writeln('Area igual a: ', (area)); end; if (opcao=5) then begin write('Informe a maior diagonal:'); readln(diagm); write('Informe a menor diagonal:'); readln(diagn); area:= (diagm*diagn)/2 ; writeln('Area igual a: ', (area)); end; end; if (ca=2) then begin writeln('Soma de matrizes'); write('Digite A11:'); readln(a11); write('Digite A12:'); readln(a12); write('Digite A21:'); readln(a21); write('Digite A22:'); readln(a22); write('Digite B11:'); readln(b11); write('Digite B12:'); readln(b12); write('Digite B21:'); readln(b21); write('Digite B22:'); readln(b22); c11:= a11+b11 ; c12:= a12+b12 ; c21:= a21+b21 ; c22:= a22+b22 ; writeln('C11 igual á: ', (c11)); writeln('C12 igual á: ', (c12)); writeln('C21 igaul á: ', (c21)); writeln('C22 igual á: ', (c22)); end; End.
Operações simples e avançadas com matrizes
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Não to conseguindo resolver este problemas ao instalar o playonelinux (1)
Excluir banco de dados no xampp (1)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta