Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 11.05.2015, 17:43   #1
vlad0079
 
Регистрация: 11.05.2015
Сообщений: 4
Печаль Помогите , пожалуйста , вывести в файл.

В файле должны присутствовать исходные данные и результат.
Буду очень благодарен.



Вот программа:
Код:
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,c,max,imax,jmax:integer;
begin
writeln('vvesti matricu');
for i:=1 to n do
for j:=1 to n do begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
//write(a[i,j],' ');
end;
writeln('matrica');
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:4);
writeln; end;
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then begin
max:=a[i,j];
imax:=i; jmax:=j; end;

for i:=1 to n do begin
c:=a[i,jmax]; a[i,jmax]:=a[i,1]; a[i,1]:=c; end;

for i:=1 to n do begin
c:=a[imax,i]; a[imax,i]:=a[1,i]; a[1,i]:=c; end;
writeln(' novaya matrica');
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln;
end.

Последний раз редактировалось Stilet; 11.05.2015 в 18:12.
vlad0079 вне форума
Старый 11.05.2015, 18:14   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
...
var a:array[1..n,1..n] of integer;
i,j,c,max,imax,jmax:integer;
f:text;
begin
assign(f,'файл.txt'); rewrite(f);
writeln('vvesti matricu');
for i:=1 to n do begin
for j:=1 to n do begin 
 write('a[',i,',',j,']= ');
 readln(a[i,j]);
 write(f,a[i,j]:10);
end; writeln(f);
end;
...
writeln(' novaya matrica');
for i:=1 to n do begin
 for j:=1 to n do begin
  write(a[i,j]:4); 
  write(f,a[i,j]:10);
 end;writeln(f); writeln;
end;
close(f);
I'm learning to live...
Stilet вне форума
Старый 11.05.2015, 20:55   #3
vlad0079
 
Регистрация: 11.05.2015
Сообщений: 4
По умолчанию

Спасибо большое. Очень Вам благодарен.
vlad0079 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужно вывести предмет,который лучше всего знают ученики. Помогите с ошибкой,пожалуйста,заранее спасибо СанекКенас Помощь студентам 17 28.01.2015 18:25
Помогите, пожалуйста. Используя классы, Вывести порядковый номер. Катерины Помощь студентам 1 30.09.2014 09:07
Помогите вывести массив в файл In.kheller Общие вопросы C/C++ 1 19.05.2014 01:01
Пожалуйста, помогите записать в файл... tirael666 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 6 21.12.2009 21:06