Ohne Titel

Seite 1

1) a: =inteiro/pare=caracter

b: 5=inteiro

c: 3,5=real

d: preserve meio ambiente=caracter/100,9=real

e: 57,3real100=inteiro/1=8inteiro

2) U2, UYT, B52, ASDRUBAL, RUA, CEP, BCAD. BDAC

3) algoritmo ''sequência''

var

A, B, C, D : inteiros

inicio

escreva (''dê 4 valores inteiros'')

leia (A, B, C, D)

se (C>D) e (A<C) e (A>D) e (B<A) e (B<C) e (B<D) entao escreva (''a sequência é :''. C,A,D,B)

senao (D>C) e (A<D) e (A>C) e (B<A) e (B<C) e (B<D) escreva (''a sua sequência é :'', D,A,C,B)

escreva (''sequência invalida'')

fimse

fimsenao

fimalgoritmo

4) a: algoritmo ''pressão de uma caldeira''

var

P: real

inicio

escreva (''qual é o valor mostrado no mostrador digital'')

leia (P)

se (P<3)

escreva (''pressao baixa'')

senao (P>3) e P<6)

escreva (''pressao média'')

senao (P>6)

escreva (''perigo : pressão alta'')

senao

escreva (''este valor é invalido'')

fimse

fimsenao

fimsenao

fimsenao

fimalgoritmo

4)b1: algoritmo ''area do trapezio''

var

a,b,c,at : real

inicio

escreva (''de o valor da base menor'')

escreva (''de o valor da base maior'')

escreva (''de o valor da altura'')

leia (a)

leia (b)

leia (c)

at<-( a+b)/-5 *c

escreva ('' o valor da area do seu trapezio é :'', at

fimalgoritmo

4)b2: algoritmo ''are do cubo''

var

ac,a : real

inicio

escreva (''de um valor para a aresta do seu cubo'')

leia (a)

ac<- (6*a)

escreva (''a area do seu cubo é :'', ac)

fimalgoritmo