[Informação] Exemplo de programa Pascal

[Informação] Exemplo de programa Pascal



Cerveja Gforum

Repetição




Program Soma-Pares;
var
superior, soma, num, i:integer;
begin
soma:=0;
write ('Entre com o limite superior');
readln (superior);
num:=2;

Repeat
begin
soma:=soma+num;
num:=num+2;
end
until (num > superior);

writeln('A soma dos números pares de 2 até ', superior, ' é ', soma);
end.

Teste Lógico


program Teste;

var a,b:integer;

begin
write ('Digite um número para A');
readln (a);
write ('Digite o número para B');
readln (b);

if (a > b) then (* Se A é maior que B então *)
writeln ('A é maior que B')
else (* Senão... *)
writeln ('B é maior que A');
end.

Exemplo de contador



program Contar; (* nome do programa *)
var
contador: integer; (* declaração de variáveis *)
begin // inicio do bloco
writeln('Contando ate 10...'); (* escreve na tela *)
for contador := 1 to 10 do // conta até 10
begin
writeln('Num: ', contador); (* imprime até 10 *)
end;
readln(contador); (* lê a variável contador *)
end.

Program Calculadora
Uses CRT;
Var
Opção: char
{sub rotinas de cálculos}
Procedure rot_adicao;
Var
X,a,b:real;
Tecla:char;
Begin
Clrscr
Gotoxy(32,1);write(‘rotina de adicao’);
Gotoxy(5,6);write(‘entre um valor para a:’);
Readln(a);
Gotoxy(5,7);write(‘enter um valor para a:’);
Readln(b);
X:=a+b;
Gotoxy(5,10);write (‘ o resultado equivale a:’ x:6:2);
Gotoxy(25,24);writeln(‘ tecle algo para voltar ao menu:’);
End;
Procedure rot_subtracao;
Var
X,a,b:real;
Begin
Clrscr;
Gotoxy(30,1);write(‘rotina de subtração’);
Gotoxy(5,6);write(entre um calor a:’)
Readln(b);
X:=a-B;
Gotoxy(5,10);write(‘o resultado equivale a:’,x:6:2);
Gotoxy(25,24);writeln(‘tecle algo para voltar ao menu’);
Tecla:=readkey
End;
{programa principal
(Final de tudo)
Begin
Opca:=’0’
While (opção<>’5’) do Begin
Clrscr;
Begin

Gotoxy(33,1);write(‘menu principal’);
Gotoxy(28,6);write(‘1……….soma’);
Gotoxy(28,8);write(‘2…....subtração’);
Gotoxy(28,10);write(‘3………multiplicação’);
Gotoxy(28,12);write(‘4…………….divisão’);
Gotoxy(28,14);write(‘5…………….fim de programa’);
Gotoxoxy(28,18);write(‘escolha uma opção’);
Realdln(opção);

If(opcao=’1’) then
Rot_adicao;
If(opcao=’2’) then
Rot_subtracao;
If(opcao=’3’) then
Rot_multiplicacao;
If(opcao=’4’)then
Rot_divisao;
End;
End.