erro ; expected

girl_tecnology
(usa Gentoo)

Enviado em 25/04/2008 - 17:36h

Estou tendo problemas em um programa, quero fazer um programa em pascal que calcula o preco de venda de pizzas. O meu problema nao e a logica do programa. O problema e que ta dar erro mas eu nao entendo proque o erro é ‘; expected’ mas eu nao vejo a onde falta esse ;

O prgrama e o seguinte
Program pizza;
Var
Tm,vb: char;
Pv,vb: real;
Ni,area: intenger;

Begin
Writeln (‘digite o valor base da pizza’);
Readln(vb);
Writeln(‘qual e o tamanho da pizza’);
Readln(tm);
Writeln(‘digite o numero de ingridientes’);
Readln(ni);
If tm=’pequeno’ then
Area:=20;
Ni:=ni
Else if tm=’medio’ then
Area:=30;
Ni:=(ni-1)
Else if tm=’grande’ then
Area:=40;
Ni:=(ni-1);
Pv:=(vb*area+(vb*area)*ni);
Writeln(‘o preco de venda da pizza é’, pv);
Readln;
End.

POR FAVOR RESPONDAM DEU UM TRABALHAO PARA PASSAR ISTO

removido
(usa Nenhuma)

Enviado em 25/04/2008 - 17:39h

Troque o Ni:=ni por Ni:=ni;
E o Ni:=(ni-1) por Ni:=(ni-1);

Ta faltando o ;

8(

girl_tecnology
(usa Gentoo)

Enviado em 25/04/2008 - 18:01h

E QUE ANTES DO ELSE NAO PODE TER ; NEM PPONTO, QDO PONHO NI:=NI; EM VEZ DE NI:=NI (SEM ;)DA ERRO IN STATMENT

marcus-rj
(usa Arch Linux)

Enviado em 25/04/2008 - 18:17h

Qual linha que dá erro, posta aí que ajuda muito.


Abs!

girl_tecnology
(usa Gentoo)

Enviado em 25/04/2008 - 18:24h

na linha antes do primeiro else.
onde vem ni:=ni
os tamanhos das letras no pascal nao influencia.

removido
(usa Nenhuma)

Enviado em 25/04/2008 - 21:39h

Por acaso não ta faltando um "begin"?

If ... then BEGIN...

Outra coisa, antes do END final, tem ";" naquele READLN?

relsi.ramone
(usa Ubuntu)

Enviado em 26/04/2008 - 13:29h

Oi, faz assim ó:


program Pizza;

var
Tm: char;
Pv, vb: real;
Ni, area: integer;

Begin
Writeln ('digite o valor base da pizza');
Readln(vb);
Writeln('qual e o tamanho da pizza');
Readln(tm);
Writeln('digite o numero de ingridientes');
Readln(ni);
If tm='pequeno' then
begin
Area:=20;
Ni:=ni;
end;

If
tm = 'medio' then
begin
Area:=30;
Ni:=(ni-1)
end;

If tm ='grande' then
begin
Area:=40;
Ni:=(ni-1);
end;

Pv:=(vb*area+(vb*area)*ni);
Writeln('o preco de venda da pizza ‚', pv);
Readln;

end.


Hugs!!

Relsi.

girl_tecnology
(usa Gentoo)

Enviado em 26/04/2008 - 16:38h

valeu relsi o programa corre perfeitamente, obrigado a todospor terem respondido....