Яна116727

04.07.2021 17:03 •  Информатика

Добро времени суток уважаемые знатоки.

сделать блок-схему для программы.

заранее .

код программы( delphi)

unit unit1;

interface

uses

winapi.windows, winapi.messages, system.sysutils, system.variants, system.classes, vcl.graphics,

vcl.controls, vcl.forms, vcl.dialogs, vcl.stdctrls, math;

type

tform1 = class(tform)

label1: tlabel;

aedit: tedit;

a: tlabel;

bedit: tedit;

b: tlabel;

cedit: tedit;

c: tlabel;

zedit: tedit;

z: tlabel;

button1: tbutton;

memo1: tmemo;

procedure button1click(sender: tobject);

private

{ private declarations }

public

{ public declarations }

end;

var

form1: tform1;

implementation

{$r *.dfm}

procedure tform1.button1click(sender: tobject);

type mas=array[1..15] of real;

var m: mas;

var i,count_c: integer;

var a,b,c,result: real;

begin

memo1.clear;

aedit.clear;

bedit.clear;

cedit.clear;

zedit.clear;

for i: =1 to 15 do

begin

m[i]: =strtofloat(inputbox('окно ввода',

'элементы массива','0'));

memo1.lines.add(floattostr(;

end;

a : = 1;

b : = m[1];

c : = 1;

count_c : = 0;

for i: = 1 to 15 do

begin

if(m[i] < 0) then a : = a * m[i];

if (b < abs( then b: = abs(m[i]);

if(m[i] > 0) then

begin

c: = c * m[i];

count_c : = count_c + 1;

end;

end;

c: = power(c, (1/count_c));

result : = (a*b)/(c + 2.11);

aedit.text: =floattostr(a);

bedit.text: = floattostr(b);

cedit.text: = floattostr(c);

zedit.text: = floattostr(result);

end;

end.