Advertisement
Guest User

Untitled

a guest
Jun 17th, 2010
420
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.24 KB | None | 0 0
  1. 1 . Localizar os livros de um determinado autor e listar o título de cada um.
  2.  
  3. caracter : nome_obra, nome_autor, editora;
  4. inteiro : ano_pub, edicao, con_pag, cont;
  5.  
  6. inicio
  7. escreva “Digite o nome do autor: ”;
  8. leia nome_autor;
  9. cont = 1
  10. enquanto cont <= 5000 faca
  11. escreva “Título do(s) livro(s) do autor ”,nome_autor, “ é: “,nome_obra;
  12. cont = cont + 1;
  13. fimenquanto
  14. fim
  15.  
  16. 2 . Localizar um determinado título e exibir as informações da obra.
  17.  
  18. caracter : nome_obra, nome_autor, editora;
  19. inteiro : ano_pub, edicao, con_pags, cont;
  20.  
  21. inicio
  22. escreva “Digite o título do livro: ”;
  23. leia nome_obra;
  24. cont = 1
  25. enquanto cont <= 50000 faca
  26. se nome_obra = nome_obra
  27. escreva “O título buscado foi: ”, nome_obra, “\n”;
  28. escreva “Informacoes: Obra: ”, nome_obra, “\n”;
  29. escreva “Informacoes: Editora: ”, editora, “\n”;
  30. escreva “Informacoes: Autor: ”, nome_autor, “\n”;
  31. escreva “Informacoes: Publicacao: ”, ano_pub, “\n”;
  32. escreva “Informacoes: Edicao: ”, nome_autor, “\n”;
  33. escreva “Informacoes: Paginas: ”, con_pags, “\n”;
  34. fimse
  35. cont = cont + 1
  36. fimenquanto
  37. fim
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement