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

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

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

> преоброзование массива, помогите плиз
goatsee
сообщение 22.06.2007 0:16
Сообщение #1


Гость






как из 2х мерного массива, сделать 1мерный, если размеры совтадают??? жду ответа, буду сидеть до утра=(
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
goatsee
сообщение 22.06.2007 8:39
Сообщение #2


Гость






просто он сортирует, но не выводит данные координат
я согласен, что тут лушнее, но по другому он не хочет
 К началу страницы 
+ Ответить 
hiv
сообщение 22.06.2007 9:44
Сообщение #3


Профи
****

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

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


Цитата(goatsee @ 22.06.2007 9:39) *
... , но по другому он не хочет
Захочет, если репу почесать...
program practuka;
uses crt;
type
arr_2d= array[1 .. 2, 1 .. 2] of integer;
arr_1d= array[1 .. 4] of integer;
var f: text;
x,i,k,j:integer;
mx: arr_2d;
arr: arr_1d absolute mx;
sort: boolean;
begin
assign(f, 'matr.txt');
rewrite(f);
clrscr;
for i:=1 to 4 do
begin
write('3HA4EHUE',i,':');
read(arr[i]);
writeln;
end;

repeat
sort:=true;
for i := 1 to 3 do
if arr[i]<arr[i+1] then
begin
x:=arr[i];
arr[i]:=arr[i+1];
arr[i+1]:=x;
sort:=false;
end;
until sort;
writeln;

for i:=1 to 4 do
begin
k := (i-1) div 2 + 1;
j := i-(k-1)*2;
writeln(f,'(',arr[i],')','(',k,',',j,')'); {в файле выводятся координаты}
end;
close(f);
end.




--------------------
Никогда не жадничай. Свои проблемы с любовью дари людям!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 



- Текстовая версия 22.06.2025 13:03
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"