Задача на тему функции - Pascal - Ответ 36526

@Puporev · 23.05.2008, 09:18

Код твой переделать не проблема, только по-моему к нормам матрицы это не имеет никакого отношения, ты просто считаешь сумму модулей элементов матриц, а норма матрицы это что-то другое, я в этом не разбираюсь, просто краем глаза посмотрел в интернете.

Код

[FONT=Courier New CYR][FONT=Courier New CYR]program ersdf;[/FONT]
[FONT=Courier New CYR]uses crt;[/FONT]
[FONT=Courier New CYR]const [/FONT][FONT=Courier New CYR]m[/FONT][FONT=Courier New CYR]=4;  //параметры матриц задаем константами[/FONT]
[FONT=Courier New CYR]   n=3;[/FONT]
[FONT=Courier New CYR]type Tmatr=array[1..m,1..n] of real;//[/FONT][FONT=Courier New CYR]объявляем [/FONT][FONT=Courier New CYR]тип [/FONT][FONT=Courier New CYR]матрица[/FONT]
[FONT=Courier New CYR]var i,j:integer;[/FONT]
[FONT=Courier New CYR]     a,b,c:Tmatr;[/FONT]
[FONT=Courier New CYR]function[/FONT][FONT=Courier New CYR]Max[/FONT][FONT=Courier New CYR]([/FONT][FONT=Courier New CYR]mt[/FONT][FONT=Courier New CYR]:[/FONT][FONT=Courier New CYR]Tmatr[/FONT][FONT=Courier New CYR]):[/FONT][FONT=Courier New CYR]real[/FONT][FONT=Courier New CYR];//считает сумму модулей элементов матрицы[/FONT]
[FONT=Courier New CYR]var s:real;[/FONT]
[FONT=Courier New CYR]begin[/FONT]
[FONT=Courier New CYR]s:=0;[/FONT]
[FONT=Courier New CYR]for i:=1 to m do[/FONT]
[FONT=Courier New CYR]for j:=1 to n do[/FONT]
[FONT=Courier New CYR]s:=s+abs(mt[i,j]);[/FONT]
[FONT=Courier New CYR]Max:=s;[/FONT]
[FONT=Courier New CYR]end;[/FONT]
[FONT=Courier New CYR]Function MaxMax(p,q,t:real):real;//[/FONT][FONT=Courier New CYR]ищет [/FONT][FONT=Courier New CYR]максимальное [/FONT][FONT=Courier New CYR]из [/FONT][FONT=Courier New CYR]трех[/FONT]
[FONT=Courier New CYR]var max:real;[/FONT]
[FONT=Courier New CYR]begin[/FONT]
[FONT=Courier New CYR]if p>q then max:=p else max:=q;[/FONT]
[FONT=Courier New CYR]if t>max then max:=t;[/FONT]
[FONT=Courier New CYR]MaxMax:=max;[/FONT]
[FONT=Courier New CYR]end;[/FONT]
[FONT=Courier New CYR]Procedure Mat(m,n:integer;var mt:Tmatr);//[/FONT][FONT=Courier New CYR]вводит [/FONT][FONT=Courier New CYR]элементы [/FONT][FONT=Courier New CYR]матриц[/FONT]
[FONT=Courier New CYR]begin[/FONT]
[FONT=Courier New CYR]writeln('vvod matrici:');[/FONT]
[FONT=Courier New CYR]for i:=1 to m do[/FONT]
[FONT=Courier New CYR]for j:=1 to n do[/FONT]
[FONT=Courier New CYR]read[/FONT][FONT=Courier New CYR]([/FONT][FONT=Courier New CYR]mt[/FONT][FONT=Courier New CYR][[/FONT][FONT=Courier New CYR]i[/FONT][FONT=Courier New CYR],[/FONT][FONT=Courier New CYR]j[/FONT][FONT=Courier New CYR]]); //вводить через пробел по три в строку, потом Enter[/FONT]
[FONT=Courier New CYR]readln;  //Enter[/FONT]
[FONT=Courier New CYR]end;[/FONT]
[FONT=Courier New CYR]begin[/FONT]
[FONT=Courier New CYR]clrscr;[/FONT]
[FONT=Courier New CYR]Mat[/FONT][FONT=Courier New CYR]([/FONT][FONT=Courier New CYR]m[/FONT][FONT=Courier New CYR],[/FONT][FONT=Courier New CYR]n[/FONT][FONT=Courier New CYR],[/FONT][FONT=Courier New CYR]a[/FONT][FONT=Courier New CYR]);//матрица А[/FONT]
[FONT=Courier New CYR]writeln;[/FONT]
[FONT=Courier New CYR]Writeln('Max A=',Max(a):4:1);[/FONT]
[FONT=Courier New CYR]writeln;[/FONT]
[FONT=Courier New CYR]Mat[/FONT][FONT=Courier New CYR]([/FONT][FONT=Courier New CYR]m[/FONT][FONT=Courier New CYR],[/FONT][FONT=Courier New CYR]n[/FONT][FONT=Courier New CYR],[/FONT][FONT=Courier New CYR]b[/FONT][FONT=Courier New CYR]); //Матрица В[/FONT]
[FONT=Courier New CYR]writeln;[/FONT]
[FONT=Courier New CYR]Writeln('MaxB=',Max(b):4:1);[/FONT]
[FONT=Courier New CYR]writeln;[/FONT]
[FONT=Courier New CYR]Mat[/FONT][FONT=Courier New CYR]([/FONT][FONT=Courier New CYR]m[/FONT][FONT=Courier New CYR],[/FONT][FONT=Courier New CYR]n[/FONT][FONT=Courier New CYR],[/FONT][FONT=Courier New CYR]c[/FONT][FONT=Courier New CYR]);  //Матрица С[/FONT]
[FONT=Courier New CYR]writeln;[/FONT]
[FONT=Courier New CYR]Writeln('MaxC=',Max(c):4:1);[/FONT]
[FONT=Courier New CYR]writeln;[/FONT]
[FONT=Courier New CYR]writeln('MaxMax=',MaxMax(Max(a),Max(b),Max(c)):4:1);//[/FONT][FONT=Courier New CYR]Результат[/FONT]
[FONT=Courier New CYR]readln[/FONT]
[FONT=Courier New CYR]end.[/FONT]
[/FONT]

Вернуться к обсуждению:
Задача на тему функции Pascal

Другие темы раздела
Pascal Помогите пожалуйста !!!!!!!! ужас не могу разобраться Большие, большие проблемы а времени в обрез помогите кто чем может... 1) Описать процедуру, которая в списке L заменяет первое вхождение списка L1 (если есть такое) на список L2 2) Дана... https://www.cyberforum.ru/ pascal/ thread8300.html	Pascal помогите плиз решить 7 задач на Pascal Если есть люди умные, помогите плиз решить 7 задач на Pascal'e. - Пусть дан файл целых чисел. Определите, являются ли числа в файле упоря¬доченными по возрастанию. - Составьте программу,...
Pascal глобальные переменные https://www.cyberforum.ru/ pascal/ thread8291.html Помогите пожалуйста избавиться от глобальных переменных! Заношу все в процедуры, программа не идет :(( завтра защита курсовой а мне не разобраться!	Pascal определить число сотен помогите с задачкой на паскаль вот условие Дано натуральное число n ( n> 99 ). Определить число сотен в нем. я пока еще не очень разбираюсь, почитал книги и попробовал сам но у меня получилось... https://www.cyberforum.ru/ pascal/ thread8288.html
Pascal Дан массив из восьми строк Дан массив из восьми строк. В строке "фамилия студента_оценка1_оценка2". Приписать к каждой строке средний балл. отсортировать по убыванию балла и распечатать. Задачу нужно решить без функций и...	Pascal ПОМОГИТЕ с комментариями https://www.cyberforum.ru/ pascal/ thread8275.html прокомментируйте плиз прогу, я прост в паскале не силен......желательно подробно.....спс.... вот код type TreeLink = ^Tree; Tree = record Data: string; Left, Right: TreeLink; ...
Pascal Очень срочно, простая задача на матрицы! https://www.cyberforum.ru/ pascal/ thread8259.html Пожалуйста, выручите! На завтра нужна такая программка: даны 49 чисел (думаю логичнее всего рандомом заполнять), из них нужно составить матрицу по следующей схеме:...	Подсчитать количество цифр, входящих в строку Pascal Дана строка, содержащая 30 символов. Подсчитать количество цифр, входящих в данную строку.
Pascal Помогите Пожалуйста оч оч нужно! задачки Пожалуйста помогите решить несколько задачек,а то я нитё не понимаю Плиз плиз плиз! Я буду очень благодарна! Линейные алгоритмы: 1)Заданы два целых числа k и d. Используя только арифметические... https://www.cyberforum.ru/ pascal/ thread8244.html	Pascal Задача на строки, немогу разобраться https://www.cyberforum.ru/ pascal/ thread8243.html В строке заданы через двоеточие 2 оператора присваивания общего вида: "первый:=число1+число2:второй:=число3-число4" (например:"A:=3+4:B:=7-2"). Вычислить значения переменых и распечатать их. Вот...
Определить сколько в файле f слов состоящих из одного, двух, трех и т.д. символов Pascal Дан символьный файл f Считая что количество символов в слове не превосходит 20 а)определить сколько в файле f слов состоящих из одного, двух, трех и т.д. символов б)сколько слов в файле вот я...	Pascal Матрицы. Найти сумму элементов главной и побочной диагонали. https://www.cyberforum.ru/ pascal/ thread8199.html Дана матрица вещественых чисел P(7,7). Вычислить сумму элементов главной диагонали и симметричной ей. program qwesadf; uses crt; var p:array of real;i,n,j:integer;s1,s2:real; begin clrscr;...