Pascal - Estruturade decisão

Neste programa relacionado abaixo, temos um exemplo de estrutura "se" em pascal, onde calculamos o aumento do salario de uma pessoa, baseado no seu salario atual, cada salario tem um devido aumento.

Program salario ; var sal , sal2 : real; Begin Writeln ('Informe o salário'); Readln (sal); if (sal 600) and (sal 1100) and (sal 2400) and (sal 3500) then sal2 := (sal + (sal * 0.10)); Writeln (' Seu novo salário é ' , sal2); End.

Temos aqui outro exemplo:

Program lucro ;
Var lucro, vp, preco : real; Begin Writeln ('Informe o valor do produto'); Readln (vp); if (vp = 100) then Writeln ('Caro'); Writeln ('O adicional foi de: ' , ad); Writeln ('O imposto cobrado foi de: ' , i); Writeln ('O desconto foi de: ' , desc); Writeln ('O preço final é: ' , npreco); End.

Para complementar, temos outros exemplos:

Program Pzim ;
VAR senha : string; Begin Writeln ('Informe sua senha'); Readln (senha); if (senha = 'casarosa') Then Begin Writeln ('Acesso concluido.'); End Else Begin Writeln ('Acesso interrompido.'); End End.

Program Pzim ;
VAR A, B : integer; Begin Writeln ('Informe um número inteiro'); Readln (A); Writeln ('Informe outro número inteiro'); Readln (B); if (A=B) Then Writeln ('Os números são iguais'); if (A>B) Then Writeln (A , ' é maior que ' , B); if (AB) Then Writeln (A , ' é maior que ' , B); if (AB) Then Writeln (A , ' é maior que ' , B); if (AB) Then Writeln (A , ' é maior que ' , B); if (AB) Then Writeln (A , ' é maior que ' , B); if (AB) Then Writeln (A , ' é maior que ' , B); if