Neko ko zna Pascal?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Odmah da kazem da mi treba za skolu

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
Radi se o funkcijama, podprogramima, procedurama, itd.

Treba mi za prolaznu ocenu, placam 5$.

• 1Ovo se svidja korisniku: LoXo
  
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

{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.}

• 1Ovo se svidja korisniku: vinted
  
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

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