Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 18 19 20 ... 30 31 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | Turbo Pascal dla zielonych |
2010-09-30 (13:28)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 497 [ CZCIONKA MONOSPACE ] to są detale ![]() najprościej obniżyć linijkę w dół wpisując po pętli : writeln; clrscr; writeln(\'Podałeś liczby : \'); for a :=1 to 15 do begin write(T[a],\' \'); end; writeln; albo nowe polecenie do ustawiania kursora w określonym miejscu , ale to kosmetyka , podobnie jak zmiana kolorów czy tła i to zaciemnia niepotrzebnie sens samego programu |
2010-09-30 (13:34)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 501 [ CZCIONKA MONOSPACE ] Ale uczy, kolory już pozmieniałem, jeszcze denerwuje mnie ten przecinek po 15 liczbie |
2010-09-30 (13:41)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 506 [ CZCIONKA MONOSPACE ] Trochę nawaliłem badziewia writeln; i textcolor ale mi wyświetla przynajmniej czytelnie i kolorowo. Może dam te writelny i textycolory w jedna linijkę ---- ---- |
2010-09-30 (13:51)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 516 [ CZCIONKA MONOSPACE ] tak np: writeln(\'Podaj,....itd); writeln; - w jednej lini czy writeln; texcolor(2); nie zawsze wolno a przecinek zlikwidować spróbuj : for a := 1 to 14 write(T[a],\' , \'); end; writeln(t[15]); na razie , będę wieczorem |
2010-09-30 (13:57)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 522 [ CZCIONKA MONOSPACE ] Co trzeba tu zmienić, żeby można było dodawać 6 liczb nie jedną ? Na końcu readln(1) znaczy, że 1 linika odstepu ? Potem writeln(wyniki,1) znaczy, że jedna liczb ? A powinno być 6 ale tak 1 2 3 4 5 6 nie tak 123456 |
2010-09-30 (13:59)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 524 [ CZCIONKA MONOSPACE ] To jest fragment z szablonów i trzeba go troszkę przekształcić na 6 liczb, żeby w programie dopisywać wyniki, kasować w pliku txt tak jak to robiliśmy w programie. Ja też spadam . |
2010-09-30 (17:21)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 570 [ CZCIONKA MONOSPACE ] Sam nie dam rady tego przekształcić. |
2010-09-30 (18:29)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 605 [ CZCIONKA MONOSPACE ] zamiast zmienej TN my mamy zmienną nowe w szablonach jest readln(L) nie 1 L- to zmienna , u nas może być np - dana append (wyniki); Writeln(\'podaj wyniki .....itd); for a:=1 to 5 do begin readln(dana); writeln(wyniki,dana,#9); {to jest tabulator} end; readln(dana); writeln(wyniki,dana); |
2010-09-30 (18:30)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 606 [ CZCIONKA MONOSPACE ] append (wyniki); Writeln(\'podaj wyniki .....itd); for a:=1 to 5 do begin readln(dana); write(wyniki,dana,#9); {to jest tabulator} end; readln(dana); writeln(wyniki,dana); |
2010-09-30 (18:38)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 609 [ CZCIONKA MONOSPACE ] #9 to dla programu tabulator ? |
2010-09-30 (18:51)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 611 [ CZCIONKA MONOSPACE ] Dym mi idzie z uszu a jemu ciągle coś nie pasuje . Kropka na końcu ? WTF ? |
2010-09-30 (18:53)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 612 [ CZCIONKA MONOSPACE ] I nie powinno być for a:=1 to 6 do begin ? lub a:=0 to 5 do begin ? |
2010-09-30 (19:15)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 622 [ CZCIONKA MONOSPACE ] powinno być ok brakuje tylko end; \'\'\'\'\'\'\'\'\'\'\'\'\'\'\' if nowe=\'T\' then begin append (wyniki); Writeln(\'podaj wyniki .....itd); for a:=1 to 5 do begin readln(dana); write(wyniki,dana,#9); end; end; readln(dana); writeln(wyniki,dana); |
2010-09-30 (19:17)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 623 [ CZCIONKA MONOSPACE ] sorry ma być: \'\'\'\'\'\'\'\'\'\'\'\'\'\'\' if nowe=\'T\' then begin append (wyniki); Writeln(\'podaj wyniki .....itd); for a:=1 to 5 do begin readln(dana); write(wyniki,dana,#9); end; readln(dana); writeln(wyniki,dana); end; |
2010-09-30 (19:18)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 624 [ CZCIONKA MONOSPACE ] zauważ jak idą wcięcia for i poniżej end są w tej samej linii if i .... brakuje do niego end |
2010-09-30 (19:24)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 626 [ CZCIONKA MONOSPACE ] To czemu piszesz for a:=1 to 5 do begin a nie 6 ? |
2010-09-30 (19:27)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 628 [ CZCIONKA MONOSPACE ] ponieważ 5 liczb wprowadza z tabulatorem a szóstą ze znakiem końca linii writeln a write to jest różnica , że write nie ma w sobie znaku konca linii szóstą wprowadzam przy pomocy writeln zaraz dam screna z wcięciami zaznaczone kolorami pętle |
2010-09-30 (19:28)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 629 [ CZCIONKA MONOSPACE ] ![]() |
2010-09-30 (19:33)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 630 [ CZCIONKA MONOSPACE ] Ty już widze, jesteś na zaawansowanym etapie. Program mi się odpala ale nie dopisuje wyników do pliku |
2010-09-30 (19:42)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 632 [ CZCIONKA MONOSPACE ] Powoli powoli powoli , zrobiłem trochę kosemtyki ( wcięcia if / end ). dodałem : close(wyniki) i until nowe=\'N\'; I znowu coś nie tak, kurko ja muszę powoli. bo to już wysokie progi. |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 18 19 20 ... 30 31 Wyślij wiadomość do admina |