Форум программистов, компьютерный форум, киберфорум
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;...
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
23.05.2008, 09:18 0

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

23.05.2008, 09:18. Показов 1254. Ответов 2
Метки (Все метки)

Ответ

Код твой переделать не проблема, только по-моему к нормам матрицы это не имеет никакого отношения, ты просто считаешь сумму модулей элементов матриц, а норма матрицы это что-то другое, я в этом не разбираюсь, просто краем глаза посмотрел в интернете.
Код
[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
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2008, 09:18
Готовые ответы и решения:

Задача на тему: множества
Задан текст из маленьких латинских букв в конце стоит точка. Напечатать в алфавитном порядке все...

Задача на тему работа со строками
Если в строке цифр больше, чем латинских букв, заменить все цифры знаком '+'. В противном случае...

Задача не сложная на тему строки.
Создайте программу, которая запрашивает тестовую строку и заменяет все слоги "ра" на "пар"....

Задача на тему PascalABC (Циклы)
Задача 1. Найти сколько слагаемых необходимо, чтобы сумма 2+4+6+... оказалась больше 100. ...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2008, 09:18
Помогаю со студенческими работами здесь

задача с контроши которая будет в понедельник а я ввбще не шарю эту тему
найти количество счастливых билетов в серии автобусных билетов с номирами от 000000 до 999999....

Ребята, задача по паскалю, нужно сдать до завтра, а эту тему я пропустил:( буду благодарен
Выведите на экран таблицу значений функции y=ax для х, изменяющегося от a до b с шагом h.

Задача на тему Файлы
Использованный в лабораторной работе № 17 (Использование записей) массив записей должен сохраняться...

Нужна любая задача на тему: Применение модуля CRT
Нужна срочно любая задача на тему: Применение модуля CRT.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru