forked from lrlucena/while
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathteste.while
31 lines (23 loc) · 1.01 KB
/
teste.while
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
a := 10;
escreva a;
exiba "as";
a := 1;
b := 1;
exiba "tabela verdade ou:";
se verdadeiro ou verdadeiro entao exiba "verdadeiro" senao exiba "falso";
se verdadeiro ou falso entao exiba "verdadeiro" senao exiba "falso";
se falso ou verdadeiro entao exiba "verdadeiro" senao exiba "falso";
se falso ou falso entao exiba "verdadeiro" senao exiba "falso";
exiba "tabela verdade xou:";
se verdadeiro xou verdadeiro entao exiba "verdadeiro" senao exiba "falso";
se verdadeiro xou falso entao exiba "verdadeiro" senao exiba "falso";
se falso xou verdadeiro entao exiba "verdadeiro" senao exiba "falso";
se falso xou falso entao exiba "verdadeiro" senao exiba "falso";
exiba "comparacoes:";
se 1 > 1 entao exiba "verdadeiro" senao exiba "falso";
se 1 >= 1 entao exiba "verdadeiro" senao exiba "falso";
se 1 < 1 entao exiba "verdadeiro" senao exiba "falso";
se 1 <= 1 entao exiba "verdadeiro" senao exiba "falso";
se 1 <> 1 entao exiba "verdadeiro" senao exiba "falso";
para i de 1 ate 5 faca escreva i;
repita 10 vezes exiba "Funciona";