Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 17 18 19 ... 30 31
Wyślij wiadomość do admina

Przewiń wpisy ↓

Turbo Pascal dla zielonych

2010-09-30 (00:51)

status Spoke
Data rejestracji: 2008-12-15
Ilość postów: 4663

3977
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)

status Spoke
Data rejestracji: 2008-12-15
Ilość postów: 4663

3977
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)

status Spoke
Data rejestracji: 2008-12-15
Ilość postów: 4663

3977
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)

status Spoke
Data rejestracji: 2008-12-15
Ilość postów: 4663

3977
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)

status volvo12
Data rejestracji: 2009-06-06
Ilość postów: 1151

4689
wpis nr 360 416
[ CZCIONKA MONOSPACE ]

Spoke jednak zostaniesz prezydentem ....

Pozdrawiam...
2010-09-30 (01:11)

status Spoke
Data rejestracji: 2008-12-15
Ilość postów: 4663

3977
wpis nr 360 417
[ CZCIONKA MONOSPACE ]

Na razie to jestem pomocnikiem syna zastępcy radnego mojej Wsi.





2010-09-30 (01:26)

status Spoke
Data rejestracji: 2008-12-15
Ilość postów: 4663

3977
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)

status KURKA
Data rejestracji: 2009-01-23
Ilość postów: 2551

4098
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)

status KURKA
Data rejestracji: 2009-01-23
Ilość postów: 2551

4098
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)

status Spoke
Data rejestracji: 2008-12-15
Ilość postów: 4663

3977
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)

status Spoke
Data rejestracji: 2008-12-15
Ilość postów: 4663

3977
wpis nr 360 479
[ CZCIONKA MONOSPACE ]

Nie działa, pewnie coś brakuje na początku :

2010-09-30 (13:05)

status KURKA
Data rejestracji: 2009-01-23
Ilość postów: 2551

4098
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)

status Spoke
Data rejestracji: 2008-12-15
Ilość postów: 4663

3977
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)

status Spoke
Data rejestracji: 2008-12-15
Ilość postów: 4663

3977
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)

status KURKA
Data rejestracji: 2009-01-23
Ilość postów: 2551

4098
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)

status Spoke
Data rejestracji: 2008-12-15
Ilość postów: 4663

3977
wpis nr 360 491
[ CZCIONKA MONOSPACE ]

Powoli, brakuje identyfikatora T, dodałem go do var ale nie działa.

2010-09-30 (13:13)

status KURKA
Data rejestracji: 2009-01-23
Ilość postów: 2551

4098
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)

status Spoke
Data rejestracji: 2008-12-15
Ilość postów: 4663

3977
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)

status KURKA
Data rejestracji: 2009-01-23
Ilość postów: 2551

4098
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)

status Spoke
Data rejestracji: 2008-12-15
Ilość postów: 4663

3977
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 lottoStrona: 1 2 ... 17 18 19 ... 30 31
Wyślij wiadomość do admina