programa que te ajuda em matematica
Publicado por tiago 12/06/2005
[ Hits: 7.397 ]
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.
Método de eliminação de Gauss com pivotamento parcial
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (0)
O que você está ouvindo agora? [2] (190)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (5)
warsaw parou de funcionar após atualização do sistema (solução) (10)