Записи, помогите подкорректировать... Опции

[volvo]

Ха, привет!!! ТанюХа, молодец!!!!!

Ну да, как же... Молодец... Особенно с вот таким описанием:

r: file of rabotnik_predpriyatiya;

тебе ее совет как раз поможет... запутаться еще больше...

Типизированные файлы (я повторяю в сотый раз!!!) - это МАШИННОЕ представление данных...

т.е. если у тебя фамилия string[15], то ты должна хоть как отвести под нее эти 15 ячеек... и т.д.

А ты нулевой символ (где длина строки хранится) тоже будешь сама устанавливать? А значения Integer в форме, понятной компилятору?

[Светлана]

Ну да, как же... Молодец... Особенно с вот таким описанием:

r: file of rabotnik_predpriyatiya;

тебе ее совет как раз поможет... запутаться еще больше...

Типизированные файлы (я повторяю в сотый раз!!!) - это МАШИННОЕ представление данных...

А ты нулевой символ (где длина строки хранится) тоже будешь сама устанавливать? А значения Integer в форме, понятной компилятору?

а у меня значит эта строка неверная?

r: file of rabotnik_predpriyatiya;

[мисс_граффити]

да нормально все с этой строкой!
Просто Танюха путает типизированные и текстовые файлы.
Не, ну если хочешь, заполняй через блокнот. Но я не знаю, как потом твоя программа интерпретирует содержимое файла...

     rewrite( R );
       close( R );

Знаешь, что ты этим делаешь?
Открываешь файл для записи (стирая все, что там было), и, ничего не записывая, тут же закрываешь.
Вопрос на засыпку: зачем?



® ®

Сообщение отредактировано: Altair - 25.12.2006 14:45

[Светлана]

Я переделала эту задачу!!!
Вот ее формулировка: "Среди работников данного предприятия найти тех, чья заработная плата за месяц является ниже средней по предприятию, а также распечатать список тех, кто проработал на предприятии более 10 лет с указанием их фамилии, зарплаты, стажа работы и должности."

Первая часть этой программы:

 ZAP.PAS ( 748 байт ) Кол-во скачиваний: 550


она как бы должна просто выдавать данные о работниках. Но у меня там ошибка выдается, где написано

Reset(rp);{File not found}

... Почему так, я не знаю... Решала по алгоритму..


А вот вторая часть:

 ZAPP.PAS ( 813 байт ) Кол-во скачиваний: 519


эта программа производит считывание инф-ции из типизированного файла spisok, который был создан и заполнен информацией с помощью программы из 1-й части.

Но и тут у меня такая же ошибка высвечивается!!!

Помогите пож-та их исправить...

[мисс_граффити]

первая:

Program Zapisi_7;

type
 rabotnik_predpriyatiya=record
  fam:string[15];
  name:string[10];
  dolzh:string[15];
  stazh:integer;
  zar:integer;
 end;

 var
  rp:file of rabotnik_predpriyatiya;
  v:rabotnik_predpriyatiya;
  k:char;

 begin
  Assign(rp,'c:\spisok');
  {$I-}
  Reset(rp);
  {$I+}
   if IOResult<>0 then rewrite(rp);
  repeat
   writeln('Vvedite familiu rabotnika'); readln(v.fam);
   writeln('Vvedite imya rabotnika'); readln(v.name);
   writeln('Vvedite dolzhnost rabotnika'); readln(v.dolzh);
   writeln('Vvedite stazh rabotnika'); readln(v.stazh);
   writeln('Vvedite zarplaty rabotnika'); readln(v.zar);
   write(rp,v);
   writeln('Budete prodolzhat vvod dannyh?(da/net)'); readln(k);
   until k='N';
  readln
end.

[Светлана]

Спасибо! Теперь у меня программа запускается! А скажите пож-та, что означает {$I-} и {$I+} ? Вот еще какой вопрос... Вот, у меня программа запустилась... теперь я САМА должна там все данные занести или нет?

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

А, я вторую часть немного подправила, поэтому ее прикреплю.

 ZAPP.PAS ( 890 байт ) Кол-во скачиваний: 469


заранее спасибо!

[klem4]

А скажите пож-та, что означает {$I-} и {$I+} ?

Директивы компилятора

[мисс_граффити]

 i:=0;
   writeln('Ukazhite familiu rabotnika');
   readln(fff);
    repeat
     Seek(rp,i); {а зачем ты это делаешь? после read указатель автоматически перейдет на след. запись}
     read(rp,v);
     i:=i+1; 
     if v.fam=fff then
     writeln('rabotnik',v.fam);
      if v.stazh>10 then
      begin
       writeln('rabotnik', v.fam, '', v.name);
       writeln('dolzhnost', v.dolzh);
       writeln('ego stazh', v.stazh);
       writeln('poluchaet zarplatu', v.zar);
      end;
      sr:=0;
      sr:=sr+v.zar; {средняя - это же не сумма, а сумма/количество, правда? поэтому, видимо, придется за 2 прохода: сначала считать сумму и количество, потом делить, а потом заново идти по файлу и смотреть, у кого меньше}
       if v.zar<sr then writeln('Zarplata','', v.fam,'','nizhe srednei');
     until eof(rp); 

прикрепи файлик, который получился в результате работы с первой...

[Светлана]

прикрепи файлик, который получился в результате работы с первой...

Вот он:

 ZAP.PAS ( 766 байт ) Кол-во скачиваний: 558

 
     Seek(rp,i); {а зачем ты это делаешь? после read указатель автоматически перейдет на след. запись}
     read(rp,v);

Значит эту строчку вообще не надо, да?

[мисс_граффити]

я не про то
не про исходники, а про spisok

[Светлана]

 
      sr:=0;
      sr:=sr+v.zar; {средняя - это же не сумма, а сумма/количество, правда? поэтому, видимо, придется за 2 прохода: сначала считать сумму и количество, потом делить, а потом заново идти по файлу и смотреть, у кого меньше}
       if v.zar<sr then writeln('Zarplata','', v.fam,'','nizhe srednei');
     until eof(rp); 

а до нахождения средней зарплаты у меня правильно написано???

[мисс_граффити]

похоже на правду на первый взгляд.
если ты прикрепишь файлик, с которым работаешь, я смогу сказать точнее.

[Светлана]

похоже на правду на первый взгляд.
если ты прикрепишь файлик, с которым работаешь, я смогу сказать точнее.

ага, прикреплю!

Первая часть:

 ZAP.PAS ( 766 байт ) Кол-во скачиваний: 503


и вторая часть:

 ZAPP.PAS ( 890 байт ) Кол-во скачиваний: 533


Вот это все к первой задаче (только во второй части про среднюю зар. плату я еще не исправляла)...

[мисс_граффити]

и где обещанный spisok, с которым ты работаешь?
если все нормально, после запуска первой части у тебя должен создаваться файл spisok
вот прикрепи именно его

[Танкистка]

Ну да, как же... Молодец... Особенно с вот таким описанием:

r: file of rabotnik_predpriyatiya;

тебе ее совет как раз поможет... запутаться еще больше...
Типизированные файлы (я повторяю в сотый раз!!!) - это МАШИННОЕ представление данных...

Простите.. не кричи на меня так.... Я не обратила внимания на эту строку... просто у меня немнога похожая задача была, и у меня просто был txt файл..ну я и все про него и думала...

[Светлана]

и где обещанный spisok, с которым ты работаешь?
если все нормально, после запуска первой части у тебя должен создаваться файл spisok
вот прикрепи именно его

ааа, поняла! Блиин!!! Он почему-то не прикрепляется!!!!.... (я делаю обзор, потом с:\spisok, добавить файл.. и все, ниче у меня не прикрепляется...)


вот, у меня только так получилось прикрепить....
 SPISOK.txt ( 141 байт ) Кол-во скачиваний: 595

там у меня высвечивается фамилия, имя, должность, а стажа и зарплаты нет. Так и должно быть?

[мисс_граффити]

возможно... блокнот строковую информацию понимает, а вместо чисел рисует квадратики.
вроде как работает. (то, что не касается подсчета средней. со средней - бред полнейший).
и мы же вроде договорились seek убрать.

Сообщение отредактировано: мисс_граффити - 25.12.2006 2:35

[Светлана]

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

Ага, я убрала Seek. И подсчет средней я немного изменила... но мне так кажется, что у меня все неправильно...

 ZAPIS.PAS ( 1.22 килобайт ) Кол-во скачиваний: 559

[Светлана]

эх, информатика - это жесть!

[мисс_граффити]

"нифига не поняла" (с)
смотри, как проще всего сделать:
открываешь файл и идешь по нему (пока не конец файла), считая сумму зарплат и количество работников (хотя количество можно не считать: если файл типизированный, то sizeof(f) как раз даст это число).
считаешь среднее.
возвращаешься в начало файла (закрываешь и открываешь или делаешь seek(f,0))
дальше идет твой цикл (вот где про стаж и т.д.), в который добавляешь одно-единственное условие: если зарплата меньше средней...