1 / 26

Programação e Estrutura de Dados

Programação e Estrutura de Dados. Prof. : Flavio Bellotti. Outros tipos de unidades: dos , graph , windos. Identificadores ou Variáveis. Palavras Reservadas. Tipos de palavras mais utilizadas em Pascal. E X E R C . E X E R C Í C I O S. E X E R C Í C I O S.

hanzila
Télécharger la présentation

Programação e Estrutura de Dados

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Programação e Estrutura de Dados Prof. : Flavio Bellotti

  2. Outros tipos de unidades: dos, graph, windos

  3. Identificadores ou Variáveis

  4. Palavras Reservadas

  5. Tipos de palavras mais utilizadas em Pascal

  6. E X E R C E X E R C Í C I O S E X E R C Í C I O S E X E R C Í C I O S E X E R C Í C I O S E X E R C Í C I O S E X E R C

  7. E X E R C Í C I O S 1) Faça um programa que receba quatro números inteiros, calcule e mostre a soma destes números.

  8. 1ª Solução em Pascal – EX1 PROGRAM EX1; USES CRT; VAR n1, n2, n3, n4, soma: INTEGER; BEGIN CLRSCR; READLN(n1, n2, n3, n4); soma := n1 + n2 + n3 + n4; WRITELN(soma); READLN; END.

  9. 2ª Solução em Pascal – EX1 PROGRAM EX1; USES CRT; VAR n1, n2, n3, n4, soma: INTEGER; BEGIN CLRSCR; WRITELN('Digite quatro números'); READLN(n1, n2, n3, n4); soma := n1 + n2 + n3 + n4; WRITELN('Resultado da soma = ',soma); READLN; END.

  10. 1ª Solução E X E R C Í C I O S 2) Faça um programa que receba três notas, calcule e mostre a média aritmética entre elas.

  11. 2ª Solução

  12. 1ª Solução em Pascal – EX2 PROGRAM EX2; USES CRT; VAR nota1, nota2, nota3, media: REAL; BEGIN CLRSCR; READLN(nota1, nota2, nota3); media := (nota1 + nota2 + nota3)/3; WRITELN(media:4:2); READLN; END.

  13. 2ª Solução em Pascal – EX2 PROGRAM EX2; USES CRT; VAR nota1, nota2, nota3, soma, media: REAL; BEGIN CLRSCR; WRITELN('Digite as três notas'); READLN(nota1, nota2, nota3); soma := (nota1 + nota2 + nota3); media := soma/3; WRITELN(media:4:2); READLN; END.

  14. ATENÇÃO – SITUAÇÃO TIPO DE DADOS

  15. 3ª Solução em Pascal – EX2 PROGRAM EX2; USES CRT; VAR nota1, nota2, nota3, media: REAL; BEGIN CLRSCR; WRITELN('Digite a primeira nota'); READLN(nota1); WRITELN('Digite a segunda nota'); READLN(nota2); WRITELN('Digite a terceira nota'); READLN(nota3); media := (nota1 + nota2 + nota3)/3; WRITELN('M‚dia = ',media:4:2); READLN; END.

  16. 1ª Solução E X E R C Í C I O S 3) Faça um programa que receba três notas e seus respectivos pesos, calcule e mostre a média ponderada dessas notas.

  17. 2ª Solução

  18. 1ª Solução em Pascal – EX3 PROGRAM EX3; USES CRT; VAR nota1, nota2, nota3, peso1, peso2, peso3, media: REAL; BEGIN CLRSCR; READLN(nota1, nota2, nota3, peso1, peso2, peso3); media := (nota1 * peso1 + nota2 * peso2 + nota3 * peso3)/(peso1 + peso2 + peso3); WRITELN(media:5:2); READLN; END.

  19. 2ª Solução em Pascal – EX3 PROGRAM EX3; USES CRT; VAR nota1, nota2, nota3, peso1, peso2, peso3: REAL; soma1, soma2, soma3, total, media: REAL; BEGIN CLRSCR; WRITELN('Digite as três notas'); READLN(nota1, nota2, nota3); WRITELN('Digite os três pesos'); READLN(peso1, peso2, peso3); soma1:=nota1 * peso1; soma2:=nota2 * peso2; soma3:=nota3 * peso3; total:=peso1 + peso2 + peso3; media := (soma1 + soma2 + soma3)/total; WRITELN('M‚dia Ponderada = ',media:5:2); READLN; END.

  20. 3ª Solução em Pascal – EX3 PROGRAM EX3; USES CRT; VAR nota1, nota2, nota3, peso1, peso2, peso3: REAL; soma1, soma2, soma3, total, media: REAL; BEGIN CLRSCR; WRITELN('Digite a 1¦ nota'); READLN(nota1); WRITELN('Digite o peso da 1¦ nota'); READLN(peso1); WRITELN('Digite a 2¦ nota'); READLN(nota2); WRITELN('Digite o peso da 2¦ nota'); READLN(peso2); WRITELN('Digite a 3¦ nota'); READLN(nota3); WRITELN('Digite o peso da 3¦ nota'); READLN(peso3); soma1:=nota1 * peso1; soma2:=nota2 * peso2; soma3:=nota3 * peso3; total:=peso1 + peso2 + peso3; media := (soma1 + soma2 + soma3)/total; WRITELN('M‚dia Ponderada = ', media:5:2); READLN; END.

More Related