[PMR]

Товарищ проверяет контрольные работы по информатике.
LSD-мнитор , по типу таблеток
Пароли нужно хранить подальше от рук, братьев сестер и родителей в специальном блокноте.

Звуковая карта служит для улучшения звуковых волн. Она используется для мощной аппаратуры.

[Punk423]

Помогите исправить код программы для корректной её работы.
Мне надо чтобы выводила расписанное решение линейных уравнений методом жордано-гаусса.
Оно половину решения делает правильно. А за тем не могу понять, но оно сбивается и выводит чушь.

Вот пример
Ввод: 1 1 -3 2 6 1 -2 0 -1 -6 0 1 1 3 16 2 -3 2 0 6
Вывод:
| 1 | 1 | -3 | 2 | 6 | 7 |
| 1 | -2 | 0 | -1 | -6 | -8 |
| 0 | 1 | 1 | 3 | 16 | 21 |
| 2 | -3 | 2 | 0 | 6 | 7 |

| 1/1 | 1/1 | -3/1 | 2/1 | 6/1 | 7/1 |
| 1/1 | -2/1 | 0/1 | -1/1 | -6/1 | -8/1 |
| 0/1 | 1/1 | 1/1 | 3/1 | 16/1 | 21/1 |
| 2/1 | -3/1 | 2/1 | 0/1 | 6/1 | 7/1 |

| 1/1 | 1/1 | -3/1 | 2/1 | 6/1 | 7/1 |
| 0/1 | -3/1 | 3/1 | -3/1 | -12/1 | -15/1 |
| 0/1 | 1/1 | 1/1 | 3/1 | 16/1 | 21/1 |
| 2/1 | -3/1 | 2/1 | 0/1 | 6/1 | 7/1 |

| 1/1 | 1/1 | -3/1 | 2/1 | 6/1 | 7/1 |
| 0/1 | -3/1 | 3/1 | -3/1 | -12/1 | -15/1 |
| 0/1 | 1/1 | 1/1 | 3/1 | 16/1 | 21/1 |
| 2/1 | -3/1 | 2/1 | 0/1 | 6/1 | 7/1 |

| 1/1 | 1/1 | -3/1 | 2/1 | 6/1 | 7/1 |
| 0/1 | -3/1 | 3/1 | -3/1 | -12/1 | -15/1 |
| 0/1 | 1/1 | 1/1 | 3/1 | 16/1 | 21/1 |
| 0/1 | -5/1 | 8/1 | -4/1 | -6/1 | -7/1 |

А дальше решение не правильное.

---------------------------------------------------

program df;
var  i,j,c,z,ss,pr,prss,kff,i3,j3,i2,j2,delz,delc,kz,kc,ksc,ksz,ai3c,ai3z,i4,j4,c4,z4,min,i11,kkk,kkkf,min2,ff,ffg,i5,i6,j6,i6c,i6z,minn,iii:integer;
rc,rz:real;
 a:array [1..4,1..13] of integer;
 f1: text;

begin
     {Ввод**
     assign   (f1, 'file1.txt');
           reset (f1);
 for i:=1 to 4 do
 begin
 ss:=0;
  for j:=1 to 5 do
   begin
    z:=2*j;
    c:=2*j-1;
    read(f1,a[i,c]) ;
    a[i,z]:=1;
    ss:=a[i,c]+ss;
   end;
 a[i,12]:=1;
 a[i,11]:=ss;
 end;
 
       close (f1);
     {Вывод**
  for i:=1 to 4 do
  begin
  write(' | ');
   for j:=1 to 6 do
   begin
    c:= 2*j-1;
    write(a[i,c],' | ');
     end;
   writeln;
   end;
    writeln;
    




  for j:=1 to 4 do
   begin
    pr:=0;
    prss:=0;
    kff:=0;
    c:=2*j-1;
    z:=2*j;
    ff:=0;

    {нахождение нужной строки**
    for i:=1 to 4 do
    begin

     if (a[i,c]=1) and (pr=0)  and (a[i,13]=0)
      then begin

            pr:=1;
            kff:=i;
            a[i,13]:=1;
           end
         {если не нашло нужную изменем строку**
      else begin
      
      
      
             if pr<>1
             then
             begin
             prss:=prss+1;
             min:=0;
             kkk:=1;

                       
                       

                 for i5:=1 to 4 do
                  begin

                   if ff=0
                    then  if a[i5,13]=0
                            then begin
                                  ff:=1;
                                  ffg:=i5;
                                 end;
                  end;
                       
             kff:=ffg;
             if prss=4
              then begin
                     a[kff,13]:=1;
                    delz:=a[kff,c];
                     delc:=a[kff,z];
                     for j2:=j to 6 do
                       begin
                        z:=2*j2;
                        c:=2*j2-1;
                        a[kff,z]:=a[kff,z]*delz;
                        a[kff,c]:=a[kff,c]*delc;
                        if a[kff,z]=a[kff,c]
                         then begin
                               a[kff,z]:=1;
                               a[kff,c]:=1;
                              end;
                       end;
                      end;
            end;
            end;
            end;

            
       {преобразование массива**
      for i3:=1 to 4 do
      begin
       kz:=2*j;
       kc:=2*j-1;
       ksc:=a[i3,kc];
       ksz:=a[i3,kz];
       for j3:=j to 6 do
        begin

         if i3<>kff
          then
           begin
            c:=2*j3-1;
            z:=2*j3;
            ai3c:=-ksc*a[kff,c];
            ai3z:=ksz*a[kff,z];
            if ai3z=a[i3,z]
             then begin
                   a[i3,z]:=ai3z;
                   a[i3,c]:=ai3c+a[i3,c];
                  end
             else begin
                   a[i3,z]:=ai3z*a[i3,z];
                   a[i3,c]:=ai3c+a[i3,c]*ai3z;
                   if a[i3,z]=0
                    then writeln('net reweni9');
                  end;

            end;
          end;
          
          {сокрашение**
          for i6:=1 to 4 do
           for j6:=j to 6 do
            begin
             i6c:=j6*2-1;
             i6z:=j6*2;
             if a[i6,i6c]>a[i6,i6z]
              then minn:=a[i6,i6z]
              else minn:=a[i6,i6c];
             for iii:=minn-1 downto 2 do
              begin
               if (a[i6,i6c] mod iii=0) and (a[i6,i6z] mod iii=0)
                then begin
                      a[i6,i6c]:=a[i6,i6c] div iii;
                      a[i6,i6z]:=a[i6,i6z] div iii;
                     end;
              end;
            end;
          
          
             {Вывод**

           
           
              end;
           for i4:=1 to 4 do
            begin
             write(' | ');
             for j4:=1 to 6 do
              begin
                z4:=2*j4;
                c4:=2*j4-1;
                 if  a[i4,c4]= a[i4,z4]
                  then write(1,' | ')
                  else  if a[i4,z4]=1
                         then   write(a[i4,c4],' | ')
                         else if a[i4,c4]=0
                         then  write(0,' | ')
                         else write(a[i4,c4],'/',a[i4,z4],' | ');
              end;
             writeln;
            end;
          writeln;
          
          
          
       end;
       writeln('______________________________________________')
end.

[Punk423]

UP..........

[korvin]

Punk423 писал (а)

UP..........

хороший у тебя ник, панк....

[Punk423]

korvin писал (а)

хороший у тебя ник, панк....

Не про ник говори, а лучше помоги программу доделать.

[korvin]

Punk423 писал (а)

Не про ник говори, а лучше помоги программу доделать.

во первых ты забыл волшебное слово.
во вторых я сам определюсь про что мне говорить.
а в третьих не тот ты форум выбрал для решения таких задач, ох не тот

[DVA]

http://kurslab.chat.ru/10186691.htm тут погляди

[PMR]

Вот еще прикол на комп темы - зашел сотрудник и говорит - "не работают наушники в интернете".