В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
evgeniykorotkov
evgeniykorotkov
15.11.2021 21:24 •  Информатика

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

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

заранее .

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

Показать ответ
Ответ:
nikzyryanov02
nikzyryanov02
18.05.2022 02:59

3)Номинальное физическое представление сигнала S0 - это нулевой уровень напряжения UВХ (пауза) с расчетной длительностью п0=5*10-3с. Сигнал S1 представлен так же, только расчетная длительность п1=10*10-3с.

 

Микросхема DD1 содержит два ждущих одновибратора типа АГ. Одновибратор DD1.1 имеет расчетную длительность выходного импульса OB1=4*10-3с. Одновибратор DD1.2 - длительность OB2=2*10-3с. Аналогичные одновибраторы выполнены и на элементах DD2.1 (ОВ3=9*10-3с. ) и DD2.2 (ОВ4=2*10-3с ).

Группа элементов DD3.1, DD3.2, DD3.3, DD4.1 предназначена для получения реакции схемы на окончание входного сигнала. Отметим, что здесь необходимо принимать во внимание задержку сигнала в элементах DD3.1, DD3.2, DD3.3.

Задача:

1. Назначив величину тактового интервала О, постройте диаграммы сигналов во входной цепи, а также в выходных цепях одновибраторов, на выходе элемента DD4.1, на выходах всего опознавателя.

2. Вы считаете, что канал, содержащий такой опознаватель элементарных сигналов, надо отнести к категории:

- каналов без стирания элементарного сигнала;

- каналов со стиранием элементарного сигнала;

Обоснуйте свой ответ.

3. Если Вы выбираете ответ «канал со стиранием», то:

- изменением каких параметров схемы можно изменить величину зоны стирания?

Рис.2.8. Функциональная схема опознавателя двоичных ШИМ-сигналов.

- как модернизировать схему, чтобы получить сигнал о происшедшем на данном тактовом интервале стирании?

4. Если Вы выбрали ответ «без стирания», то предложите доработку схемы, которая превращала бы ее в опознаватель со стиранием.

2)

Необходимо обозначить критерий «нормальности» течения процесса информационного взаимодействия и возможные варианты отклонения от «нормы». Данный вопрос включает в себя всё, что может вызвать такие отклонения. 1)

я напишу основные характеристики накопителей и носителей информации, требования можно излечь,опираясь на эти положения 
1. информационная ёмкость 
2. скорость обмена информации 
3. надёжность хранения информации 
4. стоимость

 

0,0(0 оценок)
Ответ:
Мышастик
Мышастик
27.02.2020 00:37

// PascalABC.NET

// Версия 3.3.5 сборка 1662 (29.04.2018)


А

begin

   Println('Кол-во символов -',ReadString('Слово->').Length)

end.


Пример:

741258963

Кол-во символов - 9


Б

begin

   var s:=ReadString('Слово-> ').ToLower;

   Println(s[1]=s[s.Length]?'Совпадают':'Не совпадают');

end.


Пример:

Слово-> Олово

Совпадают


В

begin

   var s:=ReadString('Слово-> ');

   Println(s[1],s[2],s[s.Length]);

end.


Пример:

Слово-> Плотина

П л а


Г

begin

   Println(ReadString('Слово->').Length mod 2=0?'Четно':'Нечетно');

end.


Пример:

Слово-> Виноград

Четно

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота