Question

Witam mam problem z Turbo Pascalem.Miłem zrobić programm z instrukcją CASE który wygląda tak :

Program Wykonywujacy_instrukcje_case;
uses crt;
var
a, b, h, e, f, c, p :integer;
begin
clrscr;
writeln('MENU:');
writeln('1:Oblicz Pole Prostokąta');
writeln('2:Oblicz Pole Trójkata');
writeln('3:Oblicz Pole Rombu');
c:=readkey;

Case c of
1:begin
writeln ('Wprowadz a:');
readln(a);
writeln ('Wprowadz b:');
readln(b);
if a>0 then
begin
p:=a*b;
writeln('Pole Prostokata: ',p)
end
Else a<=0 then
begin
writeln('Długość Boku nie może byc ujemna!');
end;
end;
end;

Oczywiście jest on niedokończony ale pokazuje się taki komunikat:(załącznik)

Co mam zrobić próbowałem zmieniać przecinki średniki i nic pomóżcie!!

Dam Naj!!!

Answer 1

Masz źle przypisaną zmienna odpowiadającą za readkey, #liczba -> ozncza znak w kodzie asci (tabela wikipedia). można też zapisać '1' o ile dobrze pamiętam

 

Tu masz poprawiony kod:

 

Program Wykonywujacy_instrukcje_case;
uses crt;
var
a, b, h, e, f,p :integer;

c:char;
begin
clrscr;
writeln('MENU:');
writeln('1:Oblicz Pole Prostokąta');
writeln('2:Oblicz Pole Trójkata');
writeln('3:Oblicz Pole Rombu');
c:=readkey;

Case c of
#49:begin
writeln ('Wprowadz a:');
readln(a);
writeln ('Wprowadz b:');
readln(b);
if a>0 then
begin
p:=a*b;
writeln('Pole Prostokata: ',p)
end
Else a<=0 then
begin
writeln('Długość Boku nie może byc ujemna!');
end;
end;
end;