Trabalho Computação

Sumário 1. Exercícios contínuos 3 1.1 Exercício 01 3 1.2 Exercício 02 4 1.3 Exercício 03 4 1.4 Exercício 04 5 Permita ao usuáario digitar o raio e a altura de um cilindro. Calcular e mostrar o seu volume e área de superfície. 5 program ex04 5 real r,h,v,a1 5 1.5 Exercício 05 5 Permita a entrada da idade de uma pessoa. Calcular e mostrar quantos dias ela viveu.( Anos completos e com 365 dias). 5 program ex05 5 integer i,d 5 Write(*,*) “ Digite a sua idade :” 5 read(*,*) i 5 d=i*365 5 Write(*,*)” Voce viveu “,d,”dias.” 5 endpogram ex05 5 1.6 Exercício 06 5 Permita ler o preço da gasolina e o valor pago por um usuário. Determine a quantidade de gasolina inserida no tanque. 5 program ex06 6 real g,p,q 6 write(*,*) “ Digite o preco da gasolina:” 6 read(*,*) g 6 write(*,*) “ Digite o valor pago” 6 read(*,*) p 6 q=p/g 6 write(*,*) “ A quantidade comprada em litros foi de :” , q 6 endprogram ex06 6 1.7 Exercício 07 6 Ler o salário de um funcionário. Calcular e mostrar o novo salário com 15% de acréscimo. 6 program ex07 6 real salario,reajuste,novo 6 write(*,*) “ Digite o salario atual” 6 read(*,*) salario 6 reajuste=salario*0.15 6 novo=salario+reajuste 6 write(*,*) “ O novo salario e:”,novo 6 endprogram ex07 6 1.8 Exercício 08 6 Ler o valor de um cheque e determinar quanto seria o CPMF (0,38%) 6 program ex08 6 real c,i,cpmf 6 write(*,*) “ Digite o valor do cheque” 6 read(*,*) c 6 cpmf=0.038*c 6 Write(*,*) “ O valor da CPMF e de :” , cpmf 6 1.9 Exercício 09 6 Leia a altura…

M, S, R: integer; Begin write('Escreva o tempo em segundos: '); read(N); H:= N div 3600; R:= N mod 3600; M:= R div 60; S:= R mod 60; writeln; write(H,' hora(s) '); write(M,' minuto(s) '); write(S,' segundo(s).'); End. 9- Escreva um algoritmo que leia 3 números inteiros e mostre o maior deles. Program Pzim ; Var A,B,C: integer; Begin write('A = '); READ(A); write('B = '); READ(B); write('C = '); READ(C); IF ((A>B) AND (A>C)) THEN WRITE (A, ' eh o maior numero') ELSE IF…

Exercício 3 Program Ex3 ; var idade:integer; Begin Writeln ('Informe a idade da pessoa: '); Readln (idade); If (idade>=0) and (idade<=3) then Write ('Esta pessoa é um bebê.'); If (idade>=4) and (idade<=10) then Write ('Esta pessoa é uma criança.'); If (idade>=11) and (idade<=18) then Write ('Esta pessoa é um adolescente.'); If (idade>18) then Write ('Esta pessoa é um adulto.'); End. Exercício 4 Program Ex4 ; var…

nota3,nota4,mediaFinal,soma,divisao: real; Begin write('Digite as suas quatro notas: '); read(nota1,nota2,nota3,nota4); soma:=(nota1+nota2+nota3+nota4); divisao:=(soma/4); if (mediaFinal>7) then write('Você está aprovado(a)') else if (mediaFinal<7) then write('Você está reprovado(a)'); readkey; End. [ Responder esse comentário ] [Novo Comentário] Questão 3) - 30/03/15 11:05 [Ver perfil] Program Pzim ; {3)Dada a idade de um nadador, informe,…

FIT – Faculdade de Informática de Taquara Curso de Sistemas de Informação EXERCÍCIOS e Respostas da disciplina de PROGRAMAÇÃO I - Linguagem Pascal - Profa. Flávia Pereira de Carvalho Agosto de 2006 Exercícios de Programação I - Linguagem Pascal Sumário Página Simples - 1 ao 7.............................................................................................................................................................3 Seleção - 1 ao…

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…

integer:: x,num1 write(*,*)"digite dois números” read(*,*) x,num1 write(*,*)"a soma é",x+y end program math2 Aquecimento 2 ● Sabendo que a temperatura pode ser escrita em graus Centígrados e Farenheit e que a equação de conversão é dada pela equação abaixo, faça um programa que recebe graus na escala Farenheit e converta para graus centígrados C=5/9(F-32) ● Volta de Apresentação ● Faça um programa que receba a temperatura em graus centígrados e transforme para…

Algumas Explicações ............................. 01 8.3. Exercícios .............................................. 13 1.4. Exercícios ............................................... 01 1.5. A Unidade CRT ...................................... 02 1.6. Exercícios ............................................... 02 9. Arquivos ....................................................... 13 9.1. Principais Operações em Arquivos....... 13 9.2. Gravando um Arquivo…

Algumas Explicações ............................. 01 8.3. Exercícios .............................................. 13 1.4. Exercícios ............................................... 01 1.5. A Unidade CRT ...................................... 02 1.6. Exercícios ............................................... 02 9. Arquivos ....................................................... 13 9.1. Principais Operações em Arquivos....... 13 9.2. Gravando um Arquivo…

...........................8 Exercícios de Fixação I ....................................................................................9 Formulários .................................................................................................. 10 Exercícios de Fixação II ................................................................................. 11 Envio de Arquivos......................................................................................... 12 Introdução…