Работа с массивами на Паскале
Составление блок-схемы и программы на языке Паскаль для нахождения максимального элемента среди отрицательных элементов матрицы над побочной диагональю, суммы для элементов третьего столбца, замены максимального элемента на значение полученной суммы.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | лабораторная работа |
| Язык | русский |
| Дата добавления | 23.05.2010 |
| Размер файла | 13,3 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Волжский Государственный
Инженерно-Педагогический Университет
Институт Дизайна
Кафедра: Математики и информатики
Лабораторная работа № 4
Выполнил: Чесноков Д.С.
Студент группы ПИМ-09
Проверил: Ершов В.Н.
Задание
Дана матрица А(4,4)
1) Найти максимальный элемент среди отрицательных элементов матрицы, расположенных над побочной диагональю.
2) Подсчитать сумму для элементов третьего столбца по формуле
S=sin()
3) Заменить максимальный элемент на значение полученной суммы.
Программа на Паскале
program MaTpuLLa;
var
i,j,e,k:integer;
A:array[1..4, 1..4] of real;
max,s,x:real;
begin
writeln('MaccuB A');
for i:=1 to 4 do
for j:=1 to 4 do
read(A[i,j]);
writeln('BbeqeHHblu MaccuB');
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(A[i,j]:6:2);
writeln;
end;
max:=-10.E10;
S:=0;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if i+j<5 then
if A[i,j]<0 then
if max>A[i,j] then
begin
max:=A[i,j];
k:=i;
e:=j;
End;
if j=3 then
S:=sin(S+A[i,j]);
end;
end;
x:= A[e,k];
A[e,k]:=S;
S:=x;
writeln('MakcuMyM=', max:6:2, 'CyMMa=', S:6:2);
end.
Полученный результаты после обработки программы
Введенный массив
|
-1 |
-2 |
-3 |
-4 |
|
|
-5 |
-6 |
-7 |
-8 |
|
|
-9 |
1 |
2 |
3 |
|
|
4 |
-10 |
-11 |
-12 |
MakcuMyM = -9.00
CyMMa = -12.00
Подобные документы
Работа с одномерными и двухмерными массивами: составление функций нахождения заданных элементов, их количества и суммы под и над главной диагональю, поиск среднего арифметического. Составление блок-схемы, написание текста программы, его тестирование.
контрольная работа [52,0 K], добавлен 27.12.2010Исходный текст программы и ее экранная форма. Программа вычисления и выдачи на печать суммы/произведения элементов бесконечного числового ряда, вычисления числового ряда для известного числа членов ряда. Значение максимального элемента в матрице.
контрольная работа [29,0 K], добавлен 07.12.2010Структурная диаграмма программного модуля. Нахождение суммы элементов, находящихся над главной диагональю. Реализация программного модуля: код программы; описание использованных операторов и функций. Особенности тестирования программного модуля.
курсовая работа [146,6 K], добавлен 01.09.2010Формирование одномерного массива, каждый элемент которого равен наибольшему по модулю элементу соответствующего столбца. Определение столбца, в котором равное количество положительных и отрицательных элементов. Написание программы и ее тестирование.
контрольная работа [97,2 K], добавлен 21.06.2009Применение метода Гаусса для решения системы линейный алгебраических уравнений. Алгоритм нахождения максимального по модулю элемента в текущей строке и его перестановки на первое место при помощи матрицы перестановок. Блок-схема и код программы.
лабораторная работа [171,3 K], добавлен 02.10.2013Описание глобальных переменных и подпрограмм. Блок-схема головной функции main. Нахождение произведения элементов с четными номерами. Минимум среди сумм элементов диагоналей, параллельных побочной диагонали матрицы. Результаты тестового прогона программы.
курсовая работа [766,4 K], добавлен 10.02.2015Составление блок-схемы алгоритма решения задачи, погрешности вычисления суммы членов числового ряда. Разработка программ на языке на Visual Basic, работа с массивами. Особенности работы со строковыми данными. Варианты реализации формы приложения.
контрольная работа [220,4 K], добавлен 18.06.2010Описание алгоритма решения задачи по вычислению суммы элементов строк матрицы с использованием графического способа. Детализация укрупненной схемы алгоритма и разработка программы для решения задачи в среде Turbo Pascal. Листинг и тестирование программы.
курсовая работа [446,0 K], добавлен 19.06.2014Вычисление приближённых значений функций, представленных бесконечными рядами. Определение максимального элемента матрицы. Сортировка символов в порядке неубывания. Определение разности между первым и вторым значениями и вывод ее на экран как погрешность.
контрольная работа [20,9 K], добавлен 17.04.2014Выведение значения элементов массива, которые удовлетворяют неравенству. Подсчет количества отрицательных элементов массива. Изменение исходного массива. Тестирование программы. Проверка её работоспособности. Реакция программы на сообщение об ошибке.
лабораторная работа [1,3 M], добавлен 23.11.2014
