VPF::Delphi, массивы, запись и чтение из файла

Reaper052

Дата 13.6.2012, 18:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 13.6.2012

Репутация: нет
Всего: нет

Привет всем, помогите пожалуйста дописать программу, не первый день уже воюю с кодом и башка совсем уже не варит.

Собственно условие задания: "В файле input.pas задана матрица n x m (где n - кол-во строк, m - кол-во столбцов). В файл output.pas записать номера строк и сумму значений тех строк матрицы, где нет отрицательных элементов; записать ноль, если в строке есть отрицательные элементы."

Вот что у меня получилось, но мне говорят что в корне неверно написано... я честно говоря уже не могу придумать что-то еще, а сдавать уже через 10 часов. В общем напишите пожалуйста правильно, если можете.

Код

PROGRAM exam2;
{$APPTYPE CONSOLE}
  
uses
  SysUtils;
 
VAR
  n,m: Integer;
  I,J,K,Sum,Arr :Integer;
  F,F1:TEXT;
BEGIN
  ASSIGNFile(F,'input.PAS');
  RESET(F); //Открываем исходный файл для чтения
  
  ASSIGNFile(F1,'output.PAS'); //И выходной для записи
  REWRITE(F1); 
  
  READLN(F,n,m); //Считаем размерность матрицы - первая строка
  
  J:=0;
  WHILE ((NOT EOF(F)) AND (J<n)) DO //До конца файла EOF или количества строк массива
  BEGIN
    Sum:=0;
    FOR I:=0 TO m-1 DO
    BEGIN
      Read(F,K); //Читаем элемент строки массива
      //Проверим на отрицательный элемент и накопим сумму
      IF K>=0 Then INC(Sum,K) Else
      BEGIN
        Sum:=0;
        SEEKEOLN(F); //Пропускаем до конца строки
        BREAK;
      END;
    END;
    //Выведем номер строки и сумму
    WRITELN(F1,J,' ',Sum);
    INC(J); //Считаем количество строк
  END;
  
 
  //Закрыли оба файла...
  CloseFile(F); 
  CloseFile(F1); 
END.

iff

Дата 13.6.2012, 18:42 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: нет
Всего: 16

Цитата(Reaper052 @ 13.6.2012, 18:21

)

SEEKEOLN(F); //Пропускаем до конца строки

SEEKEOLN не пропускает до конца строки, а возвражает true, если достигнут конец строки.

--------------------

DOS... Синей пеленой экран заполнил чистый DOS
Мышь... Стала вдруг квадратной, потеряла форму мышь...
Я разбил окно, девяностопятое мастдайное окно,
И поставил DOS, и тогда увидел: Это счастье, — вот оно.

northener

Дата 14.6.2012, 00:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(iff @ 13.6.2012, 18:42

)

SEEKEOLN не пропускает до конца строки, а возвражает true, если достигнут конец строки.

Хороший ответ на "Помогите написать программу на экзамен". smile

Имеете опыт преподавания?

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

iff

Дата 14.6.2012, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: нет
Всего: 16

Я бы убрал SEEKEOLN(F) вообще, а после end в 34-ой строке поставил readln(f).

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »