Массивы - Паскаль, Turbo Pascal, PascalABC.NET

Veronika# · 19.04.2010, 20:32

Ребята помогите решить задачку: Дан вещественный массив из 3 строк и 5 столбцов. Упорядочить массив по убыванию дробной части элементов второй строки.

Hacker19_90 · 19.04.2010, 20:40

Это в смысле вторую строку упорядочить? Тогда

Код:

repeat
for i := 1 to 4 do
begin
     if (Massiv[2, i] mod 1) > (Massiv[2, i+1] mod 1) then
     begin
          Temp := Massiv[2,i];
          Massiv[2,i] := Massiv[2, i+1];
          Massiv[2, i+1] := Temp;
          flag := 1;
     end;
end
until flag = 0;

Veronika# · 19.04.2010, 23:15

Спасибо тебе большое. А ты можешь помочь написать полный код программы?

Hacker19_90 · 19.04.2010, 23:19

А ты мне асю свою дашь???

Veronika# · 19.04.2010, 23:23

у меня ее еще нет

Hacker19_90 · 19.04.2010, 23:25

тогда создай

А номер телефона

Ну хоть ссылку в контакте

ROMA2PVT · 19.04.2010, 23:49

Обломали тебя Hacker19_90

Шутю.

Hacker19_90 · 20.04.2010, 00:13

Да нет не совсем

ROMA2PVT · 20.04.2010, 00:23

ХаХа!

А я то думал обломали.Значит несмогла выкрутиться.

Hacker19_90 · 20.04.2010, 00:52

ВОТ КОД ВЕСЬ

19.04.2010, 20:32	#1
Veronika# Регистрация: 19.04.2010 Сообщений: 4	Массивы Ребята помогите решить задачку: Дан вещественный массив из 3 строк и 5 столбцов. Упорядочить массив по убыванию дробной части элементов второй строки.

19.04.2010, 20:40	#2
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	Это в смысле вторую строку упорядочить? Тогда Код: `repeat for i := 1 to 4 do begin if (Massiv[2, i] mod 1) > (Massiv[2, i+1] mod 1) then begin Temp := Massiv[2,i]; Massiv[2,i] := Massiv[2, i+1]; Massiv[2, i+1] := Temp; flag := 1; end; end until flag = 0;` *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303

19.04.2010, 23:19	#4
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	А ты мне асю свою дашь??? *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303

19.04.2010, 23:25	#6
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	тогда создай А номер телефона Ну хоть ссылку в контакте *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 Последний раз редактировалось Stilet; 17.12.2010 в 17:07.

19.04.2010, 23:49	#7
ROMA2PVT ТАМБОВСКИЙ ВОЛК. Участник клуба Регистрация: 16.03.2010 Сообщений: 1,354	Обломали тебя Hacker19_90 Шутю. にんじゃ

19.04.2010, 23:15	#3
Veronika# Регистрация: 19.04.2010 Сообщений: 4	Спасибо тебе большое. А ты можешь помочь написать полный код программы?

19.04.2010, 23:23	#5
Veronika# Регистрация: 19.04.2010 Сообщений: 4	у меня ее еще нет

20.04.2010, 00:13	#8
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	Да нет не совсем *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 Последний раз редактировалось Hacker19_90; 20.04.2010 в 00:51.

20.04.2010, 00:23	#9
ROMA2PVT ТАМБОВСКИЙ ВОЛК. Участник клуба Регистрация: 16.03.2010 Сообщений: 1,354	ХаХа! А я то думал обломали.Значит несмогла выкрутиться. にんじゃ

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
С++, Массивы, динамические массивы.	-Sunshine-	Помощь студентам	1	19.04.2010 02:17
Массивы	zloy20	Помощь студентам	6	27.12.2009 15:12
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент	LyaLya	Помощь студентам	15	20.12.2009 14:12