Добро времени суток уважаемые знатоки.
сделать блок-схему для программы.
заранее .
код программы( 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.
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. стоимость
// 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.
Пример:
Слово-> Виноград
Четно