Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/29: Рейтинг темы: голосов - 29, средняя оценка - 4.62
0 / 0 / 0
Регистрация: 22.10.2013
Сообщений: 19
1

Нельзя преобразовать тип function(a: integer;b: integer):integer к real

08.03.2014, 22:23. Показов 5673. Ответов 1
Метки нет (Все метки)

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
unit matr1;
interface
type matr2=array[1..10] of real;
     matr3=array[1..10,1..10] of real;
     procedure sum (A:matr3;var B:matr2; n:integer);
     procedure max1 (A:matr3;var B:matr2; n:integer);
     procedure schtrich (A:matr3;var B:matr2; n:integer);
implementation
procedure sum;
var i,j:integer;
s:real;
begin
for i:=1 to n do
for j:=1 to n do
s:=s+A[i,j];
end;
procedure max1;
var i,j:integer;
max:real;
begin
for i:=1 to n do
for j:=1 to n do
if A[i,j]>Max then Max:=A[i,j];
end;
procedure schtrich;
var i,j:integer;
maxs:real;
begin
 for i:=1 to n do
for j:=1 to n do
if i=j  then
if A[i,j] > Max then Max:=A[i,j];
end;
begin
end.
Ошибка со стракой "if A[i,j] > Max then Max:=A[i,j];" Нельзя преобразовать тип function(a: integer;b: integer): integer к real


Нужно было Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над матрицами:
1. Вычисление суммы элементов в строках матрицы Аnxn.
2. Нахождение наибольшего элемента в каждом столбце матрицы Аnxn.
3. Найти наибольшее из значений элементов, расположенных в заштрихованной части
Название: Безымянный.jpg
Просмотров: 655

Размер: 7.0 Кб
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.03.2014, 22:23
Ответы с готовыми решениями:

Нельзя преобразовать тип real к integer
Выдаёт ошибку при завершении "Program1.pas(15,20): Нельзя преобразовать тип real к integer" в чём...

Нельзя преобразовать тип real к integer
program l7; var F1,F2:text; R,K:real; i:byte; begin assign(F1,'E:\file1.txt');...

Нельзя преобразовать тип real к integer
Всем привет) В процессе написание программы у меня возникла следующая проблема: Строка 24: нельзя...

Нельзя преобразовать тип real к integer
Пишет ошибку : Нельзя преобразовать тип real к integer procedure Repeat1; Const Alpha = 0.1;...

1
79 / 73 / 66
Регистрация: 11.04.2013
Сообщений: 221
08.03.2014, 22:42 2
Зачем переменную max определять как real?
Далее в строке 27 надо исправить имя переменной maxs на max и тип ее сменит на integer.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.03.2014, 22:42
Помогаю со студенческими работами здесь

Нельзя преобразовать тип real к integer
uses graphabc; begin var x,y:real; var angl:integer; x:=0; y:=0; for angl:=0 to...

Program1.pas(7) : Нельзя преобразовать тип KeyValuePair<real,integer> к real
program pomogite; var x, y: real; begin readln(x); if x=&gt;-2 and 3&gt;=x then y:=sqrt(x*x+4) ...

Program1.pas(12) : Нельзя преобразовать тип real к integer
Program Logika; var x,y,z: real; L,A,B,C:boolean; begin cls; // Вводим исходные...

Определитель 4х4 нельзя преобразовать тип real к integer
Помогите немогу понять в чом проблема написал вроде всё правильно program Kramer; uses crt; var...

Нельзя преобразовать тип array [0.100] of real к integer. как исправить?
program ex_1; uses crt; var E,Ey,Ex:array of real; z,x,y,q:array of real; N,i:integer; {x -...

При запуске в списке ошибок появилось 12: "Нельзя преобразовать тип array[1.10000] of integer к integer"
Что написано не так? {Дана последовательность натуральных чисел aj j=1...n (n&lt;=10000). Если в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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