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

[Светлана]

Здравствуйте!!!
Извините пож-та... я ваще натупила с этими задачами!!! До меня ток недавно доперло как надо их делать!!!

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

И вот как я ее решила!!!

Сначала я напечатала список работников: вот...

 SPISOK.PAS ( 203 байт ) Кол-во скачиваний: 402


а вот сама программа:

 RAB_PRED.PAS ( 1 килобайт ) Кол-во скачиваний: 379


у меня вроде все работает, но вот ПРОБЛЕМА в следующем: у меня никакие значения не выводятся во второй список... он появляется после запуска программы, но почему-то пустой... Помогите пож-та разобраться...




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

Вот мое решение: Сначала я составила список этих учеников:

 uch1.txt ( 208 байт ) Кол-во скачиваний: 438


а вот сама прога:

 UCHENIK.PAS ( 520 байт ) Кол-во скачиваний: 369


и у меня опять такая же проблема: Второй файл, который открывается, он опять пустой.. в чем же ошибка? И я вот еще не знаю, как про средний балл решить.... Помогите плиз... Заранее спасибо!

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

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

[volvo]

Светлана, я еще раз повторяю:

readln(fin,fam,nam,ocenka);

не будет читать данные так, как ты этого хочешь...

[Светлана]

Светлана, я еще раз повторяю:

readln(fin,fam,nam,ocenka);

не будет читать данные так, как ты этого хочешь...

извиняюсь, а как надо, чтобы читало? или на какую ссылку зайти, чтобы прочитать?

[Светлана]

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

эээ, не поняла... у меня как бы 2 файла: 1-fin, который ссылается на тот список, который я сама составляю! А второй - fout - в него чтоли значения не сами должны выводиться???

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

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

А второй - fout - в него чтоли значения не сами должны выводиться???

Что значит - сами?
Ты же компьютеру нигде не сообщаешь, что туда должно вводиться. Откуда он знает, ЗАЧЕМ ты делаешь rewrite? А вывод весь у тебя идет только на экран...

[Светлана]

Что значит - сами?
Ты же компьютеру нигде не сообщаешь, что туда должно вводиться. Откуда он знает, ЗАЧЕМ ты делаешь rewrite? А вывод весь у тебя идет только на экран...

Эээээ, ну как объяснить... Ну дак ведь я вроде первую часть описала, все, закрыла файл... Потом описываю, что там во втором файле надо делать... И тож его закрываю... Значит фамилии и др. из первого списка (который я сама писала), которые удовлетворяют условиям из второго файла, должны переноситься во второй список..... Я вот так понимаю...


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

Это сам список
 UCHIM.TXT ( 511 байт ) Кол-во скачиваний: 356


это прога
 Uchitelya.pas ( 735 байт ) Кол-во скачиваний: 360


и второй список..
 SPISOK.TXT ( 294 байт ) Кол-во скачиваний: 363


Я про учеников написала тоже самое, но у меня второй список пустой при выводе!!!

вот мой список!
 UCH1.PAS ( 212 байт ) Кол-во скачиваний: 423


вот прога!
 UCHENIK.PAS ( 518 байт ) Кол-во скачиваний: 364


вот список, в которй должно выводиться, но он пустой...



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

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

цитата из твоей работающей программы:

writeln(fout,a[j].fam,a[j].nam,a[j].otch,a[j].predmet,a[j].stazh,a[j].nagruzka);

то есть ты указываешь, что надо писать в этот файл!!!
а в неработающих - не указываешь.

[Светлана]

цитата из твоей работающей программы:

то есть ты указываешь, что надо писать в этот файл!!!
а в неработающих - не указываешь.

указываю... у меня написано:

then writeln (fout,a[j].fam);

мне просто только фамилию нужно вывести!

[Светлана]

хм... или не правильно?

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

я по работникам предприятия смотрела

а если не

with a[i] do
  readln(fin,fam,nam,ocenka);

а

with a[i] do
  read(fin,fam,nam,ocenka);

что получится? (сорри, пишу из универа... тут паскаля нет, проверить не могу)

[Светлана]

что получится? (сорри, пишу из универа... тут паскаля нет, проверить не могу)

ниче страшного! Пасиб! Удачи в универе!!!