Exercícios de linguagem pascal com comentários

Prévia do material em texto

Lista de exercícios resolvidos com comentários em Linguagem Pascal
	Uma breve introdução 	
O que é um Compilador ?
Classicamente, um compilador traduz um programa de uma linguagem textual facilmente entendida por um ser humano para uma linguagem de máquina, específica para um processador e sistema operacional. Atualmente,
 Os compiladores da Linguagem Pascal são : Pascalzim, Turbo Pascal e Free Pascal
OBS : para executar os programas , baixe qualquer um dos compiladores :
 EU UTILIZO O COMPILADOR PASCAZIM
 Link pra baixar : http://www.baixaki.com.br/download/pascal-zim-.htm
 Palavras Reservadas em Pascal (muito importante saber )
Palavras Reservadas em Pascal:
Until - Até
Boolean - Booleano
Char - Caractere (1 caractere)
String - Caractere (pelo menos 2)
Case - Caso
Downto- Decrescente
And - e
While - Enquanto
Write - Escreva
Do - Faça
End - Fim
Begin - Inicio
Integer - Inteiro
Read - Leia
Or - Ou
For - Para
To - Para
Program - Programa
Real - Real
Repeat - Repita
If - Se
Else - Senão
Go To - Vá Para
Var - Variáveis
Array - Vetor
 1º programa
Em uma escola do ensino médio,um professor precisa calcular a media dos seus aluno. Faça um programa em Pascal que leia as 3 notas de um aluno e Calcule a Media .
 Solução 
Program media_notas ;
 var
nota1,nota2,nota3,soma,media:real;
 Begin
 writeln('digite as notas');
 readln(nota1,nota2,nota3);
 soma:= nota1+ nota2+nota3 ;
 media:= soma/3;
 writeln('a media é:',media);
 End.
2º Programa 
Faça um programa em Pascal que leia as 3 notas de um aluno , Calcule a Media e no final mostre se o aluno está aprovado ou reprovado.
OBS: media mínima para aprovação: 6
 Solução
Program media_aluno ;
var
soma,media,nota1,nota2,nota3:real;
 Begin
 writeln('calculo da media da Ruth Esther');
 readln(nota1,nota2,nota3);
 soma:= nota1+ nota2+ nota3;
 media:= soma/3;
 if media>6 then 
 writeln('aprovado');
 if media<6 then 
 writeln('reprovado');
 
writeln(' a media é:',media); 
 
 End.
3º Programa
faça um programa em pascal desejado pelo usuário , que faça a contagem decrescente ?
 Program contagem ;
var
 num,cont:integer;
 begin
 writeln('faça a contagem');
 readln(num);
 for cont:= num downto 0 do
 begin
 writeln(cont);
 delay(1000); 
 end;
 writeln('fim da contagem'); 
End.
Porque usar cont:= num downto 0 do ? o cont vai fazer a contagem de um determinado num qualquer até chegar no zero
Porque usar o for(para) ?
O Comando for , tem sempre um contador que sempre recebe o valor inicial e vai até ao valor final...contador:=ValorInicial to ValorFinal do.
Ou recebe o valor final e vai até ao valor inicial ...contador := valorfinal downto valor inicial.
Porque usar o Downto ? Usa-se sempre que desejamos fazer uma contagem decrescente , caso contrário usamos o somente o To
Porque usar o delay? o delay é uma palavra resevada ,utilizada para atrasar a contagem 
4º programa
faça um programa que mostra , quantas coisas uma determinada pessoa, digitou sobre o que comprou ou não comprou
Program compras ;
var
 comprou, ncomprou:string;
 Begin
 writeln('digite o que comprou ');
 readln(comprou);
 writeln('digite o que ncomprou');
 readln(ncomprou);
 writeln('ele comprou:',comprou);
 writeln('ele não comprou:',ncomprou);
 End.
5º Programa
Faça um programa que calcule o fatorial de um número qualquer
Program fatorial ;
var
 fat,num,cont:integer; 
 Begin
 fat:=1;
 writeln('escreva o valor');
 readln(num);
 for cont:=1 to num do
 begin 
 fat:= fat*cont;
 end;
 writeln('o fatorial é:',fat); 
 End.
 
Estudante de Engenharia Eletrônica: victorkt.blogspot.com.br