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

//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 

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

Разработка измерительного канала температуры на основе бесконтактных методов
Без грамотного построения измерительного канала невозможно построить систему автоматического регулирования и управления технологическим процессом (АСУТП). Данный курсовой проект дает возможность не только в теории, но на практике познать сущность проблемы проектирования измерительных ...

Разработка систем автоматического регулирования
Основы теории управления - одна из дисциплин, образующих науку об управлении. Эта наука в последние годы распространила свое влияние не только на системы управления технического характера (станки, роботы, самонаводящиеся ракеты, беспилотные самолеты, космические аппа ...

Разделы

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