_oof_

Untitled

Oct 17th, 2020
109
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. unit Unit1;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. interface
  6.  
  7. uses
  8.   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
  9.  
  10. type
  11.  
  12.   { TForm1 }
  13.  
  14.   TForm1 = class(TForm)
  15.     btnSpocti: TButton;
  16.     btnNuluj: TButton;
  17.     Label3: TLabel;
  18.     Vysledek: TEdit;
  19.     Label2: TLabel;
  20.     Vstup: TEdit;
  21.     Label1: TLabel;
  22.     procedure btnNulujClick(Sender: TObject);
  23.     procedure btnSpoctiClick(Sender: TObject);
  24.     procedure FormCreate(Sender: TObject);
  25.   private
  26.  
  27.   public
  28.  
  29.   end;
  30.  
  31. var
  32.   Form1: TForm1;
  33.  
  34. implementation
  35.  
  36. {$R *.lfm}
  37.  
  38. { TForm1 }
  39.  
  40. procedure TForm1.FormCreate(Sender: TObject);
  41. begin
  42.   btnNulujClick(Sender);
  43. end;
  44.  
  45. procedure TForm1.btnNulujClick(Sender: TObject);
  46. begin
  47.   Vstup.Text := '';
  48.   Vysledek.Text := '0';
  49. end;
  50.  
  51. procedure TForm1.btnSpoctiClick(Sender: TObject);
  52. var Suma:real;
  53.     i, Pocet:integer;
  54.     Znak, Cislo:string;
  55.  
  56. begin
  57.  
  58.   Pocet := 0;
  59.   Suma  := 0;
  60.   Cislo := '';
  61.   // Cyklus na rozebrání řetězce po znacích:
  62.   for i:=1 to length(Vstup.Text) do begin
  63.     Znak := copy(Vstup.Text,i,1);
  64.     if (Znak=' ') OR (Znak='0') then
  65.       try
  66.         Suma := Suma+StrToFloat(Cislo);
  67.         inc(Pocet);
  68.         Cislo := '';
  69.       except
  70.       end
  71.     else
  72.       Cislo := Cislo+Znak;
  73.   end;
  74.  
  75.  
  76.   // Výpočet průmeru:
  77.   try
  78.     Vysledek.Text := FloatToStr(Suma/Pocet);
  79.   except
  80.  
  81.   end;
  82. end;
  83.  
  84. end.
  85.                                                                                  
RAW Paste Data