How to... Pascal

[ivan90BG]

Treba svaku proveru jednakosti da okružiš zagradama (OR ima veći prioritet od provere jednakosti).

[FakeDeath]

Treba da pocnjem da radim sa njima, pa me interesuje sta su, cemu sluze..neki uvod o njima

[Futuristic]

Pascal ima pokazivače?
Bilo je pitanje u temi za c++, evo link ka postu onog ko je pitao, a objašnjenja u narednim postovima; samo pritisni u gornjem desnom uglu na link pored "tema:" da otvori celu temu.

[ivan90BG]

Kakva slučajnost, skoro sam imao potrebu da proučavam neki pascal kod sa pokazivačima. Poznato ti je da u Pascalu postoje tipovi kao što su Integer, Real, Longint, String. Pokazivač na Integer je ^Integer, pokazivač na Real je ^Real. Jedan program za primer

program blabla;

var
	broj : Integer;
	pbroj : ^Integer;	//pointer na Integer

begin
	broj := 256;
	pbroj := @broj;		//uzimamo adresu broja i ubacujemo je u pointer
	writeln("Broj je: ", pbroj^); //dereferenciramo pointer
end.

(ovaj kod bi trebalo da radi pod uslovom da ga tvoj kompajler razume, duga priča, Pascal ima silne dijalekte)

Promenljiva pbroj je pokazivač. Ona sadrži memorijsku adresu. U programi mi uzimamo adresu druge promenljive i stavljamo je u pokazivač. U poslednjoj liniji stavljanjem kape posle imena pokazivača mi uzimamo vrednost koja s nalazi na adresi "na koju pokazivač pokazuje".

O pokazivačima generalno bi trebalo da pročitaš na Internetu, ili u drugoj temi na forumu. U suštini je isto kao i u C-u, samo sa drugačijom sintaksom. Imaš i tutorijal i primere za Pascal na netu, samo guglaj. Na pokazivače se nadovezuje i dinamička heap memorija i strukture, a to ne mogu sad da objašnjavam.

Bestidno ću ostaviti link ka tekstu koji sam ja napisao (nemam ja nikakvih prihoda od toga) http://viewsource.rs/c-sa-qt-bibliot...-promenljivih/
Ima segment o pokaivačima. Nema veze što je C++, to što tu piše se direktno prenosi na pascal, samo sa malo drugačijom sintaksom.

[FakeDeath]

program prvi;
type
pok=^cvor;
  cvor=record
  broj:integer;
  adr:pok;end;
var p,q:pok; n:integer;
begin
writeln(‘koliko el. Ima lista?’); 
read(n);
p:=nil;
while n>0 do begin
 new(q);
 q^.broj:=n;
 q^.adr:=p;
 p:=q;
 n:=n-1;
end; 
while p<>nil do begin
 writeln(p^.broj);
 p:=p^.adr;
end;
end.

Није ми јасан део где се формира листа.

p:=nil;
while n>0 do begin
 new(q);
 q^.broj:=n;
 q^.adr:=p;
 p:=q;
 n:=n-1;
end;

[ivan90BG]

Isto kod, samo sa malo razumljivijom imenima.

program lista;
type
	pcvor = ^cvor;
	cvor = record
		broj : integer;
		sledeci : pcvor;
	end;

var
	prvi, drugi, iter : pcvor;
	n : integer;
begin
	writeln('koliko el. Ima lista?'); 
	read(n);
	drugi := nil;
	while n>0 do
	begin
		new(prvi);
		prvi^.broj := n;
		prvi^.sledeci := drugi;
		drugi := prvi;
		n := n-1;
	end; 
	
	iter := prvi;
	while iter<>nil do
	begin
		writeln(iter^.broj);
		iter := iter^.sled;
	end;
end.

Ovo je malo nestandardna šema za pravljenje liste, ali se koristi zato što se čvorovi dodaju u petlji, da se radi o kodu koji se nalazi unutar klase koja predstavlaj listu, ne bi se koristila ova šema. Ovde imamo dva pokazivača, jedan uvek pokazuje na prvi čvor, dok drugi pokazuje naizmenično na prvi ili na drugi čvor. Postupak kreiranja novog čvora je da se alocira čvor, dodeli prvom pokazivaču, njegov sledeći postavi na drugi čvor, a onda drugi pokazivač namesti da pokazuje na prvi čvor. Tako da lista raste na početku. Između komande za alokaciju i predposlednje naredbe u petlji drugi stvarno pokazuje na drugi čvor, izvan toga pokazuje na prvi. Petlja za štampanje će ispisati brojeve u obrnutom redosledu dodavanja, zato je se brojevi dekrementuju kod dodavanja, da bi se ispisali rastuće.

Najbolje ti je da nacrtaš na papiru. Pokazivače nacrtaj kao kružiće, a čvor kao kvadrat (on će u sebi imati kružić kao pokazivač na sledeći). Pa prati kod i crtaj, i to olovkom, pa briši i prepravljaj, ako kod tako kaže.

EDIT:
Ovako nekako

[FakeDeath]

Kako da ubacim el. na odredjenu poziciju u listu(u sredini). Ne znam kako da je povezem, uvek mi se gubi veza sa dalom liste pre tog mesta.

[ivan90BG]

Ako ti držiš pokazivače na prvi i posledni element, a hoćeš da dodaš novi negde u listu, onda moraš da imaš i treći pokazivač na trenutni element koji koritiš za kretanje kroz listu od početka do mesta ubacivanja. Pretpostavljam da si koristio pokazivač na prvi za kretanje pa zato gubiš elemente tokom kretanja.

[virtuoz pavle]

moze li neko da mi objasni "prosledjivanje po referenci" i "prosledjivanje po vrednosti"?

vezano za paskal, ne za C though.

TYPE niz = array [1..max] of integer; //npr
npr. kad imam proceduru za ucitavanje niza A:

PROCEDURE ucitaj (VAR A: niz; VAR n: integer);

dok za proceduru ispisi imam sledece:

PROCEDURE ispisi (a:niz; n:integer); //nema VAR

i sada treba da napravim niz C: c[i] = max(a[i], b[i])

PROCEDURE obrada (a, b:niz; VAR C:niz; n:integer);

Kad se prosledjuje po vrednosti, a kad po referenci? U proceduri nije bitno kako sam nazvao niz, dole u glvanom programu mogu da koristim bilo koje ime, right?

Hvala

SOLVED: mislim da sam ukapirao.
Kad stoji VAR uz promenljivu, u glavnom programu nije bitno da li sam u Proceduri niz nazvao A ili W, tj. ono sto stoji u proceduri 'VAR a' sluzi samo kao "model" za ucitavanje bilo kog niza u glavnom programu. Kad je prosledjivanje po vrednosti (npr. ispis niza) bitno je da se ispisu konkretne vrednosti niza.

Da li je ovo tacno ili sam izlupao nesto da mu dam smisao?

[Laki00]

U prvoj proceduri ti saljes Var ispred promeniljivih zato sto hoces konkretno u proceduri ucitaj da menjas nesto u tom nizu i da sacuvas vrednost za n. Da ti ne stoji var,ako posle posaljes neki niz i neki intiger npr n iz glavnog programa kada se zavrsi procedura, u glavnom program taj niz nece da bude promenjen,a takodje nece da se sacuva to n koje se poslao. Jer sve promenljive u procedurama i funkcijama postoje dok postoji funckija odnostno procedura. Cim zavrse sa radom promenljive u njima se brisu iz memorije. Imena u zagradama nisu bitna,samo je bitno da navedes kojeg su tipa i da li ces da stavih var ispred njih ili ne. U proceduri ispisi ne mora da stoji var,zato sto ces ti da posaljes niz i duzinu niza,on ce da istampa taj niz i to je to,nece nista da se menja u tom nizu. U zadnjoj proceduri saljes dva niza a i b koje neces da menjas,vec samo da koristis informacije iz njih dok ces nizu c nesto da radis i zato opet stoji var,i saljes duzinu niza koju neces da menjas i zato ti ne treba var.

Nadam se da je barem malo jasnije

[virtuoz pavle]

Jednostruko ulancana lista:

TYPE
    pelem = ^elem;
    elem = RECORD
       broj: real;
       sled: pelem;
END;

PROCEDURE dodaj(VAR lista: pelem; broj:real);
VAR novi, tek: pelem;
BEGIN
        new(novi);
        novi^.broj:=broj;
        IF lista = NIL THEN
           lista:=novi
        ELSE BEGIN
           tek:=lista;
        WHILE tek^.sled<>NIL DO
              tek:=tek^.sled;
              tek^.sled:=novi;
        END;
END;

Moze objasnjenje za to kako ovo funkcionise. Nemam literaturu, trazio sam na internetu, imam predstavu, ali mi nije sve jasno.
Evo moje interpretacije koda:

new(novi) stvara nov pokazivac.
novi^.info:=broj //ono na sta ukazuje pokazivac novi.info (ovo .info je zbog TYPE RECORD) ce biti uzeti vrednost broja koji je tipa REAL;
novi^.sled:=NIL //pokazivac novi^.sled sada pokazuje na binarnu nulu.

IF lista = NIL THEN lista := novi; //ako pokazivac lista tipa pelem pokazuje na nulu, to znaci da lista nema elemenata, zato sada lista postaje novi.

ELSE BEGIN grana je u slucaju da vec postoji element u listi, tj. da lista nije na pocetku.

sad vec ne kapiram, sta uopste znaci TEK (verovatno tekuci?). Uglavnom, da bi se ucitala lista treba da postoje tri pokazivaca i to: prethodni (ukazuje na prethodni element), sadasnji i sledeci. Ako znate za neku literaturu dostupnu na internetu, javite!

Hvala

[NIx Car]

http://www.youtube.com/watch?v=o5wJkJJpKtM

Ovo vazi za sve jednostruko spregnute liste, samo je ovde radjeno u C++

[voodoo_]

Nabavi knjigu "Algoritmi i strukture podataka", valjaće ti.

[virtuoz pavle]

Hvala puno! otvorio si mi oci, nasao sam sve u njoj! imao sam je vec, dobio u kompletu knjiga za prvu godinu ETF-a. Nikad mi nije ni palo na pamet da je otvorim, mislio sam da je za neku drugu godinu...vrlo glupavo sa moje strane.

[voodoo_]

Pa taj predmet i jeste bio na drugoj godini, makar na RTI, ne znam kako je sad

[tripp]

Pozdrav, poceo sam da ucim pomalo pascal, prvenstveno jer me interesuje programiranje a od neceg mora da se pocne

Elem, nasao sam neki sajt sa lekcijama, sve je fino objasnjeno ali neki delovi primera kodova bas i ne rade. Sa ovim se bakcem celo celcato jutro, ajde ako neko moze da mi objasni sta je ovde problem:

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,Crt;
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

Var SizeA, sizeB : Real;
    YN : Char;
    unitS : String[2];
Function PythagorasFunc(A:Real; B:Real) : Real;
{The pythagoras theorem}
Begin
 PythagorasFunc := SQRT(A*A + B*B);
{Output: Assign the procedure name to the value.
 If you forget to assign the function to the value,
 you will get a trash value from the memory}
End;
Begin
 Repeat
  Writeln;
  Write('Enter the size of side A : ');
  Readln(sizeA);
  Write('Enter the size of side B : ');
  Readln(sizeB);
  Repeat
   Write('metres or centimetres? Enter : [m or cm] ');
   Readln(unitS);
  Until (unitS = 'm') or (unitS = 'cm');
  Writeln(PythagorasFunc(sizeA,sizeB),' ',unitS);
  Writeln;
  Write('Repeat? ');
  YN := Readkey;
 Until (YN in ['N','n']);
End.

Meni u lazarusu prijavljuje za deo YN := Readkey; - project1.lpr(37,16) Error: Identifier not found "Readkey"


Neko?

[Goonotora]

Ja sam testirao tvoj kod preko online pascal compilera. Iako moj nivo paskala nije kao ovaj ovde, moja pretpostavka je da ova linija
krije gresku koju trazis.

Until (YN in ['N','n']);

Pitanje: da li ti je ispravna readkey naredba? Jer vidim da posle readln naredbi imas argumente u zagradama, dok za readkey nemas.

[voodoo_]

Tamo gore u "uses" izvuci "crt" da bude van ifdef-ova, jer čini mi se da ovo puštaš na Windowsu, a onda "crt" jedinica neće biti uključena u linkovanje jer ifdef uslov nije prošao, a ReadKey je deo crt-a.
Dakle

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes,
Crt;

[tripp]

Hvala voodoo

[tripp]

Imam problem, Lazarus mi prijavljuje gresku koju ne znam kako da ispravim, a bas se trudim...

Kod:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, odbcconn, sqldb, db, FileUtil, LResources, Forms, Controls,
Graphics, Dialogs, DBGrids, StdCtrls;

type

{ TForm1 }
TForm1 = class(TForm)

Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Datasource1: TDatasource;
DBGrid1: TDBGrid;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Memo1: TMemo;
ODBCConnection1: TODBCConnection;
SQLQuery1: TSQLQuery;
SQLTransaction1: TSQLTransaction;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
ODBCConnection1.DatabaseName:='LazConnect';
ODBCConnection1.UserName:='Admin';
ODBCConnection1.Transaction:=SQLTransaction1;

SQLTransaction1.Database:=ODBCConnection1;

SQLQuery1.Database:=ODBCConnection1;
SQLQuery1.Transaction:=SQLTransaction1;
SQLQuery1.UsePrimaryKeyAsKey:=False;
SQLQuery1.SQL.Text:='SELECT * FROM Student';

Datasource1.dataset:=SQLQuery1;
DBGrid1.DataSource:=DataSource1;

ODBCConnection1.Open;
If ODBCConnection1.Connected then
begin

Label1.caption:='connected -great';
end;
SQLQuery1.open;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SQLQuery1.Close;
SQLQuery1.SQL.text:=edit1.text;
SQLQuery1.Open;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//Not now needed - we will use SQLQuery1 instead //SQLTransaction1.commit;
//SQLTransaction1.StartTransaction;
//ODBCConnection1.ExecuteDirect(edit2.text);
//SQLTransaction1.commit;

SQLQuery1.Close;
SQLQuery1.SQL.text:=edit1.text;
SQLQuery1.ExecSQL;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
SQLQuery1.Close
SQLQuery1.SQL.Text:='Select * FROM Student';
SQLQuery1.Open;
while not SQLQuery1.Eof do
begin
memo1.lines.add(
' ID: ' + SQLQuery1.FieldByName('StudentID').AsString +
' First name: ' + SQLQuery1.FieldByName('First').AsString +
' Second name: ' + SQLQuery1.FieldByName('Second').AsString) ;
SQLQuery1.Next;
end;
end;

initialization
{$I unit1.lrs}

end.

Error:
unit1.pas(94,1) Fatal: Syntax error, ";" expected but "identifier SQLQUERY1" found


Da napomenem, sve sto treba da bude u formi je u formi.. Neko?