Pamkeka

Muito obrigado pela ajuda. O programa está a funcionar lindamente!!!!! É o meu terceiro dia por aqui, e estou impressionadissima com a vossa atenção e disponibilidade de ajudar os outros!! Parabéns este fórum é 5 estrelas! :D

tipo introduzo os valores por exemplo na opção B, e a altura por ex, em vez de dar 49.54 da spre 4.954, isto acontece nas outras opções tambem, da sempre x.xxxxx :S será por causa da variável, talvez porque as contas tratam-se de numeros grandes?

Deu obrigadão :D agora tou e a ter algum problema com os resultados das contas...será por causa das variaveis?

Label LocalX; Var op: char; alt, comp, preço, area, precom, areapr : integer; crede, arede, avidro, cvidro : real; Begin LocalX: Writeln ('O que pretende das janelas de correr 2 folhas'); Writeln ('A- Area B- Tamanho da rede'); Writeln ('C- Tamanho do vidro D- Preço'); Readln (op); begin If (op = 'a') or (op = 'A') Then Writeln ('Introduza a altura e o comprimento da janela em centimetros'); Readln (alt, comp); area := alt * comp; Writeln ('A área da janela é de ',area,' centimetros quadrados'); If (op = 'b') or (op = 'B') Then Writeln ('Introduza a altura e o comprimento da janela em centimetros'); Readln(alt, comp); crede := (comp/2)- 0.0125; arede := alt - 0.049; Writeln ('O comprimento da rede é de ',crede,' centimetros'); Writeln ('A altura da rede é de ',arede,' centimetros'); If (op = 'c') or (op = 'C') Then Writeln ('Introduza a altura e o comprimento da janela em centimetros'); Readln (alt, comp); avidro := (alt - 0.048) - 0.085; cvidro:=(comp / 2) - 0.0745; Writeln ('A altura do vidro é de ',avidro,' centimetros'); Writeln ('O comprimento do vidro é de ',cvidro,' centimetros'); If (op = 'd') or (op = 'D') Then Writeln ('Qual o valor de 1metro quadrado das janelas de correr 2 folhas?'); Readln (precom); Writeln ('Qual a área da janela que pretende saber o preço?'); Readln (areapr); preço := areapr * precom; Writeln ('O preço da janela é de ',preço,'euros'); end; End. Se escolho a opção A o programa corre normalmente, mas se escolho outra opção o programa não corre, aparecendo na ultima linha escrita a letra que escolhi apenas.... Alguém pode-me ajudar??? Sou novata em programação.... (sei que ainda não fiz uso do Label, só tou a espera de resolver o problema do run para poder continuar com o programa.)

valeu, já achei o TPW 1.5 (é o k uso na escola) :)

Programa bom do pascal..se souberem algum onde o posso sacar? Obrigado