04.04.2011, 11:24 | #1 (permalink) |
Новичок
Регистрация: 30.03.2011
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите отладить программу
program zad_1_10; uses crt; var a,c:array[1..100,1..100]of integer; v:array[1..100]of integer; i,j,k,summa:integer; f,f_out:text; procedure readA; begin writeln('Matrica A:'); writeln(f_out,'Matrica A:'); for i:=1 to 5 do begin for j:= 1 to 5 do begin read(f,a[i,j]); write(a[i,j]:3); write(f_out,a[i,j]:3); end; writeln; writeln(f_out); end; end; procedure A_E; begin for i:=1 to 5 do begin for j:= 1 to 5 do begin if i=j then a[i,j]:=a[i,j]-1; write(a[i,j]:3); write(f_out,a[i,j]:3); end; writeln; writeln(f_out); end; end; procedure summ; begin writeln('summa po stolbcam:'); writeln(f_out,'summa po stolbcam:'); k:=0; for j:=1 to 5 do begin k:=k+1; for i:= 1 to 5 do v[k]:=v[k]+a[i,j]; write(v[k]:3); write(f_out,v[k]:3); end; end; procedure creatC; begin for i:=1 to 5 do begin for j:=1 to 5 do begin if j=i then begin c[i,j]:=v[i]; summa:=summa+c[i,j]; end else c[i,j]:=0; write(c[i,j]:3); write(f_out,c[i,j]:3); end; writeln; writeln(f_out); end; writeln('Sled=',summa); writeln(f_out,'Sled=',summa); end; begin clrscr; randomize; assign(f_out,'dat1.txt'); rewrite(f_out); assign(f,'dat.txt'); reset(f); readA; writeln('Matrica A-E:'); writeln(f_out,'Matrica A-E:'); A_E; summ; writeln; writeln('Matrica C:'); writeln(f_out); writeln(f_out,'Matrica C:'); creatC; close(f); close(f_out); readkey; end. |
04.04.2011, 11:24 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Если поискать по схожим темам, то можно найти это Помогите отладить программу Помогите довести до ума программу Помогите написать программу Помогите написать программу Помогите написать программу |
04.04.2011, 11:49 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Ассоциация файловых переменных и файлов на диске делается этими командами. Пути пропишите самостоятельно
__________________
Убить всех человеков! |
04.04.2011, 12:20 | #5 (permalink) | |||
Новичок
Регистрация: 30.03.2011
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
04.04.2011, 12:37 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|