IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Записи, помогите подкорректировать...
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 60
Пол: Женский
Реальное имя: Света

Репутация: -  0  +


Здравствуйте! У меня 2 задачки по записям... Помогите пож-та немного исправить...
1) Среди работников данного предприятия найти тех, чья заработная плата за месяц является ниже средней по предприятию, а также распечатать список тех, кто проработал на предприятии более 10 лет с указанием их фамилии, зарплаты, стажа работы и должности.
Вот мой вариант решения...
Program Zapisi_7;
type
rabotnik_predpriyatiya=record
stazh:integer;
zar:integer;
fam:string[15];
dolzh:string[10];
end;
var
i,n: integer;
anketa: rabotnik_predpriyatiya;
r: file of rabotnik_predpriyatiya;
begin
assign(r,'anketa.dat'); reset( r ); { -> вот тут у меня высвечивается ошибка: File not found }
write('Skolko dannyh vvodit');
readln(n);
for i:=1 to n do
begin
write('Vvedite familiu');
readln(anketa.fam);
write('Vvedite stazh raboty');
readln(anketa.stazh);
write('Vvedite velichinu mes. zarabotka');
readln(anketa.zar);
write('Vvedite dolzhnost');
readln(anketa.dolzh);
write(r,anketa);
end;
close( r );
end.

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

2) Распечатать фамилии тех учеников класса, которые являются хорошистами и отличниками по итогам года. Также узнать, насколько их средний балл отличается от среднего балла класса.
Program Zapisi_12;
type uchenik=record
fam:string[15];
ucheb_god:integer;
har:string[20];
end;
var a:array[1..10] of uchenik;
fin,fout:text;
i,j:integer;
begin
assign(fin,'uch.pas');
reset(fin); { -> тут опять эта же ошибка: File not found }
i:=0;
repeat
i:=i+1;
with a[i] do
readln(fin,fam,ucheb_god,har);
until eof(fin);
close(fin);
assign(fout,'hor_i_otl.pas');
rewrite(fout);
for j:=1 to i do
if a[i].har='horoshisty i otlichniki' then
writeln(fout,a[i].fam);
close(fout);
end.

И я не знаю как сравнить эти средние баллы...

Заранее большое спасибо за помощь!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Светлана   Записи   15.12.2006 3:41
klem4   начнем с начала ... Потому что ты пытаешь откры…   15.12.2006 3:53
Светлана   спасибо! Но в примерах, которые нам давали, бы…   15.12.2006 4:34
Светик   :) спасибо большое! Так и надо было, чтобы пис…   15.12.2006 17:33
Светлана   Вот, я переделала 1-ю задачку, она так то работает…   22.12.2006 12:27
Bokul   Попробуй перед последнем end-ом поставить процедур…   22.12.2006 12:37
Светлана   Попробуй перед последнем end-ом поставить процеду…   22.12.2006 13:12
Bokul   Ну конечно же. :) вместо writeln('a…   22.12.2006 13:16
Светлана   О! теперь нормально! Спасибо огромное... Н…   22.12.2006 13:51
volvo   А что бы ты хотела, чтобы выводилось? Фамилия рабо…   22.12.2006 15:51
Светлана   Хорошо, спасибо большое! Так и попробую сделат…   23.12.2006 0:47
Светлана   У меня еще вот такой вопрос: мне не надо самой вво…   23.12.2006 2:33
мисс_граффити   А в файле они откуда должны браться? Или ты хочешь…   23.12.2006 2:37
Светлана   А в файле они откуда должны браться? Или ты хочеш…   23.12.2006 2:57
Танкистка   Да, вводить самой данные нельзя (так сказал препо…   23.12.2006 14:31
Светлана   Надо не через паскаль ввести данные... а непосред…   23.12.2006 20:57
volvo   Ха, привет!!! ТанюХа, молодец!…   23.12.2006 21:16
Светлана   Ну да, как же... Молодец... Особенно с вот таким …   23.12.2006 21:21
мисс_граффити   так у тебя половина программы - заполнение, а втор…   23.12.2006 3:10
Светлана   спасибки! Так и сделаю!!!! :ye…   23.12.2006 3:24
Светлана   Я удалила выделенную часть, и у меня чет какая-то …   23.12.2006 12:40
мисс_граффити   assign(r,'anketa.dat'); должно остаться…   23.12.2006 14:45
мисс_граффити   да нормально все с этой строкой! Просто Танюха…   23.12.2006 21:42
Светлана   Я переделала эту задачу!!! Вот ее форм…   24.12.2006 4:30
мисс_граффити   первая: Program Zapisi_7; type rabotnik_predpriy…   24.12.2006 4:33
Светлана   Спасибо! Теперь у меня программа запускается…   24.12.2006 14:50
klem4   Директивы компилятора   24.12.2006 15:02
мисс_граффити   i:=0; writeln('Ukazhite familiu rabotnika…   24.12.2006 17:31
Светлана   прикрепи файлик, который получился в результате р…   24.12.2006 17:48
Светлана   sr:=0; sr:=sr+v.zar; {средняя - это…   24.12.2006 17:50
мисс_граффити   я не про то :) не про исходники, а про spisok   24.12.2006 17:50
мисс_граффити   похоже на правду на первый взгляд. если ты прикреп…   24.12.2006 18:18
Светлана   похоже на правду на первый взгляд. если ты прикре…   24.12.2006 23:47
мисс_граффити   и где обещанный spisok, с которым ты работаешь? ес…   24.12.2006 23:53
Светлана   и где обещанный spisok, с которым ты работаешь? е…   25.12.2006 2:14
мисс_граффити   возможно... блокнот строковую информацию понимает,…   25.12.2006 2:27
Светлана   то, что не касается подсчета средней. со средней …   25.12.2006 9:59
Светлана   :blink: эх, информатика - это жесть!   25.12.2006 20:05
мисс_граффити   :blink: "нифига не поняла" (с) смотри, …   26.12.2006 1:02
Светлана   :mega_chok: Здравствуйте!!! Извините …   26.12.2006 16:00
мисс_граффити   а ты в него где-то что-то записываешь, чтобы он бы…   26.12.2006 17:34
Светлана   а ты в него где-то что-то записываешь, чтобы он б…   27.12.2006 20:25
volvo   Светлана, я еще раз повторяю: readln(fin,fam,nam,o…   26.12.2006 17:37
Светлана   Светлана, я еще раз повторяю: readln(fin,fam,nam,…   26.12.2006 18:42
мисс_граффити   :blink: Что значит - сами? Ты же компьютеру ниг…   27.12.2006 21:55
Светлана   Что значит - сами? Ты же компьютеру нигде не сооб…   27.12.2006 23:48
мисс_граффити   цитата из твоей работающей программы: то есть ты …   28.12.2006 0:59
Светлана   цитата из твоей работающей программы: то есть ты…   28.12.2006 2:42
Светлана   хм... или не правильно? :mega_chok:   28.12.2006 9:23
мисс_граффити   я по работникам предприятия смотрела :) а если не…   28.12.2006 15:47
Светлана   что получится? (сорри, пишу из универа... тут пас…   28.12.2006 18:37


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 25.02.2021 9:27
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name