Não Está A Funcionar Correctamente

[Pamkeka]

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.)

[kuroi]

seu programa está meio estranho mesmo, você parece estar trocando o lugar dos begins e ends. tente isso:

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
            Begin
                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');
            End;
            If (op = 'b') or (op = 'B') Then
            Begin
                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');
            End;
            If (op = 'c') or (op = 'C') Then
            Begin
                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');
            End;
            If (op = 'd') or (op = 'D') Then
            Begin
                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;
End.[/code]

[Pamkeka]

Deu obrigadão :D

agora tou e a ter algum problema com os resultados das contas...será por causa das variaveis?

[kuroi]

não sei, qual é o problema??

[Pamkeka]

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?

[kuroi]

isso é coisa do pascal, ele mostra os valores reais em notacao cientifica. tenta assim:

                Writeln ('O comprimento da rede é de ',crede:10:2,' centimetros');
                Writeln ('A altura da rede é de ',arede:10:2,' centimetros');[/code]
onde 10 é o numero de espacos que o valor vai ocupar na tela e 2 o numero de casa decimais que serao mostrados.

[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