1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Ещё одна задача... но на двухмерный массив (матрицу), Наведите меня на логику и понимания задачи:)
Известы данный о 20 сотруниках фирмы(фамилия, зарплата и пол). определить: а)фамилию мужчины,имебщего самую большую зарплату(считать что такой есть и он едниственый) б)фамилию мужчины и женщины, имеющих самую маленькую зарплату(счиать что такие есть и они единственые в свой групе сотрудников)
Исходный код:
program z1194; uses crt; {-----------------------------------------------------} const kol_sotrudnik = 4; { количество сотрудников} {-----------------------------------------------------} type danin_sotrudnik = record fam : string; zarpl : integer; pol : string; end; {----------------------------------------------------------------} var mass_sotrudnik: Array[1..kol_sotrudnik] of danin_sotrudnik; i,max_zarpl,min_zarpl,max_i,min_i,max_vse,max_ivse,max_zarplvse:integer; {----------------------------------------------------------------} begin ClrScr; {---ввод и вывод максимального значения у мужиков---} max_zarpl:=0;
for i:=1 to kol_sotrudnik do begin write('Фамилия N ',i,' '); readln(mass_sotrudnik[i].fam);
write('Зарплата N ',i,' '); readln(mass_sotrudnik[i].zarpl);
write('Пол m/j N ',i,' '); readln(mass_sotrudnik[i].pol);
writeln('--------------------');
if (max_zarpl<mass_sotrudnik[i].zarpl) and (mass_sotrudnik[i].pol='m') then begin max_zarpl:=mass_sotrudnik[i].zarpl ; max_i:=i; end;
end; writeln('самая большая зарплата мужцины в ',mass_sotrudnik[max_i].fam); {---***********-}
max_zarpl:=0;
for i:=1 to kol_sotrudnik do begin if (max_zarplvse<mass_sotrudnik[i].zarpl) and (mass_sotrudnik[i].pol='m') and (mass_sotrudnik[i].pol='j') then begin max_zarplvse:=mass_sotrudnik[i].zarpl ; max_ivse:=i; end;
end;
{--*************---}
min_zarpl:=mass_sotrudnik[max_ivse].zarpl; for i:=1 to kol_sotrudnik do begin
if (min_zarpl>mass_sotrudnik[i].zarpl) and (mass_sotrudnik[i].pol='m') then begin min_zarpl:=mass_sotrudnik[i].zarpl ; min_i:=i; end;
end; writeln('самая минимальная зарплата у мужчин в ',mass_sotrudnik[min_i].fam);
{---------------------------------------} min_zarpl:=mass_sotrudnik[max_ivse].zarpl; for i:=1 to kol_sotrudnik do begin
if (min_zarpl>mass_sotrudnik[i].zarpl) and (mass_sotrudnik[i].pol='j') then begin min_zarpl:=mass_sotrudnik[i].zarpl ; min_i:=i; end;
end; writeln('самая минимальная зарплата у женщин в ',mass_sotrudnik[min_i].fam);
writeln; write('End'); readln; end.
Проверте пожалуйста всё ли правильно я написал??????
// const kol_sotrudnik = 4 - узял не 20 как сказано в задаче а 4 шоб меньше вводить
офф... спкокойной ночи
--------------------
Каждый человек , которого я знаю встречаю, превосходит меня в какой нить области, и я готов у него этому учится:)