|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
24.04.2008, 10:50 | #1 |
Регистрация: 24.04.2008
Сообщений: 1
|
помогите пожалуйста с решением задач с матрицами очень прошу
помогите пожалуйста с массивами на паскале очень прошу. Никак их не могу понять! заранее благодарен!
не могу решить две задачи по одномерным и двумерным массивам 1) Дан одномерный массив из 16 элементов. Поменять местами наибольший элемент массива с наименьшим. вывести новый массив 2) Создать матрицу 5*4. Поменять местами строки, содержащие максимальные элементы и минимальные элементы. вывести новую матрицу. С уважением: Денис |
24.04.2008, 11:42 | #2 |
Форумчанин
Регистрация: 04.04.2007
Сообщений: 131
|
Код:
|
24.04.2008, 12:30 | #3 |
Регистрация: 24.04.2008
Сообщений: 3
|
спасибо тебе большое. Посмотри пожалуйста еще вторую задачу, если сможешь реши ее пожалуйста
|
24.04.2008, 12:41 | #4 |
Пользователь
Регистрация: 04.04.2008
Сообщений: 57
|
Задача 2
Код:
Программированине-это не очередная пара, а искуство показать себя!!!
|
24.04.2008, 13:20 | #5 |
Регистрация: 24.04.2008
Сообщений: 3
|
что то не работает программа, ошибка
|
24.04.2008, 13:24 | #6 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
24.04.2008, 13:28 | #7 |
Регистрация: 24.04.2008
Сообщений: 3
|
попытка присвоить выражению типа a:array[1..100,1..100]of byte выражение типа byte
|
24.04.2008, 14:08 | #8 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
У меня поче му то другие ошибки выдало - кучу синтаксических
Вот переделал: Код:
I'm learning to live...
|
25.04.2008, 14:36 | #9 |
Регистрация: 24.04.2008
Сообщений: 9
|
ПОМОГИТЕ пожалуйста!!!! НЕобходимо задать символьный массив 4*3 (вставка из ассемблера подсчета количества гласных) вывод колличества гласных.
в раскале же можно делать в ставку программы на ассемблере??? и какой компилятор, библиотека для этого нужно??? |
25.04.2008, 19:26 | #10 |
Пользователь
Регистрация: 04.04.2008
Сообщений: 57
|
Ошибки были ,но синтаксические! -Тут уж и идею подал ну вот исправил задача 2)
uses crt; var a:array[1..100,1..100]of integer; t,lit,pozlit,i,j,n,k,l,m,big,pozbig :longint; begin clrscr; read(n,m);randomize; for i:=1 to n do begin writeln; for j:=1 to m do begin a[i,j]:=random(10); write(a[i,j],' '); end; end;writeln; big:=0;pozbig:=1; lit:=20;pozlit:=1; for i:=1 to n do for j:=1 to m do begin if a[i,j]>big then begin big:=a[i,j];pozbig:=i;end; if a[i,j]<lit then begin lit:=a[i,j];pozlit:=i;end; end; for j:=1 to m do begin t:=a[pozbig,j];a[pozbig,j]:=a[pozlit,j];a[pozlit,j]:=t;end; for i:=1 to n do begin writeln; for j:=1 to m do write(a[i,j],' '); end; readkey; end.
Программированине-это не очередная пара, а искуство показать себя!!!
|