Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag
    • CommentAuthorChri$
    • CommentTime12 Mar 2008
     
    Witam wszystkich.. :p
    zwaracam sie z prosba do zaawansowanych userow(a moze i nie ;p) zeby mi ktos napisal program w pascalu "liczy pole i obowd prostokata o bokach a i b. liczby a i b sa wprowadzane z klawiatury.." program wydaje sie latwy -.-" ale gdy licza jest mniejsza od 0 ma go powtorzyc az do monentu gdy wprowadzimy poprawina liczbe (czy.t wieksza od 0) z gory dzieki :p
    • CommentAuthorsteficzek
    • CommentTime12 Mar 2008 zmieniony
     
    repeat Write('Podaj bok "a" :'); Readln(a); if a<=0 then Writeln('Bledne dane !'); until a>=0; Pozdrawiam Stefan Pruszkiewicz
    • CommentAuthorChri$
    • CommentTime3 Apr 2008
     
    dzieki :)