24653932

If Then

Computação
Eletrônica
If-Then-Else

Exemplo

if ExpressaoLogica then begin comando1; comando2; comando3;
…
comandoN; end; Expressão lógica é qualquer expressão que retorna TRUE ou FALSE. comando1, comando2, etc. é qualquer comando
Pascal: write, writeln, readln, := ou mesmo outro If-Then.
Todo begin tem que casar com um end.

Exemplo

1

If Then Else

Exemplo

if ExpressaoLogica then begin comandos end else begin comandos end; Program aprovacao; var nota1, nota2, nota3: real; begin write('Entre com as 3 notas: '); readln(nota1, nota2, nota3); if ((nota1 + nota2 + nota3) / 3) >= 7 then begin write('Parabens'); end else begin write('Voce terá que fazer a final'); end; readln; end. Exemplo
Program triangulo; var l1, l2, l3: integer; begin write('Entre com os 3 lados de um triangulo: '); readln(l1, l2, l3); if (l1 < l2+l3) and (l2 < l1+l3) and (l3 < l1+l2) then begin write('Eh um triangulo'); end else begin write(‘Nao eh um triangulo'); end; readln; end. Exemplo else Program triangulo; var l1, l2, l3: integer; begin begin write(‘Nao eh um triangulo'); write('Entre com os 3 lados de um triangulo: '); end; readln(l1, l2, l3); readln; if (l1 < l2+l3) and (l2 < l1+l3) and (l3 < l1+l2) then end. begin if (l1=l2) and (l2=l3) then begin write(‘triangulo equilatero’); end else begin if (l1=l2) or (l2=l3) or (l3=l1) then begin write(‘triangulo isosceles’); end else begin write(‘triangulo escaleno’); end; end; end 2

Exemplo

Exemplo

Program aprovacao2; var nota1, nota2, nota3, media: real; begin write('Entre com as 3 notas: '); readln(nota1, nota2, nota3); media := (nota1 + nota2 + nota3) / 3; if (media >= 7) then begin write('Parabens'); end else begin final := 10 – media; write('Voce precisa tirar ‘,final:2:2, ‘na final’); end; readln; end. Exercício

Exemplo
Faça um programa que
1)
2)
3)
4)

Lê 2 números inteiros do