favorit
1

Описание кода

10.10.2012, 15:35. Показов 2273. Ответов 1
Метки нет (Все метки)

Помогите с описанием кода программы. Что бы сдать зачет нужно рассказать, что делает программа. Что делает каждая строка. Недетерминированный конечный автомат.
Заранее благодарен.

код
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program nka;
const
P0: array[0..3] of integer = (22, 16, 0, 16);
P1: array[0..3] of integer = (0, 0, 10, 0);
m=4;
var
s, s1, n, i, j: integer;
str: string;
 
begin
writeln('input string:');
readln(str);
s:=1;
n:=length(str);
for i:=1 to n do begin
if (str[i]<>'0')and(str[i]<>'1') then begin
writeln('string is invalid');
halt
end;
s1:=0;
for j:=0 to m-1 do if (s and (1 shl j))<>0 then begin
if str[i]='0' then s1:=s1 or P0[j];
if str[i]='1' then s1:=s1 or P1[j]
end;
s:=s1;
end;
if (s and (1 shl m))<>0 then writeln('string is valid') else writeln('string is invalid')
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2012, 15:35
Ответы с готовыми решениями:

Описание кода
Помогите пожалуйста с описание к этому коду: uses crt; function F(x:real):real; begin...

Описание программного кода.Комментарии.
Прива всем!!! Ща у меня сессия, учусь в общем в ВУЗе на бизнес-информатике 1 курс заочно после...

Описание входных и выходных данных кода
Помогите написать описание входных и выходных данных этого кода

Напишите фрагмент кода для определения кода нажатой клавиши (расширенного кода в том числе)
Напишите фрагмент кода для определения кода нажатой клавиши (расширенного кода в том числе)....

1
17 / 14 / 18
Регистрация: 21.09.2012
Сообщений: 30
12.10.2012, 22:28 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
[PASCAL]program nka;  //заглавие программы
const //раздел описания констант
P0: array[0..3] of integer = (22, 16, 0, 16); //переменная P0  массив из 4 элементов типа integer со значениями 22 16 0 16 
P1: array[0..3] of integer = (0, 0, 10, 0); //P1 - массив из 4 элементов типа integer со значениями 0, 0, 10, 0
m=4; //присвоение переменной m значение 4
var //раздел описания переменных
s, s1, n, i, j: integer; //s, s1, n, i, j будут типа integer
str: string;// str будет string 
 
begin //начало программы
writeln('input string:'); //вывести "input string:"
readln(str); //прочитать str
s:=1; //присвоить s значение 1
n:=length(str);  //length считывает размер строки и определяет номер последнего элемента. это значение записывается в n
for i:=1 to n do begin //для i от 1 до n делаем - открыли операторную скобку- 
if (str[i]<>'0')and(str[i]<>'1') then begin// если i-тый элемент строки str не равен 0 И i-тый элемент строки str не равен 1 то - открываем операторную скобку-
writeln('string is invalid');// вывести "string is invalid"
halt //закрыть программу
end; //закрываем операторную скобку
s1:=0; //присваиваем s1 значение 0
for j:=0 to m-1 do if (s and (1 shl j))<>0 then begin //для j от 0 до m-1 делаем если (s и(сдвиженое значение 1 влево на j бит)) не равно 0 то - открываем операторную скобку- 
if str[i]='0' then s1:=s1 or P0[j]; //если i-тый элемент str равен 0 то s1 присваиваем s1 or P0[j] 
if str[i]='1' then s1:=s1 or P1[j] //если i-тый элемент str равен 0 то s1 присваиваем s1 or P1[j] 
end; закрыли операторную скобку
s:=s1; // s присвоили значение s1
end;//закрыли операторную скобку
if (s and (1 shl m))<>0 then writeln('string is valid') else writeln('string is invalid')//если (s и(сдвиженое значение 1 влево на m бит)) не равно 0 то выводим "string is valid "
end. //конец программы
[/PASCAL]
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.10.2012, 22:28
Помогаю со студенческими работами здесь

Описание кода
Помогите с описанием кода двух программ. Что делает каждая строка. Заранее благодарен. Program...

Описание кода )
Есть код ,реализовывает класс квадратной матрицы заданного пользователем размера .Реализовываются...

Шо цэ? Описание кода
Код не большой. Суть в том, что он делает? Сам глазами пробежался, дак ничего вредоносного, но...

Описание кода
Помогите пожалйста с описание строк кода.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru