close

Вход

Забыли?

вход по аккаунту

?

1+ (2)

код для вставкиСкачать
Лабораторная работа №2
Программирование конечного автомата.
Текст программы:
var x:real; s:integer;
begin s:=0;
repeat writeln ('Вводи x');
readln(x);
case s of
0: begin if x>5 then begin writeln ('S=',s);
s:=1; end
else begin writeln ('S=',s);
s:=5; end; end;
1: begin if x>10 then writeln ('S=',s);
if ((x>=-1) and (x<=10)) then begin writeln ('S=',s);
s:=2; end;
if x<-1 then begin writeln ('S=',s);
s:=4; end; end;
2: begin if x<=5 then begin writeln ('S=',s);
s:=3; end
else begin writeln ('S=',s);
s:=1; end; end;
3: begin if x>-2 then begin writeln ('S=',s);
s:=4; end
else begin writeln ('S=',s);
s:=2; end; end;
4: begin if x>0 then begin writeln ('S=',s);
s:=5; end
else begin writeln ('S=',s);
s:=2; end; end;
end;
until s=5;
writeln ('Конец');
end.
Результат компилирования: 
Документ
Категория
Рефераты
Просмотров
10
Размер файла
5 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа