Анализ и синтез дискретных систем управления технологическими потоками: алгоритмы и программы. Владов Ю.Р. - 69 стр.

UptoLike

ВУЗ: 

ОГУ | Оренбург

Составители: 

Рубрика: 

label 1;
begin
(d1); write('d2='); readln(d2); write('d3='); readln(d3);
(d4); write('p='); readln(p);
if(p=1)and(d1=0)and(d2=0)and(d3=0)and(d4=0)then
writeln('F0=0');
goto 1;
end;
begin
1=1');
'F2=2');
riteln('F3=3');
goto 1;
end;
begin
writeln('F4=4');
goto 1;
end;
=1)and(d3=0)and(d4=1)then
begin
writeln('F5=5');
goto 1;
end;
=1)and(d3=1)and(d4=0)then
begin
writeln('F6=6');
goto 1;
end;
if(p=1)and(d1=0)and(d2=1)and(d3=1)and(d4=1)then
writeln('F7=7');
o 1;
end;
write('d1='); readln
write('d4='); readln
begin
if(p=1)and(d1=0)and(d2=0)and(d3=0)and(d4=1)then
writeln('F
goto 1;
end;
if(p=1)and(d1=0)and(d2=1)and(d3=1)and(d4=0)then
begin
writeln(
goto 1;
end;
if(p=1)and(d1=0)and(d2=0)and(d3=1)and(d4=1)then
begin
w
if(p=1)and(d1=0)and(d2=1)and(d3=0)and(d4=0)then
if(p=1)and(d1=0)and(d2
if(p=1)and(d1=0)and(d2
begin
got
69
label 1;
begin
       write('d1='); readln(d1); write('d2='); readln(d2); write('d3='); readln(d3);
       write('d4='); readln(d4); write('p='); readln(p);
        if(p=1)and(d1=0)and(d2=0)and(d3=0)and(d4=0)then
                                                         begin
                                                                 writeln('F0=0');
                                                                  goto 1;
                                                           end;
        if(p=1)and(d1=0)and(d2=0)and(d3=0)and(d4=1)then
                                                             begin
                                                                    writeln('F1=1');
                                                                    goto 1;
                                                             end;
        if(p=1)and(d1=0)and(d2=1)and(d3=1)and(d4=0)then
                                                             begin
                                                                    writeln('F2=2');
                                                                    goto 1;
                                                             end;
       if(p=1)and(d1=0)and(d2=0)and(d3=1)and(d4=1)then
                                                              begin
                                                                    writeln('F3=3');
                                                                    goto 1;
                                                              end;
        if(p=1)and(d1=0)and(d2=1)and(d3=0)and(d4=0)then
                                                             begin
                                                                    writeln('F4=4');
                                                                    goto 1;
                                                             end;
        if(p=1)and(d1=0)and(d2=1)and(d3=0)and(d4=1)then
                                                              begin
                                                                    writeln('F5=5');
                                                                    goto 1;
                                                             end;
        if(p=1)and(d1=0)and(d2=1)and(d3=1)and(d4=0)then
                                                              begin
                                                                    writeln('F6=6');
                                                                    goto 1;
                                                              end;
        if(p=1)and(d1=0)and(d2=1)and(d3=1)and(d4=1)then
                                                              begin
                                                                    writeln('F7=7');
                                                                    goto 1;
                                                              end;
                                                                                       69

Страницы