Powrót   Forum CDRinfo.pl > Różne > Komputery - oprogramowanie i sprzęt

Komputery - oprogramowanie i sprzęt Pytania i problemy niezwiązane z nagrywaniem, backupem i grami.



Witaj Nieznajomy! Zaloguj się lub Zarejestruj

Zarejestrowani użytkownicy mają dostęp do dodatkowych opcji, lepszej wyszukiwarki oraz mniejszej ilości reklam. Rejestracja jest całkowicie darmowa!

Odpowiedz na post
 
Opcje związane z dyskusją Tryby wyświetlania
Stary 24.11.2004, 21:38   #1
Patrix
Pingwin specjalista.
 
Avatar użytkownika Patrix
 
Data rejestracji: 22.06.2002
Lokalizacja: Central Park
Posty: 15,084
Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>
Pascal...pytanie

Chodzi mi o warunek w Pascalu:
Kod:
IF a+b<0 THEN WriteLn('blabla (blabla): ', -1*(a+b), ' blabla !!!')
problem w tym, że mam potrzebę wstawienia dwóch nierówności po IF
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))
{
}
W C++ w tym wypadku stosuje sie znaczek '&&' -(i) bub '||' -(lub)

Jak to jest w Pascalu ??
__________________
amiga500site

Ostatnio zmieniany przez Patrix : 24.11.2004 o godz. 21:42
Patrix jest offline   Odpowiedz cytując ten post

  #ads
CDRinfo.pl
Reklamowiec
 
 
 
Data rejestracji: 29.12.2008
Lokalizacja: Sieć globalna
Wiek: 31
Posty: 1227
 

CDRinfo.pl is online  
Stary 24.11.2004, 21:42   #2
MacGyver
Team Member
 
Avatar użytkownika MacGyver
 
Data rejestracji: 14.05.2002
Lokalizacja: Cheyenne Mountain Complex
Posty: 5,318
MacGyver jak się przyłoży ma szansę zostać specem <150 - 249 pkt>MacGyver jak się przyłoży ma szansę zostać specem <150 - 249 pkt>MacGyver jak się przyłoży ma szansę zostać specem <150 - 249 pkt>
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...
MacGyver jest offline   Odpowiedz cytując ten post
Stary 24.11.2004, 21:45   #3
cyki
Bojownik Ruchu Oporu
 
Avatar użytkownika cyki
 
Data rejestracji: 09.11.2003
Lokalizacja: Polanica
Posty: 348
cyki zaczyna zdobywać reputację <1 - 49 pkt>
Jak dla mnie to będzie:
IF a+b >= 0 AND -1*(a+b) >= 0 THEN Begin [...] End;
cyki jest offline   Odpowiedz cytując ten post
Stary 24.11.2004, 21:46   #4
Patrix
Pingwin specjalista.
 
Avatar użytkownika Patrix
 
Data rejestracji: 22.06.2002
Lokalizacja: Central Park
Posty: 15,084
Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>
Cytat:
Napisany przez MacGyver
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
Wiem gdzie sie to wstawia
chodzi mi o to jaki ma być znaczek między dwoma nierównościami po IF (chce to zrobić w jednym warunku)...
__________________
amiga500site
Patrix jest offline   Odpowiedz cytując ten post
Stary 24.11.2004, 21:47   #5
MacGyver
Team Member
 
Avatar użytkownika MacGyver
 
Data rejestracji: 14.05.2002
Lokalizacja: Cheyenne Mountain Complex
Posty: 5,318
MacGyver jak się przyłoży ma szansę zostać specem <150 - 249 pkt>MacGyver jak się przyłoży ma szansę zostać specem <150 - 249 pkt>MacGyver jak się przyłoży ma szansę zostać specem <150 - 249 pkt>
Cytat:
Napisany przez cyki
Jak dla mnie to będzie:
IF a+b >= 0 AND -1*(a+b) >= 0 THEN Begin [...] End;
A dokładniej (bo wywali błąd):
IF ((a+b>=0) AND (-1*(a+b)>=0)) THEN Begin [...] End

Cytat:
chodzi mi o to jaki ma być znaczek między dwoma nierównościami po IF (chce to zrobić w jednym warunku)
AND
__________________
We all know how these things work, so when you hear the beep, go for it...
MacGyver jest offline   Odpowiedz cytując ten post
Stary 24.11.2004, 21:52   #6
Patrix
Pingwin specjalista.
 
Avatar użytkownika Patrix
 
Data rejestracji: 22.06.2002
Lokalizacja: Central Park
Posty: 15,084
Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>
MacGyver i cyki

- dzięki, działa

PS
reputy poszły....
__________________
amiga500site
Patrix jest offline   Odpowiedz cytując ten post
Stary 01.12.2004, 12:16   #7
MacGyver
Team Member
 
Avatar użytkownika MacGyver
 
Data rejestracji: 14.05.2002
Lokalizacja: Cheyenne Mountain Complex
Posty: 5,318
MacGyver jak się przyłoży ma szansę zostać specem <150 - 249 pkt>MacGyver jak się przyłoży ma szansę zostać specem <150 - 249 pkt>MacGyver jak się przyłoży ma szansę zostać specem <150 - 249 pkt>
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...
MacGyver jest offline   Odpowiedz cytując ten post
Stary 01.12.2004, 13:15   #8
Posłany
BA/\//\/ED
 
Avatar użytkownika Posłany
 
Data rejestracji: 27.04.2003
Lokalizacja: w domu
Posty: 414
Posłany w tym momencie nie ma Reputacji dodatnich ani ujemnych <0  pkt>
Cytat:
Napisany przez MacGyver
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
Raczej trzeba w ten sposób. Bo Ty ustawiając je na formie przyporządkowujesz im "warstwe". No chyba że istnieje dla TPanel'u funkcja Focus...
__________________
# Psychika unixiarza powinna być jak firewall...
Posłany jest offline   Odpowiedz cytując ten post
Stary 01.12.2004, 18:29   #9
Ziele
.: AT90S2313 :.
 
Avatar użytkownika Ziele
 
Data rejestracji: 09.09.2002
Lokalizacja: Kraków
Posty: 2,724
Ziele zaczyna zdobywać reputację <1 - 49 pkt>
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
Ziele jest offline   Odpowiedz cytując ten post
Stary 01.12.2004, 19:38   #10
MacGyver
Team Member
 
Avatar użytkownika MacGyver
 
Data rejestracji: 14.05.2002
Lokalizacja: Cheyenne Mountain Complex
Posty: 5,318
MacGyver jak się przyłoży ma szansę zostać specem <150 - 249 pkt>MacGyver jak się przyłoży ma szansę zostać specem <150 - 249 pkt>MacGyver jak się przyłoży ma szansę zostać specem <150 - 249 pkt>
Cytat:
Napisany przez Ziele
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?
Masz namyśli, że w PageControl daje powiedzmy 4 nowe zakładki i w każdej biorę TabVisible na False (dopiero teraz to zobaczyłem )
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
MacGyver jest offline   Odpowiedz cytując ten post
Stary 09.12.2006, 16:40   #11
Patrix
Pingwin specjalista.
 
Avatar użytkownika Patrix
 
Data rejestracji: 22.06.2002
Lokalizacja: Central Park
Posty: 15,084
Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>
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
Patrix jest offline   Odpowiedz cytując ten post
Stary 09.12.2006, 19:35   #12
pawelblu
Recydywista - Wielokrotny
Zlotowicz
CDRinfo VIP
 
Avatar użytkownika pawelblu
 
Data rejestracji: 17.01.2003
Lokalizacja: Wawa
Posty: 5,265
pawelblu niedługo stanie się sławny ;) <50 - 149 pkt>pawelblu niedługo stanie się sławny ;) <50 - 149 pkt>
Cytat:
Napisany przez Patrix Podgląd Wiadomości
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;
            //skoro lista^.nastepna   := temp, to musi:
            temp^.poprzednia  := lista; 
            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...
Chociaz ja bym ja zacyklil. Listy dwukierunkowe sa fajniejsze jak sie je zacykla. Przynajmniej takie mam osobiste zdanie
pawelblu jest offline   Odpowiedz cytując ten post
Stary 09.12.2006, 20:22   #13
Patrix
Pingwin specjalista.
 
Avatar użytkownika Patrix
 
Data rejestracji: 22.06.2002
Lokalizacja: Central Park
Posty: 15,084
Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>
Cytat:
Napisany przez pawelblu Podgląd Wiadomości
Chociaz ja bym ja zacyklil. Listy dwukierunkowe sa fajniejsze jak sie je zacykla. Przynajmniej takie mam osobiste zdanie

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;
{-----------------------------------------------------}
mo***380;e mam z***322;y pomys***322; na procedury ?
__________________
amiga500site

Ostatnio zmieniany przez Patrix : 09.12.2006 o godz. 20:25
Patrix jest offline   Odpowiedz cytując ten post
Stary 09.12.2006, 21:22   #14
pawelblu
Recydywista - Wielokrotny
Zlotowicz
CDRinfo VIP
 
Avatar użytkownika pawelblu
 
Data rejestracji: 17.01.2003
Lokalizacja: Wawa
Posty: 5,265
pawelblu niedługo stanie się sławny ;) <50 - 149 pkt>pawelblu niedługo stanie się sławny ;) <50 - 149 pkt>
Cytat:
Napisany przez Patrix Podgląd Wiadomości
no tak, może teraz liczba wchodzi do listy ale jakoś nie umiem jej wyświetlić, pisałem nawet procedure aby ja znaleźć ale chyba jej tam nie ma

Kod:
{-----------------------------------------------------}
procedure szukaj;
var liczba: integer;
  begin
    temp := lista;

    writeln('Podaj szukana liczbe');  readln(liczba);

    while temp <> nil do
      begin
        if liczba = temp^.dana then writeln('Znaleziono');
        temp := temp^.poprzednia;
      end;

  end;
{-----------------------------------------------------}
może mam zły pomysł na procedury ?

Nigdy nie sprawdzasz najstarszego elementu.
czyli tego co mam poprz=nil
pawelblu jest offline   Odpowiedz cytując ten post
Stary 09.12.2006, 23:02   #15
Patrix
Pingwin specjalista.
 
Avatar użytkownika Patrix
 
Data rejestracji: 22.06.2002
Lokalizacja: Central Park
Posty: 15,084
Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>Patrix ma z czego być dumnym <1000 - 1499 pkt>
Cytat:
Napisany przez pawelblu Podgląd Wiadomości
Nigdy nie sprawdzasz najstarszego elementu.
czyli tego co mam poprz=nil
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
Patrix jest offline   Odpowiedz cytując ten post
Odpowiedz na post

Opcje związane z dyskusją
Tryby wyświetlania

Twoje uprawnienia:
Nie możesz rozpoczynać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz umieszczać załączników
Nie możesz edytować swoich postów

BB codeWłączone
EmotikonkiWłączone
Kody [IMG]Włączone
Kody HTML są Wyłączone

Teleport


Wszystkie czasy w strefie CET. Aktualna godzina: 11:11.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.