Skocz do zawartości

skrypt free pascal


bcymek

Polecane posty

Witam. Mam pewien problem a konkretnie chodzi mi o skrypt we free pascalu. Otóż napisałem skrypt, ale jest pewien problem bo gdy wpisuje wartości, zkompiluje i odpale skrypt to on sie uruchamia i od razu wylacza. Byłbym bardzo wdzięczny za pomoc.

Oto skrypt:

PROGRAM Figury; {IF}
USES Crt;
VAR
l, r, pole : REAL;
BEGIN {main - Figury}
ClrScr;
writeln('            	PROGRAM POZWALA NA OBLICZENIE:           	');
Writeln('                  	Pole stozka                     	');
BEGIN
BEGIN
Writeln('Obliczanie Pola stozka');
Writeln('Podaj promien podstawy');
Readln(r);
IF r < 0 then  HALT
else
Writeln('Podaj tworzaca stozka');
Readln(l);
IF l < 0
then HALT
else
pole:=2*Pi*r+Pi*r*l;
Writeln('Pole stozka o promieniu podstawy');
Writeln('r=', r:6:3);
Writeln('wynosi ', pole:6:3);
END;
END;
end.

Link do komentarza
Udostępnij na innych stronach

Nie pamiętam już tego archaizmu :) ale po co robisz 2x BEGIN i 2xEND ? Poza tym masz błąd np. tu:

 

IF l < 0
then HALT
else
pole:=2*Pi*r+Pi*r*l;
Writeln('Pole stozka o promieniu podstawy');
Writeln('r=', r:6:3);
Writeln('wynosi ', pole:6:3);

 

po else powinieneś dać ten kod właśnie w begin - end bo takto to po else wywoła ci się jedna linijka ta pole := a te Writeln już się nie wyświetlą poprawnie. Coś namieszałeś z tymi BEGIN i END wywal je wszystkie i napisz po ludzku ten kod.

Ot taka mini-strona moja po godzinach :)http://www.wnetrzekuchni.pl

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...