Pascal

Disponível somente no TrabalhosFeitos
  • Páginas : 10 (2471 palavras )
  • Download(s) : 0
  • Publicado : 12 de abril de 2013
Ler documento completo
Amostra do texto
AULA 4
1. Elaborar um algoritmo (Descrição Narrativa, Fluxograma e Pseudocódigo) que calculi e mostre a média
aritmética de duas notas de um aluno.

Program Pzim ; var n1,n2:integer; m:real; Begin write('Nota 1'); readln (n1); write('Nota 2'); readln(n2); m:= (n1+n2)/2; write('Sua média é:',m); End.

2. Elaborar um algoritmo (Descrição Narrativa, Fluxograma e Pseudocódigo) que calcule ocusto de um bolo
de aniversário, sabendo que o preço do quilo de bolo é de R$22,00. Program BoloAniver; Var Custo, Peso: Real; begin Custo:=0; write ('Digite o peso total do bolo de aniversário:'); read (Peso); Custo:= Peso * 22; write ('O custo total do bolo é : ', Custo:0:2); end.

3. Elaborar um algoritmo (Descrição Narrativa, Fluxograma e Pseudocódigo) que calculi o número de dias
existentesentre dois anos digitados pelo usuário. A entrada do ano deve ser com 4 dígitos: AAAA

Program Pzim ; var a1,a2,dias:integer; begin write ('Digite o ano: '); readln (a1); write ('Digite o ano: '); readln (a2); dias:=(a2*365)-(a1*365); write ('Entre ',a1,' e ',a2,' existem ',dias ,' dias.'); End.

AULA 5
1) Faça um algoritmo (Descrição Narrativa, Fluxograma e Pseudocódigo) que receba osalário de um funcionário e o percentual de aumento, calcule e mostre o valor do aumento e o novo salário. Program Pzim ;
var s,aumento:integer; vaumento,ns:real; begin write('Digite seu salário: '); readln(s); write('Digite a porcentagem de aumento: '); readln(aumento); vaumento:= (s*aumento)/100; ns:= (s+vaumento); writeln ('Seu aumento é de: ',vaumento); writeln ('Seu novo salário é: ',ns); End.2) Faça um algoritmo (Descrição Narrativa, Fluxograma e Pseudocódigo) que calcule e mostre a

área de um circulo. Sabe-se que: Área = .R2.
Program Pzim ; var pi,r:real; a:real; begin write('Digite o valor do raio: '); read(r); pi:=3.14; a:=(pi)*r*r; write('Area do circulo = ',a); End.

3) Faça um algoritmo (Fluxograma e Pseudocódigo) que receba o ano de nascimento de uma pessoa e o anoatual, calcule e mostre a idade dessa pessoa e quantos anos essa pessoa terá em 2020; Program Pzim ;
var aa,an,i2013,i2020:integer; Begin write('Digite seu ano de nascimento:'); readln(an); write('Digite o ano atual:'); readln(aa); i2013:=(aa-an); writeln('Voce tem:',i2013, 'anos'); i2020:=(2020-an); writeln('Em 2020 voce tera:',i2020, 'anos'); End.

4) Escreva um algoritmo (Fluxograma) que leiaduas variáveis inteiras e troque o conteúdo entre elas.
Program Pzim ;

var A,B,AUX:integer; begin write('Valor de A ='); readln (A); write('Valor de B ='); read (B); AUX:= A; A:= B; B:= AUX; writeln('Variavel A recebe o valor da variavel B que é: ',A); writeln('Variavel B recebe o valor da variavel A que é: ',B); End.

5) Faça um algoritmo (Fluxograma e Pseudocódigo) que receba um númeropositivo e maior que zero, calcule e mostre: a) o número digitado ao quadrado; b) a raiz quadrada do número digitado;
Program Pzim ; var n:integer; nq:real; begin write('Digite um numero:'); read(n);

nq:=(n*n); writeln('O numero digitado ao quadrado é: ',nq); writeln('A raiz quadrada do numero digitado é: ',sqrt(n)); End.

6) Escreva um algoritmo (Fluxograma) que leia três números inteiros epositivos (A, B, C) e calcule a seguinte expressão:
D = R+S/2 onde 'R=(A+B)*(A+B), e S=(B+C)*(B+C). Program Pzim ; var A,B,C:integer; D,R,S:real; begin writeln('Calculando a seguinte expressao: D = R+S/2, Onde:'); writeln('R=(A+B)*(A+B), e S=(B+C)*(B+C).'); write('De um valor para A: '); readln(A); write('De um valor para B: '); readln(B); write('De um valor para C: '); readln(C); R:=(A+B)*(A+B);writeln('O valor de R = ',R); S:=(B+C)*(B+C); writeln('O valor de S = ',S); D:=(R+S)/2; write('O resultado da expressao D = R+S/2 é igual à: ',D); End.

7) Pedro comprou um saco de ração com peso em quilos. Pedro possui dois gatos para os quais fornece a quantidade de ração em gramas. Faça um algoritmo (Fluxograma) que receba o peso do saco de ração e a quantidade de ração fornecida para cada...
tracking img