Помощь - Поиск - Пользователи - Календарь
Полная версия: Хитрая задачка
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Filipp
Задача: В заданной матрице поменять местами последний столбец и столбец, содержащий минимальный элемент матрицы.
Текст программы:
uses crt; {Вызовэкрана}
type
tind =1..10;
tmatr= array[tind, tind] of integer; {Типматрицы}
var {Описание переменных}
M: TMatr;
n, k, dop, min, jmin: integer;
i, j: tind;
BEGIN
clrscr;

write ('Введите размеры матрицы через пробел: '); {Ввод матрицы}
read(k, n);
write ('Введите ',k*n,' элементов матрицы: ');
for i:=1 to k do
for j:=1 to n
do read (M[i, j]);
readln;
writeln ('Исходнаяматрица: ');
for i:=1 to k do begin
for j:=1 to n
do write (M[i, j]:3);
writeln;
end;
end;

min:= M[1, 1]; {Присваивание}
jmin:= 1;
for i:=1 to k
do begin
for j:=1 to n do
if M[i, j]< min {Условие}
then begin min:= M[i, j];
jmin:= j;
end;
end;

if jmin<>n
then begin
for i:=1 to k
do begin
dop:= M[i, jmin]; {Перестановка элементов}
M[i, jmin]:= M[i, n];
M[i, n]:= dop;
end;
end;

writeln ('Матрица после перестановки: '); {Вывод матрицы}
for i:= 1 to k
do begin
for j:= 1 to n do
write (M[i, j]:3);
writeln;
end;
END.
...........
Нужно чтобы программа была окнами как на рисунке
в прикрепленном файле
hxxp://vkontakte.ru/photo10761923_273938400
картинка по ссылке
xx меняете на tt
IUnknown
То есть, зарегистрироваться ВКонтакте - обязательное условие для решения этой задачи? Спасибо, не надо... Тем более, что форум прекрасно умеет присоединять картинки.
Filipp
он не фига не добавляет картинки

Добавлено через 2 мин.
Цитата(IUnknown @ 21.12.2011 13:56) *

То есть, зарегистрироваться ВКонтакте - обязательное условие для решения этой задачи? Спасибо, не надо... Тем более, что форум прекрасно умеет присоединять картинки.

я пробовал.....картинку не добавляет+эту картинку можно посмотреть не регистрируясь в контакте
IUnknown
Цитата
он не фига не добавляет картинки
Это твои фантазии. Есть не только быстрая форма ответа, но и Расширенная.

Цитата
+эту картинку можно посмотреть не регистрируясь в контакте
Это - тоже:
Нажмите для просмотра прикрепленного файлаТы видишь картинку? Я - нет.
Filipp
Цитата(IUnknown @ 21.12.2011 14:25) *

Это твои фантазии. Есть не только быстрая форма ответа, но и Расширенная.

Это - тоже:
Нажмите для просмотра прикрепленного файлаТы видишь картинку? Я - нет.

Прикрепление файлов
Максимально допустимый объем всех файлов: размер неограничен
я жму ..выбрать файл..затем добавить...но его не добавляет

Нажмите для просмотра прикрепленного файла

М
да вроде и jpg добавляются...
мисс_граффити

TarasBer
А потому что нехрен картинки из программы как jpg сохранять.
Используйте, блин, православный формат png, и снизойдёт до вас благодать.
Filipp
кто-нить поможет сделать???
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.