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 839 korisnika na forumu :: 62 registrovanih, 5 sakrivenih i 772 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 2413 - dana 03 Okt 2019 05:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., amaterSRB, Arhiv, bankulen, bato, blbubi13, Bloody, bondon46, cole77, CUCLA70, Cufo, Detective, Dicus, djordje92sm, Doca, doom83, Dusan Medojevic, Eyes Wide Shut, FOX2, Gama, gorval, ivan979, knezevic_i, Koca Popovic, kolateralnasteta, Kubovac, ljuba sd, mercedesamg, Mihajlo2, milimoj, milos.cbr, miodrag, mirbat, novidan, ozz2, Panter2, panticstefan53, pein, perica5, PrintZip, Recce, Regrut Boskica, renoje2, repac, RJ, rodoljub, SAA fan, shmele, Shomy2, sosko, stokanovicm, styg, theNedjeljko, trutcina, vathra, Viceroy2, Vlada78, vladas87, voja64, xandar, yrraf, šumar bk2