М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
лидусик13
лидусик13
25.03.2023 23:01 •  Информатика

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

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

заранее .

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

👇
Открыть все ответы
Ответ:
maks737
maks737
25.03.2023
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var a:=ArrRandom(100,-10,10);
  a.Println;
  Writeln(a.Where(x->x>0).Count,' положительных, ',
    a.Where(x->x<0).Count,' отрицательных')
end.

Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных
4,6(100 оценок)
Ответ:
МаКсИк009
МаКсИк009
25.03.2023

32

Объяснение:

Данная программа прибавляет к переменной s 128, а еще увеличивает переменную n в два раза, и все это до тех пор пока s меньше или равняется 1024. То есть, эти изменения переменных прекратятся, когда условие цикла не будет выполнено (а именно, когда s станет больше 1024). И после того, как это произойдет программа выведет значение переменной n (как раз то, что нам нужно узнать!)

Итак, запустим программу:

n = 1

s = 0

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 2

s = 128

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 4

s = 256

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 8

s = 512

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 16

s = 1024

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 32

s = 2048

Условие цикла выполняется (s меньше или равняется 1024)? Нет (наконец-то!).

Цикл перестает выполнятся, и программа пишет значение n, которое равняется (смотрим выше) 32.

На экране напечатано 32, все живы, все счастливы!

4,8(40 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ