Разработка блок-схемы программы «Тест»

//24

(vopros: 'Сообщение ТСАР состоит из информационных элементов, включающих: ';: 'Метку маршрутизации';: 'Метку маршрутизации, параметр длины и содержание';: 'Метку маршрутизации и содержание';: 'Параметр длины и содержание';: 2),

//25

(vopros: 'Маршрутизация сигнального сообщения основана на анализе:';: 'Байта служебной информации';: 'Кода пункта назначения';: 'Поля селекции';: 'Этикетки маршрутизации сообщения';: 4),

//26

(vopros: 'Различают следующие типы сообщений переносимых В ЗНСЕ:';: 'Сообщения предназначены для установления и разъединения соединений';: 'Сообщения предназначены для установления, разъединения, управления';: 'Сообщения предназначены для установления и управления соединений';: 'Сообщения предназначены для разъединения соединений';: 2),

//27

(vopros: 'Надёжность передачи сигнального сообщения достигается за счёт возможности:';: 'Выхода на сеть общего пользования';: 'Обходного пути в сети сигнализации';: 'Альтернативной маршрутизацией в сети сигнализации';: 'Установление резервного сигнального соединения';: 3),

//28

(vopros: 'Сигнальное звено выполняет следующие функции:';: 'Деление передаваемой информации на СЕ';: 'Обнаружение ошибок';: 'Деление на СЕ, обнаружение и исправление ошибок, отказов';: 'Исправление ошибок';: 3),

//29

(vopros: 'Подсистема передачи сообщений делится на уровни:';: 'Звена передачи, сигнального звена сети сигнализации';: 'Звена передачи данных сигнализации';: 'Сети сигнализации';: 'Сигнального звена';: 1),

//30

(vopros: 'второй класс услуг SCCP это:';: 'Основной класс услуг, неориентированных на соединение';: 'Основной класс услуг, ориентированных на соединение';: 'Класс услуг с контроллем последовательности доставки сообщений';: 'Класс услуг, ориентированных на соединение, с управлением потоками';

otvet: 2)

);: TForm3;

{$R *.dfm}TForm3.Timer1Timer(Sender: TObject);.Position:=ProgressBar1.Position + 4;ProgressBar1.Position=100 then.SpeedButton1.Click;;end;TForm3.SpeedButton2Click(Sender: TObject);;;TForm3.SpeedButton3Click(Sender: TObject);i:byte;edit1.Text='' then('Не Введена Фамилия'):=edit1.Text;.SpeedButton3.Visible:=false;.Label1.Visible:=false;.Edit1.Visible:=false;.Memo1.Visible:=true;.ProgressBar1.Visible:=true;.RadioGroup1.Visible:=true;.SpeedButton1.Visible:=true;.SpeedButton2.Visible:=true;.Enabled:=true;.OnTimer(sender);;:=random(30);:=0;:='';:=1;:=[1 30];;not(b in vopr) do:=random(30)+1;:=vopr-[b];.Lines.Text:=('1. '+tes[b].vopros);:=random(4)+1;i of

: begin.Items.Strings[0]:=tes[b].var1;.Items.Strings[1]:=tes[b].var2;.Items.Strings[2]:=tes[b].var3;.Items.Strings[3]:=tes[b].var4;:=1;:=2;:=3;:=4;;

: begin.Items.Strings[0]:=tes[b].var2;.Items.Strings[1]:=tes[b].var3;.Items.Strings[2]:=tes[b].var4;.Items.Strings[3]:=tes[b].var1;:=2;:=3;:=4;:=1;;

: begin.Items.Strings[0]:=tes[b].var1;.Items.Strings[1]:=tes[b].var3;.Items.Strings[2]:=tes[b].var4;.Items.Strings[3]:=tes[b].var2;:=1;:=3;:=4;:=2;;

: begin.Items.Strings[0]:=tes[b].var3;.Items.Strings[1]:=tes[b].var4;.Items.Strings[2]:=tes[b].var2;.Items.Strings[3]:=tes[b].var1;:=3;:=4;:=2;:=1;; end;;end;TForm3.SpeedButton1Click(Sender: TObject);i:byte;RadioGroup1.ItemIndex=0 then c:=h;RadioGroup1.ItemIndex=1 then c:=j;RadioGroup1.ItemIndex=2 then c:=k;RadioGroup1.ItemIndex=3 then c:=l;.ItemIndex:=0;c<>tes[b].otvet then inc(d,1); //проверяем ответe<30 then beginnot(b in vopr) do:=random(30)+1;:=vopr-[b];(e,1);.Position:=0;.Lines.Text:=(inttostr(e)+'. '+tes[b].vopros);:=random(4)+1;i of

: begin.Items.Strings[0]:=tes[b].var1;.Items.Strings[1]:=tes[b].var2;.Items.Strings[2]:=tes[b].var3;.Items.Strings[3]:=tes[b].var4;:=1;:=2;:=3;:=4;;

: begin.Items.Strings[0]:=tes[b].var2;.Items.Strings[1]:=tes[b].var3;.Items.Strings[2]:=tes[b].var4;.Items.Strings[3]:=tes[b].var1;:=2;:=3;:=4;:=1;;

: begin.Items.Strings[0]:=tes[b].var1;.Items.Strings[1]:=tes[b].var3;.Items.Strings[2]:=tes[b].var4;.Items.Strings[3]:=tes[b].var2;:=1;:=3;:=4;:=2;;

: begin.Items.Strings[0]:=tes[b].var3;.Items.Strings[1]:=tes[b].var4;.Items.Strings[2]:=tes[b].var2;.Items.Strings[3]:=tes[b].var1;:=3;:=4;:=2;:=1;; end;e=30 thenelse begin.Caption:='Закончить тест';.Enabled:=false;.Visible:=false;.Visible:=false;.Visible:=false;d<=3 then Ocenka:='5';(d>3) and (d<7) then Ocenka:='4';(d>=7) and (d<15) then Ocenka:='3';d>=15 then Ocenka:='2';:=FIO+' ваша оценка '+Ocenka;.label1.Caption:=Ocenka;.Visible:=true;.OnClick:=SpeedButton2Click;;end;end.

Перейти на страницу: 1 2 

Другие стьтьи в тему

Разработка микропроцессорной системы управления РТК на базе вертикально–фрезерного станка 6Р13Ф3-37
Автоматизация технологических процессов является одним из эффективных путей повышения производительности труда на предприятии. Автоматизация осуществляется посредством автоматизированных роботизированных технологических комплексов (РТК). Роботизированный технологический компле ...

Разработка шлирен–проектора для контроля объективов
Оптический контроль основан на анализе взаимодействия оптического излучения с объектами контроля. В качестве объектов контроля могут служить материалы и изделия, технологические процессы и параметры окружающей среды. Для получения измерительной информации об объекте контроля использ ...

Разделы

Радиоэлектроника и телекоммуникации © 2018 : www.techelements.ru