MyCity :: Pascal

Re: igra moj broj u delphiju

nobody@mycity.rs (dacha47) — Fri, 21 Oct 2022 12:25:15 +0100

Hvala puno na odgovoru, nov sam ovde. Polako mi dolaze ideje i gledacu da to sto bolje napravim. Interfejs cu lako resiti i unos brojeva i operacija, samo me malo kopka kako da napravim taj algoritam da racunar sam izracuna nasumicni broj ali valjda cu nekako resiti 😁

StBits funkcije i BitWise operacije

nobody@mycity.rs (mateklajos) — Thu, 13 Jan 2022 20:21:10 +0100

Po�tovani Delphi programeri
Da li je neko koristio StBits unit funkcije? Konkretno "orBits" i "andBits" funcje, koje bi trebali da daju uniju i presek dva skupa, ako su skupovi objekti tipa TstBits ili TtaBits? Ujedno da li je neko od Vas ekspert i starim BitWise operatorima?

Re: Lazarus ne prikazuje prozor

nobody@mycity.rs (bocke) — Mon, 04 Jan 2021 17:45:29 +0100

Ako ne dobije� odgovor ovde, baci pogled na Lazarus forum: forum.lazarus.freepascal.org/index.php. Pretpostavljam da ti engleski nije problem.

Re: Formatiranje datuma

nobody@mycity.rs (vasa.93) — Mon, 06 Jan 2020 11:59:44 +0100

Pa nemoj da radi� sa stringovima, ve� poredi direktno datume. Koliko vidim ima� i metodu StrToDate i CompareDateTime.

Trebam pomoc oko programa

nobody@mycity.rs (anelsahovic17) — Thu, 29 Nov 2018 22:58:54 +0100

Moze li mi neko pomoci kako da napravim progream koji trazi unos od 35 brojeva i tako 3 puta,zatim sve brojeve koji se ponavljaju da ispise ili vec postoji slican program.
Napravio sam tako da provjerava svaki broj sa svakim ali to je predugo i ne mogu ga ucitati na pascal na mobitelu jer ga ne mogu kopirati i jednostavno crasha.Program mi radi na ra�unaru ali na mobitelu ne mogu pokrenuti console aplikaciju..Tako da ako bi mi neko pomogao bio bi muj veoma zahvalan D

Besplatan Delphi 10.1 Berlin Starter Edition do 9.9.2016

nobody@mycity.rs (Srki_82) — Tue, 23 Aug 2016 14:43:34 +0100

Embarcadero nudi Starter verziju Delphi 10.1 besplatno do po�etka septembra. Svako mo�e da skine jednu licencu preko svoje mail adrese. Detalje mo�ete pogledati ovde: [Link mogu videti samo ulogovani korisnici]

Re: Paskal zadatak

nobody@mycity.rs (Srki_82) — Wed, 10 Feb 2016 11:12:51 +0100

Znam da svi vole re�ene zadatke, pa evo izvoli

[Link mogu videti samo ulogovani korisnici]

Re: Problem u Lazarusu-��?!

nobody@mycity.rs (dogriz) — Thu, 28 Jan 2016 08:12:09 +0100

Zapravo, nema ograni�enja da se tako ne�to uradi, kako u Design, tako i u Runtime re�imu, na Windowsu, Linuxu...

Re: Neko ko zna Pascal?

nobody@mycity.rs (Srki_82) — Fri, 22 Jan 2016 14:34:24 +0100

----------- Napisano: 21 Jan 2016 16:33 ---------

Nisam stigao pre, ali bolje ikad nego nikad

Evo prvog. Napravio sam ga u 2 datoteke:

square.pas

program square;





{$mode objfpc}{$H+}





uses parser;





var


  Line: String;





begin


  with TParser.Create do


  try


    repeat


      ReadLn(Line);


    until not Parse(Line);


    WriteLn(ToString);


  finally


    Free;


  end;


end.

parser.pas

unit parser;





{$mode objfpc}{$H+}





interface





uses


  Classes, SysUtils, FGL;





type





  { TSquare }





  TSquare = class


  private


    FDiagonal: Extended;


    FSide: Extended;


    FCircumference: Extended;


    procedure Calculate;


  public


    constructor Create(Diagonal: Extended);


    property Diagonal: Extended read FDiagonal;


    property Side: Extended read FSide;


    property Circumference: Extended read FCircumference;


  end;





  TSquareList = specialize TFPGObjectList<TSquare>;





  { TParser }





  TParser = class


  private


    FSquares: TSquareList;


  public


    constructor Create;


    destructor Destroy; override;


    function Parse(Number: String): Boolean;


    function ToString: String; override;


  end;





implementation





const


  Sqrt2: Extended = sqrt(2);





{ TSquare }





procedure TSquare.Calculate;


begin


  FSide := Sqrt2 * FDiagonal / 2;


  FCircumference := FSide * 4;


end;





constructor TSquare.Create(Diagonal: Extended);


begin


  FDiagonal := Diagonal;


  Calculate;


end;





{ TParser }





constructor TParser.Create;


begin


  FSquares := TSquareList.Create;


end;





destructor TParser.Destroy;


begin


  FSquares.Free;


  inherited Destroy;


end;





function TParser.Parse(Number: String): Boolean;


var


  Num: Integer;


begin


  Result := TryStrToInt(Number, Num) and (Num > 0) and (Num < 50);


  if Result then


    FSquares.Add(TSquare.Create(Num));


end;





function TParser.ToString: String;


var


  Square: TSquare;


begin


  Result := Format('%20s %20s %20s' + LineEnding, ['Diagonal', 'Side', 'Circumference']);


  for Square in FSquares do


    Result := Result + Format('%20.2f %20.2f %20.2f' + LineEnding , [Square.Diagonal, Square.Side, Square.Circumference]);


end;





end.

Mo�da ne�to ne�e raditi po�to sam pisao iz glave, a Pascal odavno nisam koristio.

----------- Dopuna: 22 Jan 2016 14:34 ---------

Evo, dru�e, danas sam ugrabio malo vremena da ti uradim i drugi zadatak. Da bezveze ne zatrpavam forum kodom, �aljem ti zip pa pogledaj: [Link mogu videti samo ulogovani korisnici]

Sre�no

Re: Zadaci iz Paskala...

nobody@mycity.rs (Srki_82) — Tue, 05 Jan 2016 17:24:14 +0100

Koja verzija Pascala je u pitanju?

Re: Pomo� oko rje�avanja zadatka

nobody@mycity.rs (guest76439) — Sun, 15 Feb 2015 12:01:56 +0100

Koliko sam primetio u zadatku se trazi da se proveri da li je trougao pravougli i ako jeste da se izracuna povrsina...
uslov koji koristis u if-u proverava da li se radi o trouglu, ali ne mora da znaci da je taj trougao pravougli, zato moras proveriti i da li vazi pitagorina teorema za te duzi, a nakon toga mozes koristiti P=a*b/2, jer si siguran da je u pitanju pravougli trougao...
Takodje moraces malo da promenis kod jer ovaj program ce ti ispisati ("P=",P) iako je pre toga bila else grana, pa ce tad istampati neki random broj (testiraj slobodno za brojeve a=1,b=1,c=3, pa ces videti o cemu pricam)

Re: Prevodjenje

nobody@mycity.rs (matematicarka) — Fri, 16 Jan 2015 21:39:56 +0100

----------- Napisano: 16 Jan 2015 21:38 ---------

Je l mozete da mi prevedete ovo u Pascal, kapiram u sustini xD sta program radi, ali ne snalazim se u c-u... ?

int n, m;


vector < vector<long long> > d;








void calc (int x = 0, int y = 0, int mask = 0, int next_mask = 0)


{


   if (x == n)


      return;


   if (y >= m)


      d[x+1][next_mask] += d[x][mask];


   else


   {


      int my_mask = 1 << y;


      if (mask & my_mask)


         calc (x, y+1, mask, next_mask);


      else


      {


         calc (x, y+1, mask, next_mask | my_mask);


         if (y+1 < m && ! (mask & my_mask) && ! (mask & (my_mask << 1)))


            calc (x, y+2, mask, next_mask);


      }


   }


}








int main()


{


   cin >> n >> m;


   


   d.resize (n+1, vector<long long> (1<<m));


   d[0][0] = 1;


   for (int x=0; x<n; ++x)


      for (int mask=0; mask<(1<<m); ++mask)


         calc (x, 0, mask, 0);





   cout << d[n][0];





}

----------- Dopuna: 16 Jan 2015 21:39 ---------

Citat:Tokom iskopavanja arheolozi su prona�li �udan kov�eg i puno jednakih delova kostiju veli�ine 1x2. Zaklju�ili su da za otvaranje kov�ega treba da se pravougaoni poklopac kov�ega pokriju kostima na odre�eni na�in. Delovi ne smeju da se preklapaju niti da seku ivice kov�ega. Potrebno je odrediti broj na�ina da se kosti pore�aju.
input:
du�ina i �irina poklopca
output:
broj re�enja
primer:
input output
3 4 11

evo i tekst ako je od koristi

rad studio delphi xe6

nobody@mycity.rs (ANOMALIJA) — Sat, 20 Dec 2014 11:07:24 +0100

instaliro sam nedavno rad studio xe6 i uradio obicnu bazu podataka ,i prije sam pravio isti zadatak milion puta i non stop mi javlja ovu gresku network initialization failed
file or directory does not exist
file:c delphi, nema sta nisam radio pokusavo otvaro BDE administrator menjo kako sumi savjetovali ,gledo sam preko neta i nista nije pomoglo molio bi za pomoc .

Re: Pomoc oko zadatka - Fibonacijevi brojevi i Pascal

nobody@mycity.rs (Srki_82) — Tue, 25 Nov 2014 14:45:20 +0100

Zadatak je zaista jednostavan. Treba samo da ide� redom kroz niz i proveri� da li je broj Fibona�ijev ili nije. Fibona�ijevi brojevi imaju lepu osobinu koja omogu�ava da ih zaista jednostavno uo�i�. Za sve Fibona�ijeve brojeve va�i da je koren 5x^2+4 i/ili 5x^2-4 ceo broj.

Re: Problem 'value assigned "" to never used'

nobody@mycity.rs (jake_long_) — Sat, 01 Nov 2014 01:24:18 +0100

bobby ::Ne moze inicijalizacija iznad IF, jer pre toga vec koristis te vrednosti u sledecim linijama:

eIk.text:=FloatToStr(Ik);


eUI.text:=FloatToStr(UI);

Moras pre tih linija da inicijalizujes te promenljive.

Drugo, sasvim ti je nelogicna pozicija te dve linije, jer ti na takav nacin te Edit komponente nece preuzeti vrednosti koje promenljive dobijaju u IF blokovima. Ne poznajem problem koji tvoja funkcija treba da resi, ali mi je logicno da te dve linije stoje na samom kraju procedure, nakon sto promenljive Ik i UI dobiju vrednosti u IF blokovima.

Ono sa "value assigned" ne mozes da popravis, a i nemas potrebe. To nije greska vec ti samo skrece paznju na deo koda koji mozda nece biti iskoriscen.

Zamisli sledeci kod:

A := 1;


A := 5;

Ovde bi sigurno izasla ista poruka zbog suvisne prve linije, jer njena vrednost nije iskoriscena u kodu.
Kod tebe dobijas tu poruku zbog IF petlji jer imas jos 10 meseci za koje su te vrednosti dodeljene promenljivima beskorisne.
Ako ti je bas stalo da se otarasis tih poruka, onda moras dodeljivanje vrednosti promenljivima vrsiti u IF blokovima, ali ti to duplira kod jer moras da ponovis iste linije u oba bloka.
Mozes eventualno da ta dva IF bloka formulises da sadrze na kraju i jedan ELSE, mozda ti to eliminise ta obavestenja, ali to ne mogu da ti garantujem.

Da, da, to je to, resio sam problem, hvala ti!
Znaci ovako,
Pored toga sto odredim koja promenljiva pripada kom polju pre IF f-je,
pa onda treba u obe IF f-je ISPOD formula za Ik i UI opet odrediti koje polje pripada kojoj promenljivoj (ovog puta bez M).
I to je to, sve onda radi besprekorno hvala ti jos jednom!
Pozdrav