Matrizes

[ingridtele 0]

E14- Para a função f(x) = x2 3x 4, verificou-se que f(0)<0 e f(11)>0. Desta forma, podemos concluir

que existe uma raiz para a função no intervalo [0,11]. Sabe-se que as raízes desta função são inteiras.

Desenvolver um algoritmo para determinar o valor de k tal que f(k)=0. Obs.: Utilize a idéia da busca

binária para reduzir o número de testes.

 

 

 

 

E15- Um dado teatro tem capacidade para 100 pessoas. Os acentos estão dispostos em 10 filas, cada

uma delas com 10 lugares. Sabendo que as três primeiras filas custam o triplo do preço das três

últimas, e que as filas intermediárias custam a metade do preço das filas mais próximas do palco,

desenvolva um algoritmo para verificar o total arrecadado pela bilheteria. Considere que há um arquivo

onde estão indicadas as poltronas vendidas. Neste arquivo, as poltronas vagas estão marcadas com

-1 e as já ocupadas com 1. Ah, o preço do convite mais barato é R$ 30,00. Abaixo segue um exemplo

do arquivo de leitura.

-1 1 1 1 1 1 1 -1 -1 -1

1 1 1 1 -1 1 1 -1 -1 -1

1 1 1 -1 1 -1 1 1 -1 -1

1 -1 1 -1 -1 -1 1 1 -1 -1

1 -1 1 -1 -1 -1 1 1 -1 -1

1 -1 -1 -1 -1 1 1 1 -1 -1

1 1 1 1 1 1 1 -1 -1 1

1 1 1 1 1 1 1 -1 -1 1

1 1 1 1 1 1 1 1 1 1

1 1 1 1 1 1 1 1 1 1

 

 

 

!!!! Pessoal este exercício tah mt dificil!!!!

me ajudem !!!!!!!!! http://forum.imasters.com.br/public/style_emoticons/default/devil.gif

[gabriellbr 0]

var mat : vetor [1..10,1..10] de inteiro i,j,soma: inteiroinicioescreva("Entre com o arquivo de leitura")escrevalpara i de 1 ate 10 facapara j de 1 ate 10 facaescreva(i,",",j,": ")leia(mat[i,j])fimparafimparasoma:=0para i de 1 ate 3 facapara j de 1 ate 10 faca se (mat[i,j] = 1) entao soma:=(soma+60) fimsefimparafimparapara i de 4 ate 7 facapara j de 1 ate 10 faca se (mat[i,j] = 1) entao soma:=(soma+30) fimsefimparafimparapara i de 8 ate 10 facapara j de 1 ate 10 faca se (mat[i,j] = 1) entao soma:=(soma+20) fimsefimparafimparaescreva("O valor arrecadado foi de :",soma)fimalgoritmodá uma olhada ai!! depois vejo essa primeira ai!

[gabriellbr 0]

varn,cont : inteiroiniciocont:=1n:= 0enquanto cont = 1 faca se ((4) = ((n^2) - (3*n))) entao escreva (n) cont:=(cont+1) senao n:=(n+1) fimsefimenquantofimalgoritmo

[ingridtele 0]

Valeu mesmo viu!!!Vou passar para FORTRAN pq meu trabalho tem q ser em fortran... e ver o funcionamento!!! :rolleyes:

[ingridtele 0]

Aí está traduzido!!!

valeu denovo!!!!

me ajudou mt!!!!

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

................................................................................

............................

 

program teatro

integer mat(10,10),i,j,soma

 

print*,"Entre com o arquivo de leitura!"

write=1

 

do i=1,10,1

do j=1,10,1

print*,i,",",j,": "

read*,mat(i,j)

end do

end do

 

soma=0

do i=1,3,1

do j=1,10,1

if(mat(i,j).eq.1)then

soma=soma+90

end if

end do

end do

 

do i=4,7,1

do j=1,10,1

if (mat(i,j).eq.1)then

soma=soma+45

end if

end do

end do

 

do i=8,10,1

do j=1,10,1

if (mat(i,j).eq.1)then

soma=soma+30

end if

end do

end do

 

print*,"O valor arrecadado foi de :",soma

 

end