programa que te ajuda em matematica
Publicado por tiago 12/06/2005
[ Hits: 7.312 ]
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.
Programa para Cálculo Vetorial
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
Jogando com Proton no LInux (1)
Linux Mint limitando rede a 20Mbps (6)
Ingress NGINX Controller CVSS base score of 9.8 (4)
Impossível corrigir problemas, você manteve (hold) pacotes quebrados. (2)