Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

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

Przewiń wpisy ↓

Turbo Pascal dla zielonych

2010-09-30 (13:28)

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

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

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

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

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

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

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

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

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

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

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

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

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

3977
wpis nr 360 570
[ CZCIONKA MONOSPACE ]

Sam nie dam rady tego przekształcić.

2010-09-30 (18:29)

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

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

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

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

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

3977
wpis nr 360 609
[ CZCIONKA MONOSPACE ]

#9 to dla programu tabulator ?

2010-09-30 (18:51)

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

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

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

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

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

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

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

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

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

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

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

3977
wpis nr 360 626
[ CZCIONKA MONOSPACE ]

To czemu piszesz



for a:=1 to 5 do begin



a nie 6 ?
2010-09-30 (19:27)

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

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

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

4098
wpis nr 360 629
[ CZCIONKA MONOSPACE ]



2010-09-30 (19:33)

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

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

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

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