Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 17 18 19 ... 30 31 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | Turbo Pascal dla zielonych |
2010-09-30 (00:51)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 412 [ CZCIONKA MONOSPACE ] I etap który kuraka robiła by 5 minut, skończony . I tak większej połowy komend dalej nie rozumiem ale działa to coś : |
2010-09-30 (01:00)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 413 [ CZCIONKA MONOSPACE ] Teraz trzeba dodać 2 tablicę . Ale to musi być inny plik chyba nie txt ? W nim będzie podane 15 liczb, może lepiej jak będą 1 pod drugą : |
2010-09-30 (01:01)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 414 [ CZCIONKA MONOSPACE ] Ale bez kurki nie zaczynam mojej drogi krzyżowej z Paskalem Ja się tylko przyglądam i przepisuje ![]() |
2010-09-30 (01:07)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 415 [ CZCIONKA MONOSPACE ] I chce żebyśmy to robili wolniej i wyjaśniali każdy znak na niebieskim tle . |
2010-09-30 (01:08)![]() Data rejestracji: 2009-06-06 Ilość postów: 1151 ![]() | wpis nr 360 416 [ CZCIONKA MONOSPACE ] Spoke jednak zostaniesz prezydentem .... Pozdrawiam... |
2010-09-30 (01:11)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 417 [ CZCIONKA MONOSPACE ] Na razie to jestem pomocnikiem syna zastępcy radnego mojej Wsi. |
2010-09-30 (01:26)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 419 [ CZCIONKA MONOSPACE ] Kurko jeżeli nie będę odpisywał to nie czekaj na mnie z programem. Muszę ograniczyć spędzanie tutaj czasu i pisanie postów, które w większości są spamem. Pozdrawia |
2010-09-30 (11:21)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 460 [ CZCIONKA MONOSPACE ] Spoke , jeśli 15 liczb było by zawsze takie same to może byśmy i tak mogli zrobić, ale te 15 liczb będzie różne , więc trzeba je wprowadzać inaczej . etap I jest omówiony więc poczytaj str:7 pętla for jest na str:2 15 liczb możemy wprowadzić za pomocą pętli for: dodajemy po : writeln(\'I etap zakonczonyitd); writeln(\'Podaj 15 liczb , po każdej zatwierdź enterem\'); for a:=1 to 15 do begin readln(dana); T[a]:=dana; end; jak to wygląda: pętla rozpoczyna się z a=1 i podajemy pierwszą liczbę : readln(dana); która będzie w zmiennej \"dana\". do tablicy T w miejsce T[a] czyli do krateczkinr 1 bo a=1 wpiszemy to co wprowadziliśmy : T[a]:=dana; i mamy pierwszą liczbę wprowadzoną do T pod nr 1 pętla powtarza się i a=2 zakończy się gdy a=15 i ostatnie tzn 15-sta liczba zostanie wprowadzona do T pod nr 15 |
2010-09-30 (11:29)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 463 [ CZCIONKA MONOSPACE ] Możemy teraz wyczyścić ekran iwyświetlić zawartość tablicy T by zobaczyć czy dobrze wprowadziliśmy nasze liczby : dodajemy dalej : writeln(\'Podaj 15 liczb , po każdej zatwierdź enterem\'); for a:=1 to 15 do begin readln(dana); T[a]:=dana; end; clrscr; writeln(\'Podałeś liczby : \'); for a :=1 to 15 do begin write(T[a],\' \'); end; to by było wszystko na temat wprowadzania . No jeszcze czeka nas uzupełnianie wyników losowania . Później będzie sprawdzanie , porównywanie . |
2010-09-30 (12:46)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 478 [ CZCIONKA MONOSPACE ] write(T[a],\' \'); Czy ten znaczek \' \' oznacza że będą wyświetlane następne liczby ? Czy co ? Bo nie wiem po co on tam jest. Jeżeli chcę żeby mi wyświetliło 10 liczb to wpisuje : for a:=1 to 15 do begin lub, żeby sprawdzić ostatnią for a:=15 do begin ? |
2010-09-30 (12:51)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 479 [ CZCIONKA MONOSPACE ] Nie działa, pewnie coś brakuje na początku : |
2010-09-30 (13:05)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 484 [ CZCIONKA MONOSPACE ] for a:=1 to 15 do begin writeln(\'coś tam); end; powoduje że wyświetli : coś tam coś tam ........itd natomiast write(\'coś tam\'); coś tamcoś tamcoś tam.....itd by była przerwa to : write(\'coś tam \') - jest spacja również write(T[a],\' \') to spacja brakuje zmiennej a na górze |
2010-09-30 (13:05)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 485 [ CZCIONKA MONOSPACE ] A jeszcze chiałbym dodać po 1 etapie pytanie : Czy chcesz dodać kolejne losowanie do bazy ? T/N Czy chcesz wyświetlić ostatnie losowanie jakie znajduje się w bazie ? T/N ??? |
2010-09-30 (13:09)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 489 [ CZCIONKA MONOSPACE ] var a,x byte - teraz tak jest Znowu pyta się o T identifikator not found T (23,9) - || - (35,9) |
2010-09-30 (13:11)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 490 [ CZCIONKA MONOSPACE ] Po wczytaniu czyli po pierwszym etapie dodajemy pytanie czy wprowadzamy następne losowanie (tak jak piszesz będą dwie możliwości T lub N) pętla która czeka na jedną z dwóch opcji : T lub N repeat nowe:=upcase(readkey); until (nowe=\'T\') or (nowe=\'N\'); nowe -trzeba zdefiniować na początku jako znak czyli char (obok koniec dopisujesz nowe) |
2010-09-30 (13:13)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 491 [ CZCIONKA MONOSPACE ] Powoli, brakuje identyfikatora T, dodałem go do var ale nie działa. |
2010-09-30 (13:13)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 492 [ CZCIONKA MONOSPACE ] T to będzie tablica o wymiarze 1x15 pisałam że należy ją zdefiniować : T : array [1..15] of word; |
2010-09-30 (13:17)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 493 [ CZCIONKA MONOSPACE ] działa, ale wyświetla mi liczby nie po spacji tylko tak : Twoje podane liczby to 123456789101112131415 |
2010-09-30 (13:19)![]() Data rejestracji: 2009-01-23 Ilość postów: 2551 ![]() | wpis nr 360 494 [ CZCIONKA MONOSPACE ] w zapisie : write(T[a],\'spacja\'); między apostrofami jest spacja. będę po później , jeszcze może zerknę za chwile |
2010-09-30 (13:20)![]() Data rejestracji: 2008-12-15 Ilość postów: 4663 ![]() | wpis nr 360 495 [ CZCIONKA MONOSPACE ] write(T(a), \' , \' ); Teraz są po przecinku ale na końcu nie ma kropki. Brakuje mi też komendy na to żeby : Aby zakończyć program naciśnij X - wyświetlało się w nastepnej linijce Lub w 3 linijce o tak Twoje podane liczby to 4523455453425452354325Naciśnij klawisz .... a chcę Twoje podane liczby to 1234523454524523532 Naciśnij klawisz |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 17 18 19 ... 30 31 Wyślij wiadomość do admina |