|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.06.2010, 21:53 | #1 |
Новичок
Джуниор
Регистрация: 15.06.2010
Сообщений: 1
|
Масивы. Файловые типы.
1.Пронормировать матрицу (10,12), то есть разделить каждый элемент на максимальный в своей строке
У меня получилось как-то так : PROGRAM TEST; VAR MAS:ARRAY[1..10,1..12] OF REAL; I,J:INTEGER; MA:REAL; BEGIN FOR J:=1 TO 12 DO BEGIN WRITELN ('VVESTU MAS'); FOR I:=1 TO 10 DO FOR j:=1 TO 12 DO READ (MAS[I,J]); END; FOR J:=1 TO 12 DO BEGIN MA:=MAS[I,J]; FOR I:=1 TO 10 DO IF MAS[I,J]>MA THEN MA:=MAS[I,J]; FOR I:=1 TO 10 DO MAS[I,J]:=MAS[I,J]/MA; END; WRITELN('REZULTS'); FOR I:=1 TO 10 DO BEGIN FOR J:=1 TO 12 DO WRITE (MAS[I,J]:5:2); END; END. оно делит, но почему-то не правильно. 2.В текстовом файле F1 записано 5 строк текста; определить строки, у которых есть слова IN и ON. Мои програмки: program lab7zax1 (input,output); var f1:file of integer; i,j : integer; a : array[1..10,1..10] of integer; begin assign (f1,'D:\F1.dat'); rewrite(f1); for i:=1 to 10 do for j:=1 to 10 do begin read(a[i,j]); write(f1,a[i,j]); end; writeln ('all elements is enterd. OK'); close(f1); end. program test2 (input,output); var F1:file of integer; i,j,p,max : integer; a:array[1..10,1..10] of integer; begin assign(F1,'D:\F1.dat'); reset(F1); for i:=1 to 10 do begin for j:=1 to 10 do begin read(F1,a[i,j]); write(a[i,j],' '); end; writeln end; for j:=1 to 10 do begin max:=a[i,1]; p:=1; for j:=2 to 10 do if max<a[i,j] then begin p:=j; max:=a[i,j]; end; a[i,p]:=a[i,i]; a[i,i]:=max; writeln('results'); end; for i:=1 to 10 do begin for j:=1 to 10 do write (a[i,j]:3); writeln; readln; writeln(' '); close(F1); end; end. Первая программа, создает файл, а вторая имеет его считать и сделать операцию по перестановке, но у меня почему-то не получается она. Подскажите пожалуйста где я сделал ошибку в этих программах? мне кажется проблема где-то в циклах обеих программ, но я не могу понять, где именно...помогите мне пожалуйста. |
15.06.2010, 23:06 | #2 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
-I-
Код:
Код:
にんじゃ
Последний раз редактировалось ROMA2PVT; 16.06.2010 в 08:49. |
16.06.2010, 10:55 | #3 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
Код:
100*100*6/1024=58,6 килобайта только под массив... остается от сегмента 64-58,6=5,4 килобайта на все прочие удовольствия... Профессиональное решение... Это называется русский экстрим!!!
Перемешивай дело с бездельем и не сойдешь с ума...
Последний раз редактировалось Grag; 16.06.2010 в 10:59. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Файловые структуры данных. Pascal | rishikesh | Помощь студентам | 8 | 29.05.2010 12:34 |
Файловые операции | _GT_ | Общие вопросы C/C++ | 1 | 08.05.2010 20:48 |
файловые переменные | sestrenka141989 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 06.05.2010 12:41 |
задача на файловые потоки в C++ | Klyan | Помощь студентам | 1 | 06.01.2008 01:49 |