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  +


Такс, ещё одна тренировка на записи(рекорд)....

Задача 1248


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


Я реши тякс:

Program z1248;

uses crt;

const kol_uchniv = 10; {количество учеников}
{------------тип------------}
type
dani_uchniv = record
fam : string;
imya : string;
otchestvo : string;
rost : integer;
masa : integer;
end;
{---------------------------}

var
{------------------массив-----------------------}
mass_u:Array[1..kol_uchniv] of dani_uchniv;
{-----------------------------------------------}
i:integer;
s_rost:real;
ser_rost:real;
max_rost,max_i:integer;
min_rost:integer;
kol_uchniv2:integer;
Begin
ClrScr;
{------------------Таблица учеников--------------}
{1}
mass_u[1].fam:='Белый ';mass_u[1].imya:=' Дима'; mass_u[1].otchestvo:=' Юрьевич '; mass_u[1].rost:=170;
mass_u[1].masa:=60;
{end}

{2}
mass_u[2].fam:='Пупкин ';mass_u[2].imya:=' Андрей'; mass_u[2].otchestvo:='Николаевич'; mass_u[2].rost:=175;
mass_u[2].masa:=70;
{end}

{3}
mass_u[3].fam:='Барбакарь';mass_u[3].imya:='Вика'; mass_u[3].otchestvo:=' Батьковна '; mass_u[3].rost:=155;
mass_u[3].masa:=45;
{end}

{4}
mass_u[4].fam:='Кулик ';mass_u[4].imya:=' Вован'; mass_u[4].otchestvo:=' Батькович '; mass_u[4].rost:=185;
mass_u[4].masa:=80;
{end}
{5}
mass_u[5].fam:='Литвин';mass_u[5].imya:=' Тарас'; mass_u[5].otchestvo:=' Пукинович '; mass_u[5].rost:=170;
mass_u[5].masa:=55;
{end}
{6}
mass_u[6].fam:='Тарасюк';mass_u[6].imya:=' Саня'; mass_u[6].otchestvo:=' Батькович '; mass_u[6].rost:=170;
mass_u[6].masa:=60;
{end}
{7}
mass_u[7].fam:='Дрозач';mass_u[7].imya:=' Толя'; mass_u[7].otchestvo:=' Леонидович'; mass_u[7].rost:=190;
mass_u[7].masa:=70;
{end}
{8}
mass_u[8].fam:='Сидоров';mass_u[8].imya:=' Тарас'; mass_u[8].otchestvo:=' Иванович '; mass_u[8].rost:=150;
mass_u[8].masa:=55;
{end}
{9}
mass_u[9].fam:='Иванов';mass_u[9].imya:=' Саня'; mass_u[9].otchestvo:=' Иванович '; mass_u[9].rost:=200;
mass_u[9].masa:=90;
{end}
{10}
mass_u[10].fam:='Куку';mass_u[10].imya:=' Натали'; mass_u[10].otchestvo:='Ивановна '; mass_u[10].rost:=190;
mass_u[10].masa:=70;
{end}
{-----------------------------------------------}
textcolor(2);
writeln('-----------------------------------------------------------------');
writeln('| N/N | Фамилия | Имя | Отчество | Рост(см) | Маса(кг)|');
writeln('-----------------------------------------------------------------');
{---------------------Цыкл для вывода-------------------}
textcolor(7);

for i:=1 to kol_uchniv do
begin
writeln(' ',i,' ',mass_U[i].fam,' ',mass_U[i].imya,' ',mass_U[i].otchestvo,' ', mass_u[i].rost,
' ',mass_u[i].masa);
end;
{------------------Цыкл для середнього роста--------------------------}
s_rost:=0;

for i:=1 to kol_uchniv do
begin
{----ниже формула сумы ростов----}
s_rost:=s_rost + mass_u[i].rost;
end;
{-----------Средний рост------------}
ser_rost:=s_rost/kol_uchniv;
{-----------------------------------}

{---------------цыкл для вычисления максимального роста учеников---------------------}
max_rost:=0;
max_i:=0;
for i:=1 to kol_uchniv do
begin
if (max_rost<mass_u[i].rost)
then

begin
max_rost:=mass_u[i].rost ;
max_i:=i;
end;

end;
textcolor(7);
{---------------------------------конец цыкла max------------------------------}

{--------------------цыкл для вычисления минимального роста учеников----------}
min_rost:=mass_u[max_i].rost;

for i:=1 to kol_uchniv do
begin
if min_rost>mass_u[i].rost
then
min_rost:=mass_u[i].rost;
{min_i:=i;}
end;
{--------------------------------конец цыкла min-------------------------------}

{------------------------Вычисления баскетболистов---------------------------}

kol_uchniv2:=kol_uchniv;

for i:=1 to kol_uchniv do
begin
if mass_u[i].rost<170
then
kol_uchniv2:=kol_uchniv2-1;

end;
{---------------------конец вычисления баскетболистов---------------------------------------------}

{---------------------------------Вывод итогов--------------------------------------}
textcolor(2);
writeln('--------------------------------------------------------------');
textcolor(4);

writeln(' Cередний Рост Учеников = ', ser_rost:5:1 ,' см');
writeln;
writeln(' Рост самого высокого Ученика = ',mass_u[max_i].rost,' см');
writeln;
writeln(' Рост самого низкого Ученика = ',min_rost);
writeln;
writeln(' Могут Заниматься в Баскетбольной Секции Только ',kol_uchniv2,' чел ',' из ',kol_uchniv,' чел' );
textcolor(2);
writeln('--------------------------------------------------------------');
textcolor(9);
writeln('Made in Ukrane! Produce By STORM!');
textcolor(2);
writeln('Для завершения просмотра нажмите любую клавишу');
readkey;
end.



И теперь думаю немного с записями разрулился smile.gif

теперь мне не составит труда решить задачу 1066б smile.gif

Спасибо всем кто помогал! с Наступающим 2007 новым годом Всех!!!!! no1.gif

офф smile.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

 





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