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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.03.2016, 22:53   #1
santafer
Пользователь
 
Регистрация: 28.11.2015
Сообщений: 23
По умолчанию Дан файл вещественных чисел, содержащий ненулевую часть нижнетреугольной матрицы (по строкам). Создать новый файл, содержащий все

Дан файл вещественных чисел, содержащий ненулевую часть нижнетреугольной матрицы (по строкам). Создать новый файл, содержащий все элементы данной матрицы (по строкам).

Помогите пожалуйста, переделать код чтобы файлы открывались через OpenDialog !!!
Код:
uses crt;
const nmax=20;
var f,g:file of real;
    n,i,j:integer;
    x,y:real;
begin
clrscr;
randomize;
assign(f,'matr1');
rewrite(f);
assign(g,'matr2');
rewrite(g);
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
{пишем нижнюю треугольную матрицу}
for i:=1 to n do
for j:=1 to i do
 begin
  x:=10*random;
  write(f,x);
 end;
{прочитаем}
reset(f);
writeln('Исходный файл:');
i:=1;{номер строки}
j:=0;{номер столбца}
while not eof(f) do
 begin
  j:=j+1;{считаем}
  if j<=i then{если не перешли главную диагональ}
   begin
    read(f,x); {читаем элемент}
    write(x:0:2,' ');{выводим в строку}
    write(g,x);{пишем в новый файл}
   end
  else{если перешли}
   begin
    while j<=n do {до конца строки}
     begin
      y:=0;
      write(g,y);{пишем в новый файл ноли}
      j:=j+1;
     end;
    i:=i+1;{новая строка}
    j:=0; {обнулим счетчик в строке}
    writeln;
   end;
 end;
writeln;
close(f);{закроем 1 файл}
reset(g); {прочитаем новый с выводом по строкам}
writeln('Новый файл:');
j:=0;
while not eof(g) do
 begin
  read(g,x);
  write(x:0:2,' ');
  j:=j+1;
  if j=n then
   begin
    j:=0;
    writeln;
   end;
 end;
close(g);
readln
end.

Последний раз редактировалось santafer; 15.03.2016 в 23:09. Причина: Код забыл вставить
santafer вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача в С#. Дан двоичный файл, содержащий целые числа. Создать новый файл, удалив некоторые числа... malinkkaa Помощь студентам 0 23.03.2014 23:08
Создать новый файл той же структуры, содержащий матрицу, транспонированную к исходной. katushaa Паскаль, Turbo Pascal, PascalABC.NET 12 11.04.2012 23:05
Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных максимумов в порядке возрастания zzz6 Помощь студентам 1 04.07.2011 12:59
Дан файл, содержащий целые числа. Найти количество нечетных чисел среди элементов файла stasyan Помощь студентам 12 03.04.2010 18:49
Дан файл, содержащий текст на русском языке.Составить в алфавитном порядке список слов в файл. JiLiYa Паскаль, Turbo Pascal, PascalABC.NET 3 26.12.2008 12:05