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

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

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

 
 Ответить  Открыть новую тему 
> провеивание и комбинированный тип
сообщение
Сообщение #1





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

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


в общем для меня очень сложная задача, я в полных непонятках mega_chok.gif
условие:
дан массив, содержащий: год, месяц, число, час, минуту и секунду
упорядочить массив в порядке возрастания от более ранних к более поздним
впринципе без проблем заполню, но с сортировкой не лады...если сеять "пузырьком" по году, то отсортируется так, а когда начнётся сортировка по месяцу, то всё переменится...в общем как дальше делать YYY.gif
program MJIuH;
{$APPTYPE CONSOLE}
uses
SysUtils;
type data=record
god:integer;
mesac:byte;
chislo:byte;
chas:byte;
min:byte;
sek:byte;
end;
var
massiv:array[1..100] of data;
i,j:byte;
n,t:integer;

begin
randomize;
writeln('vvedite kol-vo zapisei');
readln(n);
for I := 1 to n do
begin
write('vvedite god');
readln(massiv[i].god);
write('vvedite mesac');
readln(massiv[i].mesac);
write('vvedite chislo');
readln(massiv[i].chislo);
write('vvedite chas');
readln(massiv[i].chas);
write('vvedite minutu');
readln(massiv[i].min);
write('vvedite sekundu');
readln(massiv[i].sek);
end;
for i := n downto 2 do
for j := 1 to i - 1 do
begin
???????????????????????????????
end;

readln;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






То, есть, ты по-прежнему не пользуешься поиском? dry.gif

ЗАписи
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





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

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


юзаю но не вижу.... rolleyes.gif
всё равно спасибо за отклики
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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