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

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

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

> Ещё одна задача... но на двухмерный массив (матрицу), Наведите меня на логику и понимания задачи:)
сообщение
Сообщение #1


Пионер
**

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

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


Здача 1077 б


Дан двухмерный массив. Превратить:
б.) первый столбец на место последнего, при этом вторую,тертью... последний столбцы сместить влево.


Лично я ничего не понял из написаного выше... обясните пожалуйста логику задачи:-)

эх..... как всё у меня запущено и трудно blink.gif


--------------------
Каждый человек , которого я знаю встречаю, превосходит меня в какой нить области, и я готов у него этому учится:)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Пионер
**

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

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


тренировался на рекорд(записи)
на такой задачке:

Задача 1194

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


Исходный код: blink.gif

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.


Проверте пожалуйста всё ли правильно я написал?????? blink.gif blum.gif blink.gif

// const kol_sotrudnik = 4 - узял не 20 как сказано в задаче а 4 шоб меньше вводить wink.gif

офф... спкокойной ночи wub.gif


--------------------
Каждый человек , которого я знаю встречаю, превосходит меня в какой нить области, и я готов у него этому учится:)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Димас   Ещё одна задача... но на двухмерный массив (матрицу)   27.12.2006 22:09
klem4   1 2 3 4 5 6 7 8 9 --> 2 3 1 5 6 4 8 9 7   27.12.2006 22:13
Димас   ага во , как получается :) а как это делается(ре…   27.12.2006 22:17
klem4   for i := 1 to n do for j := 1 to m - 1 do beg…   27.12.2006 22:29
Димас   А можно чуть поподробней обяснить это: for i :=…   27.12.2006 22:52
Димас   ну ладно.... есть ещё одна задачка на двухмерный …   28.12.2006 0:59
Айра   По-моему, пользователь должен ввести номер столбц…   28.12.2006 1:48
Димас   Посидел я до 00:00 ночи, и вот что решил всё таки …   28.12.2006 5:00
Димас   ну ладно.... есть ещё одна задачка на двухмерный…   28.12.2006 17:14
hiv   А как такое можно сделать(удалить один столбец) с …   28.12.2006 17:55
Димас   мда , динамические матрицы ...... хотелось бы с …   28.12.2006 18:20
klem4   Правила форму читать не пробовал ? FAQ для кого с…   28.12.2006 18:22
Димас   Правила форму читать не пробовал ? FAQ для кого …   28.12.2006 18:48
Димас   Никак. Есть два варианта: 1) Статически определяе…   28.12.2006 19:25
hiv   что дальше? :blink: Твоя матрица будет статическая…   28.12.2006 21:19
Димас   тренировался на рекорд(записи) на такой задачке: …   29.12.2006 5:06
Димас   ну ладно.... есть ещё одна задачка на двухмерный…   29.12.2006 15:17
Димас   Такс, ещё одна тренировка на записи(рекорд).... З…   29.12.2006 21:55


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

 





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