|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.05.2010, 15:18 | #1 |
Пользователь
Регистрация: 26.04.2010
Сообщений: 18
|
работа с текстовыми файлами
написал прогу, матрица генерируется в текстовый файл, а вектору не хватает места еще на символ (вектор с лева на право"\") размер 768 байт и больше блоков не ставит(((, поправьте пожалуйста...
Код: uses wincrt; var f:text; a:array[1..10,1..10] of integer; i,j:integer; v:array[1..10] of integer; begin randomize; randseed:=10; assign(f,'output.txt'); rewrite(f); for i:=1 to 10 do for j:=1 to 10 do begin a[i,j]:=random(100); end; for i:=1 to 10 do begin for j:=1 to 10 do begin write(f,a[i,j]:7); end; writeln(f); end; writeln(f); for i:=1 to 10 do v[i]:=a[i,i]; for i:=1 to 10 do write(f,v[i]:5); end. Заранее спасибо! Последний раз редактировалось бургер; 16.05.2010 в 19:34. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
РАБОТА С ТЕКСТОВЫМИ ФАЙЛАМИ! | roc | Помощь студентам | 8 | 16.05.2010 13:07 |
Работа с текстовыми файлами | Dareami | Общие вопросы C/C++ | 3 | 20.04.2010 10:21 |
работа с текстовыми файлами | Bayazet | Общие вопросы Delphi | 10 | 09.12.2008 18:39 |
Работа с текстовыми файлами | DartMrakkk | Общие вопросы Delphi | 3 | 14.07.2007 16:52 |