Массивы - Pascal - Ответ 806635

@boss. · Регистрация: 07.06.2010

Author24 — интернет-сервис помощи студентам

Дана матрица, состоящая из n строк и n столбцов или одномерные массивы из n элементов каждый. Согласно предложенному варианту задания, разработать схему алгоритма и программу для получения и вывода указанных в условии результатов и самих массивов, если изменялись какие-либо их элементы. Алгоритм любой задачи может быть составлен с использованием единственного двукратного цикла. Программа должна включать:
1) объявление массивов вещественных данных;
2) открытие файлов для чтения (ввода) данных и для записи (вывода) данных;
3) с помощью отдельных процедур с параметрами выполнить:
- ввод исходных данных (учесть три возможности ввода данных: с клавиатуры, случайным образом, из файла);
- вывод массива исходных данных (для улучшения качества просмотра предпочтение отдать табличному виду и формату с фиксированной точкой);
- обработку данных в соответствии с заданным вариантом;
- вывод результатов выполнения программы (в процессе отладки программы – на экран; после отладки – в файл);
4) для управления работой программой разработать структуру меню для вызова каждой процедуры (формирование меню осуществляется средствами модуля CRT);
5) для тестирования программы сформировать исходные данные таким образом, чтобы проверить каждый вариант альтернативы каждого разветвления алгоритма.
Для выполнения работы необходимо знание следующих теоретических вопросов из курса предмета «Основы алгоритмизации и программирования»:
- строение процедуры и ее вызов;
- глобальные и локальные переменные;
- формальные и фактические параметры;
- типы формальных параметров;
- основные средства и приемы отладки программ, использующих процедуры.
Нужно сделать по инструкции,т.е. добавить несколько пунктов в программу.
Само задание вот
дана матрица А,состоящая из n-строк и n-столбцов. Найти среднее арифметическое отрицательных элементов матрицы,лежащих ниже главной диагонали и среднее арифметическое всех элементов главной диагонали.
Вот готовая программа

Pascal

uses crt;
const nmax=20;
type mas=array[1..nmax,1..nmax] of integer;
procedure Vvod(var x:mas;r:byte);{создание матрицы}
var i,j:integer;
begin
for i:=1 to r do
for j:=1 to r do
x[i,j]:=random(10)-5;
end;
Procedure Vyvod(var x:mas;r:byte);{вывод на экран}
var i,j:integer;
begin
for i:=1 to r do
  begin
    for j:=1 to r do
    if j<i then{ниже главной, красным цветом}
     begin
      textcolor(12);
      write(x[i,j]:3,' ');
     end
    else{остальные по умолчанию, обычно белый}
     begin
      textcolor(15);
      write(x[i,j]:3,' ');
     end;
    writeln;
  end;
end;
procedure SrOtr(x:mas;r:byte; var sr:real);{среднее отр.ниже главной}
var i,j,k:integer;
begin
sr:=0;k:=0;
for i:=1 to r do
for j:=1 to r do
if (j<i)and(x[i,j]<0)then
  begin
   sr:=sr+x[i,j];
   k:=k+1;
  end;
sr:=sr/k;
end;
procedure SrMatr(x:mas;r:byte; var sr:real);{среднее матрицы}
var i,j,k:byte;
begin
sr:=0;k:=0;
for i:=1 to r do
for j:=1 to r do
  begin
   sr:=sr+x[i,j];
   k:=k+1;
  end;
sr:=sr/k;
end;
var a:mas;
    n:integer;
    s:real;
begin
clrscr;
randomize;
repeat
write('Razmernjst matricy n=');
readln(n);
until (n>0)and(n<=nmax);
writeln('Matrica A:');
Vvod(a,n);
Vyvod(a,n);
SrOtr(a,n,s);
textcolor(12);
writeln('Sr. ar. otr.=',s:0:2);
SrMatr(a,n,s);
textcolor(15);
writeln('Sr. ar. matr.=',s:0:2);
readln
end.

help me!!!
Заранее спасибо!По вопросам можно в личку или ICQ 441450579

Вернуться к обсуждению:
Массивы Pascal

Следующий ответ

Другие темы раздела
Pascal Сгенерировать двухмерный массив Сгенерировать двухмерный массив элементами от -10 до 10. https://www.cyberforum.ru/ pascal/ thread145934.html	В данной действительной квадратной матрице порядка n найти наибольший по модулю элемент Pascal Помогите пожалуйста написать программу на паскале В данной действительной квадратной матрице порядка n найти наибольший по модулю элемент.Получить квадратную матрицу порядка n-1 путем отбрасывания в исходной матрице строки и столбца на пересечении которых расположен элемент с найденным значением.
Pascal В прямоугольном параллелипипеде провести диогональноe сечение В прямоугольном параллелипипеде провести диогональноe сечение. https://www.cyberforum.ru/ pascal/ thread145920.html	Pascal Курсовая (Основы програмирования и алгоритмические языки) * * * * * * Задание №1 Составить программу для вычисления функций b=f(x,y,z), где z=w(x,y) при постоянных значениях х и y. Значение х и у функций заданы на рисунке(Задание 1 таблица 1) Задание №2 Вычислить значение функции f1(x), если x < 0 https://www.cyberforum.ru/ pascal/ thread145912.html
Pascal Списки В последовательности символов S1,S2...Sn m - номер первого пробела. Получить список Sm+1,...,Sn , Sm,...,S1. Материал по теме Динамические структуры данных, помогите решить... https://www.cyberforum.ru/pascal/thread15538.html Читал теорию до посинения , но так и не пойму что надо сделать.Помогите пожалуйста , это последняя работа , если сможете объясните всё подробно :cry: . Заранее...	Pascal доработка программы https://www.cyberforum.ru/ pascal/ thread145897.html Здравствуйте) Помогите доработать программу, пожалуйста. Задача: "Определить минимальное количество денег в копилке, если известны вес копилки без денег, вес копилки с деньгами, вес монет каждого достоинства" Наработки следующие: юнит: unit uforprac; interface type Kopilka=object fgf, wtwithmoney , wtwoutmoney:Integer;
Pascal Как переделать под динамическую память https://www.cyberforum.ru/ pascal/ thread145891.html Подскажите пожалуста как переделать эту программу для работы с динамической памятью? program samuel; const m=10; n=20; type kot=1..m; matr = array of integer; imatr = record mat:matr; raz:kot; maxel:integer;	Паскаль. Матрица Pascal Здравствуйте, подскажите пожалуйста, как будет выглядеть кусок программы для ниже указанного задания Задана матрица B(N,N) (N<=20). Вычислить сумму элементов главной диагонали матрицы В.
Pascal Получить матрицу C=AB https://www.cyberforum.ru/ pascal/ thread145879.html Дана квадратная матрица A порядка n Получить матрицу C=AB Элементы матрицы B вычисляются по формуле Bij=1/(i+j-1)	Pascal PASCAL(процедуры,массивы) №1 Дана таблица со сведениями о наличии сырья на каждом из 4х участков пяти цехов. Определить номер цеха, в котором меньше всего сырья. №2 Написать процедуру, проверяющую, является ли число автоморфным, т.е. квадрат этого числа заканчивается этим же числом. №3 Написать рекурсивную процедуру нахождения суммы цифр любого натурального числа. https://www.cyberforum.ru/ pascal/ thread145874.html
Pascal Текст Пусть дан текст. Распечатайте те гласные русские буквы, которые не встречаются в тексте.	Pascal Найти количество промежутков монотонности массива N https://www.cyberforum.ru/ pascal/ thread145871.html Уважаемые программеры, нужно решить такую задачу, а я даже не знаю как к ней подойти :-( Помогите пожалуйста или хотябы дайте ссылку на нечто подобное. Дан массив размера N. Найти количество его промежутков монотонности (то есть участков, на которых его элементы возрастают или убывают).

	15.06.2010, 22:34