bcymek Napisano Luty 13, 2012 Zgłoś Share Napisano Luty 13, 2012 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 More sharing options...
5corpio Napisano Luty 13, 2012 Zgłoś Share Napisano Luty 13, 2012 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 More sharing options...
bcymek Napisano Luty 13, 2012 Autor Zgłoś Share Napisano Luty 13, 2012 dzięki za rade. też tak myślałem ale dla zielonego ciężko zauważyć takie idiotyczne błedy. No to piszemy od nowa... Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.