programa que te ajuda em matematica
Publicado por tiago 12/06/2005
[ Hits: 7.288 ]
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
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Instalando Brave Browser no Linux Mint 22
vídeo pra quem quer saber como funciona Proteção de Memória:
Encontre seus arquivos facilmente com o Drill
Mouse Logitech MX Ergo Advanced Wireless Trackball no Linux
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Como abrir o pycharm no linux (2)
VMs e Interfaces de Rede desapareceram (12)