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

//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
Автоматизация технологических процессов является одним из эффективных путей повышения производительности труда на предприятии. Автоматизация осуществляется посредством автоматизированных роботизированных технологических комплексов (РТК). Роботизированный технологический компле ...

Радиоволновый метод обеспечения безопасности помещений
Актуальность темы дипломной работы заключается в том, что системы защиты и охраны периметра занимают ведущее место в обеспечении охраны объектов различного назначения. Этими объектами являются промышленные объекты, объекты повышенного риска (химические предприятия), склады, ангары, х ...

Разделы

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