Курсовая работа по дисциплине «Программирование»

Дать комментарии действий к уже выполненным кодам программ.

 

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

n, i:integer;

a: array [1..100] of integer;

b,c,d,e:integer;

begin

N:= 10; //число элементов

for i:=1 to n do //цикл по числу элементов

begin

A[i]:= 20-random(10*3); //генерируем элемент

Memo1.Lines.Add(FloatToStrF(A[i],ffGeneral,4,4)); //выводим его на экран

end;

//обнуляем все переменные

b := 0;

c := 0;

d := 0;

e := 0;

for i:=1 to n do //просматриваем все элементы массива

begin

if ((A[i-1] > 0)and(A[i] > 0)) then    b:= b +1; //проверка двух положительных

if ((A[i-1] > 0)and (A[i] < 0)or(A[i-1] < 0)and(A[i] > 0)) then  c:= c + 1; //проверка двух чисел с разными знаками

if ((A[i-1]*A[i] > 0)and(abs(A[i-1]) > A[i])) then d:= d + 1; //числа с одним знаком, при этом модуль первого больше второго

if (((A[i-1]mod 2) = 0)and((A[i] mod 2) = 1)and(i mod 2= 1))or((A[i-1]mod 2) = 1)and((A[i]mod 2) = 0)and((i-1 mod 2 = 1))  then e:= e + 1; //четное с нечетным, с учетом нечетного индекса

end  ;

//вывод результатов

Edit1.Text:=IntToStr(b);

Edit2.Text:=IntToStr(c);

Edit3.Text:=IntToStr(d);

Edit4.Text:=IntToStr(e);

end;

 

end.