Neko ko zna Pascal?

Neko ko zna Pascal?

offline
  • LoXo  Male
  • Super građanin
  • Pridružio: 14 Okt 2011
  • Poruke: 1212

Odmah da kazem da mi treba za skolu GUZ - Glavom U Zid

Potreban mi je neko sutra oko 2 sata da mu posaljem 2-3 zadatka koja treba da uradi sto pre. Najkasnije pola sata nakon sto posaljem. Takodje isto od oko 19:20 cu imati 2 zadatka da se uradi u sto kracem roku. Zadaci su nekome ko zna da radi laki, skolski su Very Happy
Radi se o funkcijama, podprogramima, procedurama, itd.

Treba mi za prolaznu ocenu, placam 5$.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Hehe... teško da će neko da ustane u 7:20 da radi zadatke, ali možda ustanem do 9 pa bacim pogled Smile Nisi napisao za koji Pascal ti treba?



offline
  • LoXo  Male
  • Super građanin
  • Pridružio: 14 Okt 2011
  • Poruke: 1212

Ne ujutru nego u 19:15h Very Happy
Prvo mi je potrebno oko 14h neko za 2-3 zadatka, pa onda oko 19h.
Free Pascal.
btw to je danas

offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Aha... verovatno Free Pascal 3. Ti postavi, pa će neko možda uspeti da odgovori na vreme.

offline
  • LoXo  Male
  • Super građanin
  • Pridružio: 14 Okt 2011
  • Poruke: 1212

{1. Napisati program za izracunavanje obima kadrata ako je poznata dijagonala kvadrata. Program radi sve dok se za dijagonalu kvadrata unose pozitivni brojevi manji od 50. Stampati tabelarno: dijagonalu, duzinu stranice a i obim. Program uraditi
koriscenjem funkcije stranica.
2. Napisati program kojim se za n trocifrenih brojeva racuna najveca i najmanja cifra. Program uraditi pomocu podprograma.}

offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Napisano: 21 Jan 2016 16:33

Nisam stigao pre, ali bolje ikad nego nikad Smile

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: https://www.mycity.rs/must-login.png

Srećno Smile

Ko je trenutno na forumu
 

Ukupno su 652 korisnika na forumu :: 39 registrovanih, 5 sakrivenih i 608 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 19:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Petar, _Sale, A.R.Chafee.Jr., amaterSRB, AMCXXL, banebeograd, bespilotni, bojank, darkangel, Dicus, dragoljub11987, Faki-Valjevo, FOX2, Futurama, goranvas, HDMI, indja, ivan979, janezek67, Jezekijel, Kubovac, ltcolonel, LUDI, Mercury2, milimoj, MORAVA1, ostoja2, Perko91, Pippi Langstrumpf, rovac, S-lash, sasa.zoric, sekretar, SsssssNOVI, Toni, vathra, Vlada1389, vukdra, zlaya011