Exercicios programa pascal

Programas em Pascal
Resolução – Lista 01

01. Faça um algoritmo que leia os valores A, B, C e diga se a soma de A + B é menor que C.

program valores;

var a, b, c, soma:real;

begin writeln('Digite o valor para a:'); readln(a); writeln('Digite o valor para b:'); readln(b); writeln('Digite o valor para c:'); readln(c); soma:=a+b; if soma=ap then begin writeln('Nome do aluno:',nome); readln; writeln('A media do aluno eh:',media:5:2,'APROVADO' ); readln; end else begin writeln('Nome do aluno:',nome); readln; writeln('A media do aluno eh:',media:5:2,'APROVADO' ); readln; end end. 04. Faça um algoritmo que leia 3 números inteiros e imprima o menor deles.

program Numeros_inteiros;

var n1, n2, n3:integer;

begin writeln('Digite o primeiro numero:'); readln(n1); writeln('Digite o segundo numeo:'); readln(n2); writeln('Digite o terceiro numero:'); readln(n3); if (n1nota2) and (nota1>nota2) then begin media:=(nota3+nota1)/2; if media>=ap then begin writeln('Aluno Aprovado com media:',media:5:2); readln; end else writeln('Aluno Reprovado com media:',media:5:2); readln; end; end. Resolução – Lista 02

1. Tem-se um conjunto de dados contendo a altura e o sexo (M ou F) de 15 pessoas. Faça uma Programa que calcule e escreva: • a média de altura das mulheres; • número de homens.

Program SexoAltura ;

var Sexo: integer; NumeroMasc: integer; NumeroFem: integer; SomaAltura: real; Altura: real; MediaAltura: real; x: integer;

begin x:= 0; repeat write('Escreva a sua altura em centimetros: '); readln (Altura); write('Qual o seu Sexo? Digite 1 para Masculino ou 2 para Feminino'); readln (Sexo); if Sexo = 2 then SomaAltura:= SomaAltura + Altura; NumeroFem:= NumeroFem + 1; if Sexo = 1 then NumeroMasc:= NumeroMasc + 1; x:= x + 1; until x = 15; MediaAltura:=