Začátečník potřebuje poradit – Delphi – Fórum – Programujte.com

Dobry den.Chtěl bych se zeptat jestli by mi někdo pomohl s procedurou jsem začatečnik a nějak v tom plavu.Mam dany příklad a jeho znění je:Program načte přirozené číslo N (N>2) a dále posloupnost N nenulových čísel a zjistí, zda je tato posloupnost geometrická.Poradil by mi někdo?Děkuji za odpověd.

http://programujte.com/forum.php?akce=prispevek&id=3863&sekce=program
není to to stejné?

Neni tam to je aritmeticka mi se jedna o geometrickou a mam tam nenulova cisla.

To suprk:
Jediny rozdil v te implentaci bude ve vypoctu diference(resp. kvocientu q).

function JeToPosloupnost(N: Integer):Boolean;

var q,num, prev: Real;

    i: Integer;

begin

    JeToPosloupnost := false;

    for i:=1 to N do begin

      write('Zadej ',i,'. cislo posloupnosti: '); readln(num);

      if(i = 2) then  q := prev / num;;

      if(i >= 2)and((prev / num) <> q) then exit;

      prev := num;

    end;

    JeToPosloupnost := true;

end;

To Jura:Tak nevim ale mi to nefunguje neni tady nekdo kdo na 100% by umel udelat funkcni proceduru toho prikladu.Moc bych to potreboval.

To suprk:
Spokojenost?

program Project2;



{$APPTYPE CONSOLE}



uses

  SysUtils;



function JeToPosloupnost(N: Integer):Boolean;

var q,num, prev: Real;

    i: Integer;

begin

    JeToPosloupnost := false;

   i := 1;

   while(i <= N) do begin

      write('Zadej ',i,'. cislo posloupnosti: '); readln(num);

      if(num = 0) then Continue;

      if(i = 2) then  q := num / prev;

      if(i >= 2)and((num / prev) <> q) then exit;

      prev := num;

      i := i +1;

    end;

    JeToPosloupnost := true;

end;





var N: Integer;



begin

   repeat

   writeln('Zadej pocet prvku posloupnosti: '); readln(N);

   until N > 2;

   if(JeToPosloupnost(N)) then writeln('Je to posloupnost.')

   else writeln('Neni to posloupnost');

   readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

Jo dobry jsi frajer ted se snazim to udelat nejak bez pouziti funkce..To by melo jit taky ne?

Jde

Prosim neudelal bys mi to bez pouziti funkce i s vyvojakem?Jen pomoci zakladnich prikazu rekneme prosim.moc to dneska potrebuju najde se nekdo kdo me zachrani?Vim ze pro ty co to umi je to za chvilku udelejte dobry skutek.byl bych vam moc vdecny.

To suprk:

program Project2;



{$APPTYPE CONSOLE}



uses

  SysUtils;



var N, i: Integer;

    q,num, prev: Real;

    JeToPosloupnost: Boolean;

begin



   repeat

   writeln('Zadej pocet prvku posloupnosti: '); readln(N);

   until N > 2;

   JeToPosloupnost := true;

   i := 1;

   while(i <= N) do begin

      write('Zadej ',i,'. cislo posloupnosti: '); readln(num);

      if(num = 0) then Continue;

      if(i = 2) then  q := num / prev;

      if(i >= 2)and((num / prev) <> q) then begin // pozor muye byt nepresne

         JeToPosloupnost := false;  // skakani z cyklu tu pro jednoduchost sestaveni diagramu nebudu uvadet

      end;

      prev := num;

      i := i +1;

    end;

    if(JeToPosloupnost) then writeln('Je to geometricka posloupnost')

    else  writeln('Neni to geometricka posloupnost');

   readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

Prosimvas potrebuju poradit jak odeslu udalost onclick v dximage

ten dximage je kde? nenašiel som takú komponentu, to máš doinštalované rozšírenie?
Skús to nahradiť udalosťou onmousedown alebo onmouseup ak tam také sú

dximage je součást DelphiX