Novo exercicio de ltp da lista3
Grupo 5: Um cinema necessita de um programa que verifique quais os filmes foram assistidos no final do ano de 2008 e a quantidade de vendas de bilhetes de cada filme. Leia o nome do filme e a quantidade de bilhetes vendidos nos seguintes meses: Outubro, Novembro e Dezembro. Calcule o total de vendas para cada filme e o total de bilhetes vendidos nos respectivos meses (total de vendas do mês de Outubro, total de vendas do mês de Novembro e total de vendas do mês de Dezembro).
Assinar:
Postar comentários (Atom)
postado por Rafael..
ResponderExcluirse tiver algum erro me fala.
Program exe5;
type
matriz=array[1..5,1..3] of integer;
vetor1=array[1..5] of string;
vetor2=array[1..5] of integer;
var
qnt:matriz;
filme:vetor1;
total:vetor2;
geral,i,j:integer;
Begin
clrscr;
for i:=1 to 5 do
begin
gotoxy(2,4);
writeln('FILME');
gotoxy(17,4);
writeln('OUT');
gotoxy(24,4);
writeln('NOV');
gotoxy(31,4);
writeln('DEZ');
gotoxy(41,4);
writeln('TOTAL');
gotoxy(2,2*i+4);
readln(filme[i]);
for j:=1 to 3 do
begin
gotoxy(7*j+10,2*i+4);
readln(qnt[i,j]);
total[i]:=qnt[i,j]+qnt[i,j]+qnt[i,j];
end;
gotoxy(41,2*i+4);
writeln(total[i]);
end;
geral:=total[1]+total[2]+total[3]+total[4]+total[5];
gotoxy(5,19);
writeln('A quantidade de bilhetes vendidos no final de 2008 foi ',geral);
readln;
readln;
End.
*******Postado por Maiara C.**********
ResponderExcluirSe estiver errado me avisa...
Program exercicio5;
type
matriz=array[1..3,1..3] of integer;
vetor=array[1..3] of string;
vetor2=array[1..3] of integer;
vetor3=array [1..3] of integer;
var
filme:vetor;
atd:matriz;
total:vetor2;
totalmes:vetor3;
i,j:integer;
Begin
clrscr;
for i:=1 to 3 do
begin
gotoxy(4,5);
writeln('Filme');
gotoxy(21,2);
writeln('Cinema');
gotoxy(16,5);
writeln('Out');
gotoxy(22,5);
writeln('Nov');
gotoxy(28,5);
writeln('Dez');
gotoxy(40,5);
writeln('Total Filme');
gotoxy( 4,16);
writeln('Total Mês');
gotoxy(4,2*i+5);
readln(filme[i]);
for j:=1 to 3 do
begin
gotoxy(6*j+10,2*i+5);
readln(atd[i,j]);
totalmes[j]:=atd[j,1]+atd[j,2]+atd[j,3];
total[i]:=atd[i,1]+atd[i,2]+atd[i,3];
gotoxy(2*j+5,16);
writeln(totalmes[j]);
end;
gotoxy(45,2*i+5);
writeln(total[i]);
end;
readln;
readln;
End.
Postado por Nilo Sérgio Junior
ResponderExcluirProgram exe5;
type
matriz=array[1..3,1..3] of integer;
vetor=array[1..3] of string;
vetor2=array[1..3] of integer;
vetor3=array [1..3] of integer;
var
filme:vetor;
atd:matriz;
total:vetor2;
totalmes:vetor3;
geral,i,j:integer;
Begin
clrscr;
for i:=1 to 3 do
begin
gotoxy(4,5);
writeln('Filme');
gotoxy(21,2);
writeln('Cinema');
gotoxy(16,5);
writeln('Out');
gotoxy(22,5);
writeln('Nov');
gotoxy(28,5);
writeln('Dez');
gotoxy(40,5);
writeln('Total');
gotoxy(4,2*i+5);
readln(filme[i]);
for j:=1 to 3 do
begin
gotoxy(6*j+10,2*i+5);
readln(atd[i,j]);
end;
total[i]:=atd[i,1]+atd[i,2]+atd[i,3];
gotoxy(45,2*i+5);
writeln(total[i]);
end;
geral:=total[1]+total[2]+total[3];
gotoxy(5,16);
writeln(geral,' Total Vendido');
readln;
readln;
End.
RAONY
ResponderExcluirProgram exercio5;
type
matriz=array[1..3,1..3] of integer;
vetor=array[1..3] of string;
vetor2=array[1..3] of integer;
vetor3=array [1..3] of integer;
var
1:vetor;
a:matriz;
2:vetor2;
total,i,j:integer;
Begin
clrscr;
for i:=1 to 3 do
begin
gotoxy(4,5);
writeln('FILME');
gotoxy(16,5);
writeln('Outubro');
gotoxy(22,5);
writeln('Novembro');
gotoxy(28,5);
writeln('Dezembro');
gotoxy(40,5);
writeln('Total');
gotoxy(4,2*i+5);
readln(a[i]);
for j:=1 to 3 do
begin
gotoxy(6*j+10,2*i+5);
readln(a[i,j]);
end;
2[i]:=a[i,1]+a[i,2]+a[i,3];
gotoxy(45,2*i+5);
writeln(2[i]);
end;
total:=2[1]+2[2]+2[3];
gotoxy(5,16);
writeln(total,' Vendidos');
readln;
readln;
End.
Ruan Roberto ;
ResponderExcluirProgram exercio5;
type
matriz=array[1..3,1..3] of integer;
vetor=array[1..3] of string;
vetor2=array[1..3] of integer;
vetor3=array [1..3] of integer;
var
1:vetor;
a:matriz;
2:vetor2;
total,i,j:integer;
Begin
clrscr;
for i:=1 to 3 do
begin
gotoxy(4,5);
writeln('FILME');
gotoxy(16,5);
writeln('Outubro');
gotoxy(22,5);
writeln('Novembro');
gotoxy(28,5);
writeln('Dezembro');
gotoxy(40,5);
writeln('Total');
gotoxy(4,2*i+5);
readln(a[i]);
for j:=1 to 3 do
begin
gotoxy(6*j+10,2*i+5);
readln(a[i,j]);
end;
2[i]:=a[i,1]+a[i,2]+a[i,3];
gotoxy(45,2*i+5);
writeln(2[i]);
end;
total:=2[1]+2[2]+2[3];
gotoxy(5,16);
writeln(total,' Vendidos');
readln;
readln;
End.
Beeijos para vocês .
sinara
ResponderExcluirProgram cinema;
type
matriz=array[1..3,1..3] of integer;
vetorA=array[1..3] of string;
vetorB=array[1..3] of integer;
var
qbm:matriz;
nf:vetorA;
S:vetorB;
i:integer;
j:integer;
s1:integer;
s2:integer;
s3:integer;
Begin
s1:=0;
s2:=0;
s3:=0;
For i:= 1 to 3 do
begin
s[i]:=0;
gotoxy(10,11);
writeln('nome do filme');
gotoxy(10,i+11);
readln(nf[i]);
For j:=1 to 3 do
begin
gotoxy(30,11);
writeln('bilhetes');
gotoxy(5*j+15,i+11);
readln(qbm[i,j]);
S[i]:=S[i] + qbm[i,j];
If j=1 then
begin
s1:=s1+qbm[i,j];
end;
If j=2 then
begin
s2:=s2+qbm[i,j];
end;
If j=3 then
begin
s3:=s3+qbm[i,j];
end;
end;
gotoxy(40,i+11);
writeln(s[i]);
end;
gotoxy(20,17);
writeln(s1);
gotoxy(25,17);
writeln(s2);
gotoxy(30,17);
writeln(s3);
readln;
end.
gilberson
ResponderExcluirProgram cinema;
type
matriz=array[1..3,1..3] of integer;
vetorA=array[1..3] of string;
vetorB=array[1..3] of integer;
var
qbm:matriz;
nf:vetorA;
S:vetorB;
i:integer;
j:integer;
s1:integer;
s2:integer;
s3:integer;
Begin
s1:=0;
s2:=0;
s3:=0;
For i:= 1 to 3 do
begin
s[i]:=0;
gotoxy(10,11);
writeln('nome do filme');
gotoxy(10,i+11);
readln(nf[i]);
For j:=1 to 3 do
begin
gotoxy(30,11);
writeln('bilhetes');
gotoxy(5*j+15,i+11);
readln(qbm[i,j]);
S[i]:=S[i] + qbm[i,j];
If j=1 then
begin
s1:=s1+qbm[i,j];
end;
If j=2 then
begin
s2:=s2+qbm[i,j];
end;
If j=3 then
begin
s3:=s3+qbm[i,j];
end;
end;
gotoxy(40,i+11);
writeln(s[i]);
end;
gotoxy(20,17);
writeln(s1);
gotoxy(25,17);
writeln(s2);
gotoxy(30,17);
writeln(s3);
readln;
end.
Bianca
ResponderExcluirProgram Pzim ;
type
vetor=array [1..3] of string;
matriz= array [1..3,1..3] of integer;
vetors=array [1..3] of integer;
var
filme:vetor;
meses:matriz;
somao:integer;
soman:integer;
somad:integer;
i,c:integer;
soma:vetors;
begin
for I:=1 to 3 do
begin
gotoxy(3,3);
writeln(' Filme 1') ;
gotoxy(3,4);
writeln(' Filme 2');
gotoxy(3,5);
writeln(' Filme 3');
gotoxy(19,1);
writeln('Digite Bilheteria');
gotoxy(18,2);
writeln(' Out');
gotoxy(24,2);
writeln('nov');
gotoxy(30,2);
writeln('dez');
gotoxy(12,i+2);
readln(filme[i]);
for c:= 1 to 3 do
begin
gotoxy(6*c+12,i+2);
readln(meses[i,c]);
soma[I]:=soma[I]+meses[I,c];
gotoxy(36,2);
writeln('Total p/filme');
If c=1 then
somao:=somao+meses[i,c];
If c=2 then
soman:=soman+meses [i,c];
If c=3 then
somad:=somad+ meses[i,c];
end;
gotoxy(36,2+i);
writeln(soma[i]);
end;
gotoxy( 2,7);
writeln('Total p/ mes');
gotoxy(18,7);
writeln (somao);
gotoxy(24,7);
writeln (soman);
gotoxy(30,7);
writeln (somad);
readln;
end.
Daniella Lavinas
ResponderExcluirProgram Filmes ;
type
vetor=array [1..3] of string;
matriz= array [1..3,1..3] of integer;
vetors=array [1..3] of integer;
var
filme:vetor;
meses:matriz;
somao:integer;
soman:integer;
somad:integer;
i,c:integer;
soma:vetors;
begin
for I:=1 to 3 do
begin
gotoxy(3,3);
writeln(' Filme 1') ;
gotoxy(3,4);
writeln(' Filme 2');
gotoxy(3,5);
writeln(' Filme 3');
gotoxy(19,1);
writeln('Digite Bilheteria');
gotoxy(18,2);
writeln(' Out');
gotoxy(24,2);
writeln('nov');
gotoxy(30,2);
writeln('dez');
gotoxy(12,i+2);
readln(filme[i]);
for c:= 1 to 3 do
begin
gotoxy(6*c+12,i+2);
readln(meses[i,c]);
soma[I]:=soma[I]+meses[I,c];
gotoxy(36,2);
writeln('Total p/filme');
If c=1 then
somao:=somao+meses[i,c];
If c=2 then
soman:=soman+meses [i,c];
If c=3 then
somad:=somad+ meses[i,c];
end;
gotoxy(36,2+i);
writeln(soma[i]);
end;
gotoxy( 2,7);
writeln('Total p/ mes');
gotoxy(18,7);
writeln (somao);
gotoxy(24,7);
writeln (soman);
gotoxy(30,7);
writeln (somad);
readln;
end.