Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
denis_stell
1 / 1 / 3
Регистрация: 07.02.2010
Сообщений: 129
#1

Матрица,процедуры - Turbo Pascal

11.02.2010, 11:41. Просмотров 331. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста,сегодня зачет в 15:00,нужно сделать такие задачки
1)Дана прямоугольная матрица,обменять первую строку с последней,используя процедуру обмена
2)Дана матрица,отсортировать строки в порядке возрастания
3)Дана матрица,в каждой строке расположить элементы в порядке невозрастания
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.02.2010, 11:41
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Матрица,процедуры (Turbo Pascal):

процедуры и матрица
после выполнения работы min и max равны 0. в чем ошибка ребят? вот код...

Матрица порядка n(Процедуры)
Здравствуйте. Помогите пожалуйста, нужно сделать программу с использованием...

Матрица, Процедуры и Функции
Дана целочисленная матрица {Aij}i=1...n;j=1..n , n<=100. Если в матрице нет...

Дана квадратная матрица. Повернуть ее на 90 градусов в + направлении (процедуры)
const n=10; Type Atr = array of integer; Procedure matrica (a:Atr);...

Использование имени процедуры в качестве параметра другой процедуры
Предложите, пожалуйста, пример решения след. задачи с использованием...

Использование имени процедуры в качестве параметра другой процедуры
Help! Для массива С из n элементов составить процедуру, которая находит...

1
Unrealler
653 / 351 / 113
Регистрация: 11.12.2009
Сообщений: 508
11.02.2010, 16:27 #2
Лучший ответ Сообщение было отмечено denis_stell как решение

Решение

2:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
uses crt;
var
   a:array[1..100,1..100] of integer;
   i,j,m,n,r,q:integer;
begin
clrscr;
write('Ââåäèòå êîëè÷åñòâî ñòðîê Г¬Г*òðèöû=');
readln(m);
write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ Г¬Г*òðèöû=');
readln(n);
writeln('ÈñõîäГ*Г*Гї Г¬Г*òðèöГ*');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(51)-10;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Ïîñëå ñîðòèðîâêè');
for i:=1 to m do
 for q:=1 to n-1 do
  for j:=1 to n-q do
   if (a[i,j]>=a[i,j+1]) then
    begin
     r:=a[i,j];
     a[i,j]:=a[i,j+1];
     a[i,j+1]:=r;
    end;
for i:=1 to m do
 begin
  for j:=1 to n do
   write(a[i,j]:4);
  writeln;
 end;
readln
end.
Добавлено через 43 секунды
Для третьего задания в 25-ой строке заменить знак > на <
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.02.2010, 16:27
Привет! Вот еще темы с решениями:

Дана квадратная матрица А порядка n. Проверить, является ли матрица единичной.
Ребят,помогите решить задачу &quot;Дана квадратная матрица А порядка n. Проверить,...

Процедуры
Нужна помощь (: Вообщем даны 4 числа -5.8 ; 5.8 ; -3.2 ; 3.2 ...

Процедуры
Дана лабораторная работа №1 : Условие:вычислить значение выражения:

Матрица,процедуры
Сформировать из столбцов матрицы В матрицу С , в которой столбцы расположены в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru