Programa Pascal Salvo Automaticamente
program ex2;
uses crt; var x, q: integer; r: real; begin clrscr; write('Informe um numero: '); readln(x); q:= sqr(x); writeln('O quadrado de ', x, ' ‚ ', q); if x>=0 then begin r:= sqrt(x); writeln('A raiz quadrada de ', x, ' ‚ ', r:0:2); end else begin writeln('Nao existe raiz de ',x); end; readkey; end.
8) antes do raciocionamento de energia ser decretado, quase ninguém falava...
Algoritmo “Exercício 4” var sm,k: real inicio escreva”r$350,100 kw” leia (sm, k) escreva”cada kilowat custa”1/700*sm” reais a conta final eh”k/700*sm”com desconto fica”k/100*sm – k/100*sm*0.1 fimalgoritmo inicio sm, qtdade, preco, vp, vd: real; escreva(“informe o valor do salario minimo: ”); leia(sm); escreva(“informe a quantidade de quilowatts: ”); leia(qtdade); preco <- sm/700; vp <- preco* qtdade; vd <- vp * 0,9; escreva(“preco do quilowatt: ”, preco); escreva(“valor a ser pago: ”, vp); escreva(“valor com desconto: ”, vd); fim O algoritmo deverá apresentar os valores da velocidade média, tempo gasto na viagem, distância percorrida e a quantidade de litros utilizados na viagem. inicio tempo, vel, dist, litros: real; escreva(“informe o tempo gasto: ”); leia(tempo); escreva(“informe a velocidade média: ”); leia(vel); dist <- tempo * vel; litros <- dist/12; escreva (“a velocidade média foi ”, vel);; escreva (“o tempo gasto na viagem foi ”, tempo); escreva (“a distância percorrida foi ”, dist); escreva (“o consumo de comsbutível foi ”, litros); fim Faça um algoritmo que leia um número e escreva se ele é par ou impar. inicio a : inteiro; escreva(“informe um número: ”); leia(a); se (a mod 2 = 0) então escreva(“número par”); senão escreva(“número impar”); fimse fim.
7) Ler dois valores para as variáveis A e B, e efetuar as trocas dos valores de forma que a variável A passe a possuir o valor da variável B e a variável B passe a possuir o valor da