Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Даны два двумерных массива целых чисел А[5][5], В[5][5]. Определить, в котором из них наименьшая сумма элементов главной диагонали, если такой массив один. Решить как подпрограмму функцию. https://www.cyberforum.ru/ pascalabc/ thread1997382.html Pascal ABC В массиве натуральных чисел определить хотя бы один элемент, представимый в виде суммы квадратов двух других
2. В массиве натуральных чисел определить хотя бы один элемент, представимый в виде суммы квадратов двух других элементов этого массива. Использовать процедуру определения представимости элемента.
Pascal ABC Определить наибольшую площадь треугольника, заданного длинами сторон в массиве https://www.cyberforum.ru/ pascalabc/ thread1997325.html
1. Определить наибольшую площадь треугольника, заданного длинами сторон в массиве: (a,a,a) - длины сторон первого треугольника, (a,a,a) - длины сторон второго треугольника и т.д. Использовать...
Pascal ABC Информация об автомобилях Сведения об автомобиле состоят из номера, марки, фамилии владельца, признака прохождения техосмотра. Написать программу для занесения в массив информации о N автомобилях. Найти номера и... https://www.cyberforum.ru/ pascalabc/ thread1997322.html
Не выводит длину биссектрисы Pascal ABC
uses crt; procedure Trio; var a,b,c: integer; l:real; begin l:=(sqr(a*b*(a+b+c)*(a+b-c)))/(a+b); writeln('Длина биссектрисы ',l); end; var a,b,c:integer; begin clrscr;
Pascal ABC Найти в файле самое длинное слово и вывести количество его букв https://www.cyberforum.ru/ pascalabc/ thread1997155.html
Дано условие: В файле записаны слова. Указать какое слово самое длинное и написать количество букв в этом слове. (Сделать задачу через тип файл!). Вот начало думаю такое:
Pascal ABC Сделать систему алгебраических уравнений используя метод КРАМЕРА Решить систему алгебраических уравнений используя метод КРАМЕРА \begin{cases} & \text 8.1*{x}_{1}+1.2*{x}_{2}-9.1*{x}_{3}+1.7*{x}_{4}=10\\ & \text ... https://www.cyberforum.ru/ pascalabc/ thread1997116.html Pascal ABC Указать все тройки натуральных чисел
Дано натуральное число m. Указать все тройки натуральных чисел x, y и z удовлетворяющие следующему условию m=x^3+y^3+z^3
Pascal ABC Нужно получить вектор https://www.cyberforum.ru/ pascalabc/ thread1997035.html
Даны квадратная матрица A порядка n и вектор b с n элементами. Получить вектор A2b. Помогите с решением, буду благодарен!!
Pascal ABC Дано натуральное число N. Сформировать N первых элементов массива https://www.cyberforum.ru/ pascalabc/ thread1997031.html
Pascal ABC Дано натуральное число N.Сформировать N первых элементов массива из целых чисел в соответствии с формулой: а1=1 , а2=1 , а=3*a+2*a-1 для i>=3. В результате получим 1,1,4,13,46,163,580
Написать программу движения шарика вдоль заданной линии y=ln x Pascal ABC
Помогите написать программу движения шарика вдоль заданной линии y=ln x в Паскаль
Pascal ABC Свойства операций над множествами. Отношения Для двух данных в таблице выражений показать справедливость их выполнения, используя законы теории множеств и свойства отношения включения, доказать истинность данных отношений; для отношения... https://www.cyberforum.ru/ pascalabc/ thread1996854.html
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
05.06.2017, 11:22 0

Пожалуйста напишите процедуры и составьте две матрицы - Pascal ABC - Ответ 10512555

05.06.2017, 11:22. Показов 590. Ответов 1
Метки (Все метки)

Ответ

Пожалейте свои пальцы, для чего Вам вводить с клавы 108 вещественных чисел при каждом тестировании?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
uses crt;
const
   m=6;
   n=9;
type mtr=array[1..m,1..n] of real;
procedure matrix(var a:mtr;c:char);
var i,j:integer;
begin
writeln('Матрица ',c);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
end;
procedure max(a:mtr;var maxrow,maxcol:integer);
var i,j:integer;
begin
maxcol:=1;
maxrow:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>a[maxrow,maxcol]then
 begin
  maxrow:=i;
  maxcol:=j;
 end;
writeln('Максимальный элемент=',a[maxrow,maxcol]:0:2,' в строке ',maxrow,' в столбце ',maxcol);
end;
procedure summa(a:mtr;maxcol:integer);
var i,j:integer;
    sum:real;
begin
if maxcol<n then
 begin
  sum:=0;
  for j:=maxcol+1 to n do
  for i:=1 to m do
  sum:=sum+a[i,j];
  writeln('Сумма элементов за столбцом с наибольшим членом равна S = ',sum:0:2);
 end
else writeln('Максимальный элемнт находится в последнем столбце');
end;
procedure srednee(a:mtr;maxrow:integer);
var i,j,count:integer;
    sred:real;
begin
if maxrow<m then
 begin
  sred:=0;
  count:=0;
  for i:=maxrow+1 to m do
  for j:=1 to n do
   begin
    sred:=sred+a[i,j];
    inc(count);
   end;
  sred:=sred/count;
  writeln('Среднее значение элементов ниже строки с наибольшим членом равна Sred = ',sred:0:2);
 end
else writeln('Максимальный элемнт находится в последней строке');
end;
var a,b:mtr;
    maxcol,maxrow:integer;
begin
matrix(a,'A');
max(a,maxrow,maxcol);
summa(a,maxcol);
srednee(a,maxrow);
matrix(b,'B');
max(b,maxrow,maxcol);
summa(b,maxcol);
srednee(b,maxrow);
end.


Вернуться к обсуждению:
Пожалуйста напишите процедуры и составьте две матрицы Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2017, 11:22
Готовые ответы и решения:

Напишите процедуры ввода и вывода элементов матрицы
Напишите процедуры ввода и вывода элементов матрицы T размерностью MxN.

Составьте пожалуйста две программы решения двух задач по физике
1. Во сколько раз изменится длина световой волны при переходе из воздуха в стекло, если скорость...

Напишите программу, которая заполняет две матрицы случайными целыми числами, складывает матрицы и печатает
пожалуйста прога нужна на питоне лучше если на 3.3.3 Напишите программу, которая заполняет две...

Напишите пожалуйста блок-схему для матрицы
Постройте пожалуйста блок-схему Получить , i = 1, ..., 10; j = 1, ..., 12 - целочисленную...

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

Составьте программу с применением процедуры sub . end sub
Составьте программу с применением процедуры sub ... end sub в соответствии с предложенным...

Составьте программу, делящую две обыкновенные дроби
. Составьте программу, делящую две обыкновенные дроби.

Составьте программу, складывающую две обыкновенные дроби
Помогите, пожалуйста, Составить программу, складывающую две обыкновенные дроби.

Составьте две программы в Pascale ABC с циклами For или While
№1 Составте программу для вычисления суммы чисел кратных 5 в диапазоне от 1 до 100!?? № 2...

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