Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 2 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 28.11.12
Prihlásený: 25.01.13
Príspevky: 6
Témy: 3
Príspevok NapísalOffline : 25.01.2013 1:31

Chcela by som vas poziadat, 31.01 mam posledny termin skusky, programujem vo velkom ale vela veci mi nie je jasnych, nechcem aby mi tu niekto za mna robil ulohy to nie ale budem rada ak ma niekto usmerni alebo ak je tu niekto ochotny ma doucit za financnu odmenu z BA budem velmi rada, mne sa nepodarilo zatial nikoho najst a velmi mi na tej skuske zalezi, chcela by som pomôct na dnes s touto vecou...

mam toto:

Do formulára vložte tlačidlo, ktorému zmeňte popis na "Pyramída". Napíšte program, ktorý zabezpečí, aby sa pri jeho stlačení zmazala grafická plocha a náhodnou farbou sa nakreslila pyramída. Výška jedného stupňa pyramídy je 20 a šírka najmenšieho stupňa je tiež 20. Každý ďalší stupeň je o 40 väčší. Počet stupňov zadajte do Edit.

procedure TForm1.Button2Click(Sender: TObject);
var
i,x,y,a:Integer;
begin
for i:=0 to a do begin
a:=StrToIntDef(Edit1.Text,10);
x:=Image1.Width;
y:=0;
Image1.Canvas.Rectangle(x+20+i*a,y+20+i*a,x+20+(i+1)*a,y+20+(i+1)*a);
y:=y+40;
end;

end;

Ja viem ze mam nieco zle, ale chcem vediet co, ja sa s tym neskutocne trapim, Prosim vas, pomôzte mi.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 06.04.10
Prihlásený: 18.02.14
Príspevky: 47
Témy: 2
Príspevok NapísalOffline : 29.01.2013 0:49

Form obsahuje Image1 (velkost[200,200]), Edit1 a Button1. Maximalna velkost pyramidy je 4 (vysvetlene v kode).
Polygon je n-uholnik. Takze napiseme vrchlovy a on ich pospaja (v nasom pripade A,B,C kde C je vrchol).
Kód:
const
  velkost = 20;
var
  Form1: TForm1;
  farba: TColor;
  sirka,vyska,stupne: Byte;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
// prekreslime kresliacu plochu
  Image1.Picture := nil;
// vygenerujeme farbu pre pyramidu
  farba := RGB(Random(255),Random(255),Random(255));
  sirka := Image1.Width;
  vyska := Image1.Height;
  stupne := StrToInt(Edit1.Text);
// nastavime farbu stetca
  Image1.Canvas.Brush.Color := farba;
// velkost pyramidy bude o 1 do max. 4 (velkost image1 =  200) -> 20 + "4"*40 = 180; 5 uz je vela!
  if ((stupne >= 1) and (stupne < Trunc((Image1.Height)/40))) then
    Image1.Canvas.Polygon([ Point(Trunc(sirka/2) - Trunc(velkost/2) - (stupne-1)*velkost,sirka),
                            Point(Trunc(sirka/2) + Trunc(velkost/2) + (stupne-1)*velkost,sirka),
                            Point(Trunc(sirka/2),vyska - velkost-(stupne-1)*40)])
  else begin
    ShowMessage('zle parametre');
    Image1.Picture := nil;
  end;
end;


Odpovedať na tému [ Príspevkov: 2 ] 


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. pascal skuska

v Assembler, C, C++, Pascal, Java

2

592

30.01.2008 17:46

alex7625 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Skúška Linux

v Operačné systémy Unix a Linux

3

475

16.06.2018 21:44

tatko Tom Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. skuska reproduktorov

v Audio programy

2

1212

11.01.2010 21:07

Bizzaremifo Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Skúška obvodu

v Elektronika

2

612

04.07.2011 20:55

NecKneSS Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. skuška matičnej dosky

v Intel čipové sady

23

2047

17.07.2009 14:46

harry44 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. skuska antiviroveho softu

v Antivíry a antispywary

8

1123

07.01.2008 19:16

jarod242 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Skuska Windows 8

v Operačné systémy Microsoft

6

405

16.12.2012 12:08

Snipo Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Skúška tech. možnosti a nervov

v Intel - Integrated Electronics

5

627

17.09.2007 14:35

tommy1104 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. edit nastavenie

v Delphi, Visual Basic

9

799

14.05.2009 8:10

Fico Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Image edit

v Ostatné programy

2

1202

09.04.2006 13:49

Spirit Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Cool Edit

v Audio programy

0

1003

24.05.2007 18:04

diademus Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Edit profilu

v PHP, ASP

2

1142

14.12.2008 18:43

kajbo Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Edit - prázdne

v Delphi, Visual Basic

3

655

05.06.2011 0:11

coldak Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Tlačítko EDIT

[ Choď na stránku:Choď na stránku: 1, 2 ]

v Správy pre vedenie fóra

38

4760

19.05.2007 0:12

JanoF Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Edit error :)

v Správy pre vedenie fóra

2

1220

12.07.2008 23:20

Triminka Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. BBcode Edit

v Redakčné systémy

9

859

23.10.2006 13:48

PCMark Zobrazenie posledných príspevkov


Nemôžete zakladať nové témy v tomto fóre
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra