Ваш браузер устарел. Рекомендуем обновить его до последней версии.





 


 



Урок 10     Случайные числа. Создание и обработка одномерных массивов

Программа позволяет получать случайные трехзначные числа в диапазоне от 100 до 999 включительно. Здесь оператор Random генерирует случайные числа. Оператор Randomize нужен для того что бы начальное число не повторялось при повторном запуске приложения. Потребуются компоненты TButton и TLabel.

 

unit Unit6;

interface

uses
     Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
     Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls,
     Vcl.StdCtrls;

type
   TForm6 = class(TForm)
      Button1: TButton;
      Image1: TImage;
      Label1: TLabel;
     Button2: TButton;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
   private
        { Private declarations }
   public
        { Public declarations }
   end;

var
   Form6: TForm6;
      a: integer;
      n: integer;
implementation

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);
begin
      Close;
end;

procedure TForm6.Button2Click(Sender: TObject);
begin

     Randomize;

     a := Random(900) + 100;
     Label1.Caption := IntToStr (a);

end;

end.

 

Следующая программа формирует одномерный массив из двадцати случайных чисел в диапазоне от 0 до 9. А так же находит сумму всех элементов этого массива, вычисляет среднее значение и подсчитывает число пятерок в нем. Перед написанием программного кода на форме необходимо разместить компоненты – Button и четыре Label.

 

unit Unit7;

interface

uses
     Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
     Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage, Vcl.ExtCtrls;

type
     TForm7 = class(TForm)
        Label1: TLabel;
        Button1: TButton;
        Label2: TLabel;
        Label3: TLabel;
        Image1: TImage;
        Label4: TLabel;
        procedure Button1Click(Sender: TObject);
   private
         { Private declarations }
   public
         { Public declarations }
   end;

var
    Form7: TForm7;
    a: array[1..20] of integer; //массив на двадцать элементов
    i: integer; //переменная целого типа
    s: integer;
    p: integer;
    c: real; //переменная вещественного типа

implementation

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);
begin
       Label1.Caption := ''; //очистка поля метки
       Randomize; //рандомизация
       s := 0; //обнуление суммы
       p := 0;

    for i:=1 to 20 do //цикл ДЛЯ
    begin //начало цикла
         a[i] := Random(10); //в элемент массива положить случайное число
         Label1.Caption := Label1.Caption + ' ' + IntToStr (a[i]); //вывод на экран
         s := s + a[i]; //последовательное суммирование элементов массива
         if a[i] = 5 then p := p + 1; //подсчет числа пятерок с помощью условия ЕСЛИ

    end; //конец цикла

        Label2.Caption := 'Сумма = ' + IntToStr (s); //вывод суммы на экран
        c := s/20; //вычисление среднего значения
        Label3.Caption := 'Среднее = ' + FloatToStr (c); //вывод среднего на экран
        Label4.Caption := 'Число пятерок = ' + IntToStr (p); //вывод числа пятерок на экран
end;

end.

 

Пиши, звони, не тормози

Flag Counter
Яндекс.Метрика
200stran.ru: показано число посетителей за сегодня, онлайн, из каждой страны и за всё время
Besucherzahler russain brides
счетчик посещений

Выбери лучшее!

allbest