Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: Programowanie- posze pilnie o pomoc

W dół

Od 1 do 2 z 2

  1.  
  1.  
    Hej, mam do Was ogromną prośbę. Potrzebuję na jutro 2 programy napisane w TurboPascalu, a niestety sama nie bardzo to potrafię. Czy moglibyście mi pomóc? Bylabym naprawdę wdzięczna. 1. Program, ktory oblicza potęgę pewnej liczby 10 razy (uzywając repeat until) 2. Program, powtarzający "Ia" dopóki nie wciśniesz klawisza "N" lub "n". Z góry dziękuję i liczę na szybką odpowiedź ...
    • CommentAuthorsteficzek
    • CommentTime17 Jan 2008 zmieniony
     
    Program Potega; Uses Crt; Var Liczba,i : Integer; Begin i:=0; Write('Podaj liczbe :'); Readln(Liczba); repeat Writeln(Liczba*Liczba); Inc(i) until i=10 End. Program La; Uses Crt; Var Znak : Char; Begin repeat if KeyPressed then Znak:=ReadKey; Write('La') until UpCase(Znak)='N' End. Pozdrawiam Stefan Pruszkiewicz

Od 1 do 2 z 2

  1.