Anonymní profil MatrO – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil MatrO – Programujte.comAnonymní profil MatrO – Programujte.com

 

Příspěvky odeslané z IP adresy 90.176.18.–

MatrO
Delphi › Pořadí čísla
12. 6. 2012   #159062

 Mám velice jednoduchý prográmek, který vypíše nejnižší číslo ze všech zadaných a potřeboval bych ho ještě doplnit aby vytiskl i pořadí čísla (jako kolikáté bylo zadáno), předem díky...

procedure TForm1.Button1Click(Sender: TObject);
var n,i,p:integer; a,min:real;
begin
 n:=spinedit1.Value;
 min:=999; p:=0;
  for i:=1 to n do
   begin
    a:=strtofloat(inputbox('','',''));
    if a<min then begin
                  min:=a;

                  end;
  end;
 label1.Caption:='nejmensi cislo = '+floattostrf(min,fffixed,15,2);

end;
MatrO
Delphi › Aritmetický průměr
6. 5. 2012   #157481

Díky všem už funguje :)
 

MatrO
Delphi › Aritmetický průměr
6. 5. 2012   #157464

Zdravím, snažim se napsat prográmek na výpočet aritmetického průměru, ale pořád nefunguje jak by měl. 

var n,i,pocet:integer; a,S,pr:real;

begin
n:=spinedit1.Value; {načtu počet čísel, z kterých se bude průměr počítat}

Button1.Enabled:=false;{není důležitý}
S:=0; pocet:=0;
For i:=1 to n do
  begin a:=StrToFloat(InputBox('zadej cislo a','zadej cislo a'+intToStr(i),''));
        listbox1.Items.Add(FloatToStr(a));

s:=s+a;{tady někde bude chyba...}

p:=s/n;

Label1.Caption:='P= '+floatTostrF(p,fffixed,15,2)

end.

program ale jen vydělí poslední zadané číslo a/n a výpis do listboxu taky nefunguje protože tam vypíš též poslední zadané a a to n-krát :( (

Předem díky všem, zřejmě to není nic složitýho ale já začínám...

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032017 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý