Lista de exercícios de ipd

QUESTÃO 1:
Program LAMP ;
VAR
N, W, L, C, P: REAL;
BEGIN
WRITELN('DIGITE A POTÊNCIA DA LÂMPADA:'); READLN(W); WRITELN('DIGITE A LARGURA DO CÔMODO:'); READLN(L); WRITELN('DIGITE O COMPRIMENTO DO CÔMODO:'); READLN(C); P:=18*L*C; N:=P/W; WRITELN('O NÚMERO DE LÂMPADAS É:', N);
END.

QUESTÃO 2:
Program REND;
VAR
I, F, G, R, C, L: REAL;
BEGIN
WRITELN('DIGITE A MARCAÇÃO DO ODÔMETRO NO INÍCIO DO DIA:'); READLN(I); WRITELN('DIGITE A MARCAÇÃO DO ODÔMETRO NO FINAL DO DIA:'); READLN(F); WRITELN('DIGITE O NÚMERO DE LITROS DE COMBUSTÍVEL GASTO:'); READLN(G); WRITELN('DIGITE O VALOR TOTAL RECEBIDO DOS PASSAGEIROS:'); READLN(R); C:=(F-I)/G; WRITELN('A MÉDIA DO CONSUMO É:', C); L:=R-(1.9*G); WRITELN('O LUCRO LÍQUIDO DO DIA É:', L);
END.

QUESTÃO 3:
PROGRAM SENHA;
VAR
SENHA, FlamengoCampeao:CHAR;
BEGIN
WRITELN('DIGITE A SENHA:'); READLN(SENHA); IF (SENHA=FlamengoCampeao) THEN WRITELN('ACESSO PERMITIDO') ELSE WRITELN('ACESSO NEGADO');
END.

QUESTÃO 4:
PROGRAM PESO;
VAR
H, S, P: REAL;
BEGIN
WRITELN('DIGITE A SUA ALTURA:'); READLN(H); WRITELN('DIGITE O SEU SEXO:'); WRITELN('1-FEMININO'); WRITELN('2-MASCULINO'); READLN(S); IF(S=1)THEN BEGIN P:=(62.1*H)-44.7; WRITELN('SEU PESO IDEAL É:', P); END ELSE BEGIN P:=(72.7*H)-58; WRITELN('SEU PESO IDEAL É:', P); END;
END.

QUESTÃO 5:
PROGRAM EXE;
VAR
A, B, C:INTEGER; D:REAL;
BEGIN
WRITELN('INSIRA O PRIMEIRO VALOR:'); READLN(A); WRITELN('INSIRA O SEGUNDO VALOR:'); READLN(B); WRITELN('INFORME A OPERAÇÃO. DIGITE 1 PARA ADIÇÃO, 2 PARA SUBTRAÇÃO, 3 PARA DIVISÃO OU 4 PARA MULTIPLICAÇÃO'); READLN(C); WHILE(C4)DO BEGIN WRITELN('A OPERAÇÃO NÃO EXISTE. DIGITE 1 PARA ADIÇÃO, 2 PARA SUBTRAÇÃO, 3 PARA DIVISÃO OU 4 PARA MULTIPLICAÇÃO'); READLN(C); END; CASE C OF 1: BEGIN D:=A+B; END; 2: BEGIN D:=A-B; END; 3: BEGIN D:=A/B; END; 4: BEGIN