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

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

заранее .

код программы( 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.

184

297

Посмотреть ответы 1

Ответы на вопрос:

xomidov

Информатика

4,4(88 оценок)

Преимущество кодом, в которых сообщения кодируются словами не обязательно равной длины, состоит в большей эффективности.

При применении неравномерного кода для представления информации можно в среднем использовать меньше символов.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.