Nagrywarki |
Pliki |
Dyski twarde |
Recenzje |
Księgarnia |
Biosy |
Artykuły |
Nagrywanie od A do Z |
Słownik |
FAQ
|
||
|
Komputery - oprogramowanie i sprzęt Pytania i problemy niezwiązane z nagrywaniem, backupem i grami. |
|
Opcje związane z dyskusją | Tryby wyświetlania |
24.11.2004, 21:38 | #1 |
Pingwin specjalista.
Data rejestracji: 22.06.2002
Lokalizacja: Central Park
Posty: 15,084
|
Pascal...pytanie
Chodzi mi o warunek w Pascalu:
Kod:
IF a+b<0 THEN WriteLn('blabla (blabla): ', -1*(a+b), ' blabla !!!') np: 'a+b>=0' i np '-1*(a+b)>=0' Jeśli ktoś nie kuma o co mi chodzi to podam przykałd na C++: Kod:
if((a>=5)&&(a<=21)) { } Jak to jest w Pascalu ??
__________________
amiga500site Ostatnio zmieniany przez Patrix : 24.11.2004 o godz. 21:42 |
#ads | |
CDRinfo.pl
Reklamowiec
Data rejestracji: 29.12.2008
Lokalizacja: Sieć globalna
Wiek: 31
Posty: 1227
|
|
24.11.2004, 21:42 | #2 |
Team Member
Data rejestracji: 14.05.2002
Lokalizacja: Cheyenne Mountain Complex
Posty: 5,318
|
W Pascalu wstawiasz je między BEGIN a END (zaraz po THEN)
...bynajmniej tak jest w Delphi - a to też Pascal ...::Update::... QRde, zle zrozumiałem ...dajesz w nawiasach pierwszy warunek potem wpisujesz AND i drugi warunek
__________________
We all know how these things work, so when you hear the beep, go for it...
|
24.11.2004, 21:45 | #3 |
Bojownik Ruchu Oporu
Data rejestracji: 09.11.2003
Lokalizacja: Polanica
Posty: 348
|
Jak dla mnie to będzie:
IF a+b >= 0 AND -1*(a+b) >= 0 THEN Begin [...] End; |
24.11.2004, 21:46 | #4 | |
Pingwin specjalista.
Data rejestracji: 22.06.2002
Lokalizacja: Central Park
Posty: 15,084
|
Cytat:
chodzi mi o to jaki ma być znaczek między dwoma nierównościami po IF (chce to zrobić w jednym warunku)...
__________________
amiga500site |
|
24.11.2004, 21:47 | #5 | ||
Team Member
Data rejestracji: 14.05.2002
Lokalizacja: Cheyenne Mountain Complex
Posty: 5,318
|
Cytat:
IF ((a+b>=0) AND (-1*(a+b)>=0)) THEN Begin [...] End Cytat:
__________________
We all know how these things work, so when you hear the beep, go for it...
|
||
24.11.2004, 21:52 | #6 |
Pingwin specjalista.
Data rejestracji: 22.06.2002
Lokalizacja: Central Park
Posty: 15,084
|
MacGyver i cyki
- dzięki, działa PS reputy poszły....
__________________
amiga500site |
01.12.2004, 12:16 | #7 |
Team Member
Data rejestracji: 14.05.2002
Lokalizacja: Cheyenne Mountain Complex
Posty: 5,318
|
Ja mam pytanie dotyczące Delphi:
Mam formatkę na której umieszczam 4 obiekty typu "Panel" (panele są tych samych rozmiarów i w tych samych miejscach, w ten sposób że się pokrywają). Pytanie: czy istnieje jakaś instrukcja, żeby dany panel odrazu "wywalić" na samą górę (bez komend ukrywających pozostałe panele) Dotychczas robiłem to w ten sposób, że w kodzie jakiegoś przycisku wpisywałem np. Kod:
Form1.Panel2.Visible:=False; //ukrywa drugi panel Form1.Panel1.Visible:=True; //...i odkrywa pierwszy
__________________
We all know how these things work, so when you hear the beep, go for it...
|
01.12.2004, 13:15 | #8 | |
BA/\//\/ED
Data rejestracji: 27.04.2003
Lokalizacja: w domu
Posty: 414
|
Cytat:
__________________
# Psychika unixiarza powinna być jak firewall... |
|
01.12.2004, 18:29 | #9 |
.: AT90S2313 :.
Data rejestracji: 09.09.2002
Lokalizacja: Kraków
Posty: 2,724
|
Pewnie masz dużo obiektów i zmieściłeś je na 4 panelach żeby okno nie było duże... a nie lepiej było do tego użyć PageControl?
__________________
LiteOn LTR-40125S & SOHW-1633S 8 ) Jak zrobić szybko sałatke z buraków? Wrzucić granata do BMW |
01.12.2004, 19:38 | #10 | |
Team Member
Data rejestracji: 14.05.2002
Lokalizacja: Cheyenne Mountain Complex
Posty: 5,318
|
Cytat:
Teraz powiedz mi jak odwołać się do jakiejś konkretnej zakładki thx ...::Update::... OK, już mam ... poprostu "Show" Dzięki Ziele Działa tak jak chciałem... BTW: Czym się rózni PageControl od TabControl
__________________
We all know how these things work, so when you hear the beep, go for it...
Ostatnio zmieniany przez MacGyver : 01.12.2004 o godz. 19:45 |
|
09.12.2006, 16:40 | #11 |
Pingwin specjalista.
Data rejestracji: 22.06.2002
Lokalizacja: Central Park
Posty: 15,084
|
Odkopuj***281; temat, poziom po kilku latach troszk***281; si***281; zmieni***322; wi***281;c...
mam napisa***263; program, kt***243;ry b***281;dzie dodawa***263; (wpisane przez u***380;ytkownika) do listy dwukierunkowej liczby a potem je wy***347;wieta***263; kolejno... zrobi***322;em co***347; takiego: Kod:
program test1; uses crt; type t_lista_dwukierunkowa = ^lista_dwukierunkowa; {-----------------------------------------------------} lista_dwukierunkowa = record nastepna : t_lista_dwukierunkowa; poprzednia : t_lista_dwukierunkowa; dana : integer; end; {-----------------------------------------------------} var lista : t_lista_dwukierunkowa; temp : t_lista_dwukierunkowa; liczba : integer; {-----------------------------------------------------} procedure do_listy; begin write('> Podaj liczbe: '); readln(liczba); if lista = nil then begin new(lista); lista^.nastepna := nil; lista^.poprzednia := nil; lista^.dana := liczba; end else begin new(temp); temp^.nastepna := nil; temp^.poprzednia := nil; lista^.nastepna := temp; temp^.dana := liczba; lista := temp; end; end; {-----------------------------------------------------} procedure wyswietl; begin temp := lista; while temp^.poprzednia <> nil do begin write(temp^.dana); temp := temp^.poprzednia; end; end; {-----------------------------------------------------} BEGIN clrscr; do_listy; wyswietl; readln; END. Wiem, ***380;e jestem blisko ale co***347; mi nie wychodzi...
__________________
amiga500site |
09.12.2006, 19:35 | #12 | |
Recydywista - Wielokrotny
Zlotowicz
CDRinfo VIP Data rejestracji: 17.01.2003
Lokalizacja: Wawa
Posty: 5,265
|
Cytat:
|
|
09.12.2006, 20:22 | #13 | |
Pingwin specjalista.
Data rejestracji: 22.06.2002
Lokalizacja: Central Park
Posty: 15,084
|
Cytat:
no tak, mo***380;e teraz liczba wchodzi do listy ale jako***347; nie umiem jej wy***347;wietli***263;, pisa***322;em nawet procedure aby ja znale***378;***263; ale chyba jej tam nie ma Kod:
{-----------------------------------------------------} procedure szukaj; var liczba: integer; begin temp := lista; writeln('Podaj szukana liczbe'); readln(liczba); while temp^.poprzednia <> nil do begin if liczba = temp^.dana then writeln('Znaleziono'); temp := temp^.poprzednia; end; end; {-----------------------------------------------------}
__________________
amiga500site Ostatnio zmieniany przez Patrix : 09.12.2006 o godz. 20:25 |
|
09.12.2006, 21:22 | #14 | |
Recydywista - Wielokrotny
Zlotowicz
CDRinfo VIP Data rejestracji: 17.01.2003
Lokalizacja: Wawa
Posty: 5,265
|
Cytat:
Nigdy nie sprawdzasz najstarszego elementu. czyli tego co mam poprz=nil |
|
09.12.2006, 23:02 | #15 |
Pingwin specjalista.
Data rejestracji: 22.06.2002
Lokalizacja: Central Park
Posty: 15,084
|
dzięki teraz wszystko narazie ok, będę musiał to sobie chyba logicznie rozrysować jak to działa aby mi sie nie plątało.
__________________
amiga500site |
Opcje związane z dyskusją | |
Tryby wyświetlania | |
|
|