Вход

Просмотр полной версии : Проверяем контрольные работы по информатике.

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

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

Вот пример
Ввод: 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,mi n2,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
06.02.2012, 23:32
UP..........
korvin
06.02.2012, 23:34
UP..........

хороший у тебя ник, панк....
Punk423
06.02.2012, 23:45
хороший у тебя ник, панк....


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

во первых ты забыл волшебное слово.
во вторых я сам определюсь про что мне говорить.
а в третьих не тот ты форум выбрал для решения таких задач, ох не тот
DVA
07.02.2012, 00:07
http://kurslab.chat.ru/10186691.htm тут погляди
Punk423
07.02.2012, 23:43
во первых ты забыл волшебное слово.
во вторых я сам определюсь про что мне говорить.
а в третьих не тот ты форум выбрал для решения таких задач, ох не тот

Красава. Флаг тебе в руки.
PMR
18.02.2012, 15:34
Вот еще прикол на комп темы - зашел сотрудник и говорит - "не работают наушники в интернете".