Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
Mambakremen
Новичок
0 / 0 / 0
Регистрация: 07.11.2010
Сообщений: 7
04.12.2010, 17:35     Type mismatch
  #1
Задание: Дана матрица 4 на 4. определить минимальный элемент главной диагонали и напечатать строку в которой он находится.

Ошибка 26 Type mismatch (Несоответствие типов) выбивается в конце после then не пойму в чем проблема!

Код 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
program IDZ_2_2;
uses crt;
const
n=4;
m=4;
var
x:array[1..n,1..m] of integer;
x1:array[1..n] of integer;
i,j,tmp:integer;
min,num:integer;
begin
clrscr;
randomize;
for i:=1 to n do
 for j:=1 to m do
  x[i,j]:=random(100);
writeln;
 for i:=1 to n do
 begin
 for j:=1 to m do
 write(x[i,j]:4);
 writeln;
 end;
 writeln;
 for i:=1 to n do
 x1[i]:=x[i,i];
 for i:=1 to n do
 write(x1[i]:4);
 writeln;
   min:=x1[1];
   for i:=2 to n do
   if x[i] < min then
   begin
   min:=x[i];
   num:=i;
   end;
   writeln('Minimalbnui element glavnoi diagonali = ',min,'. On nahodits9 v ',i,' stroke');
   readkey;
   end.
AdAgent
Объявления
04.12.2010, 17:35
Puporev
Модератор
42476 / 30990 / 1910
Регистрация: 18.05.2008
Сообщений: 66,085
04.12.2010, 17:39
  #2
Код Pascal
1
2
3
4
5
6
7
 min:=x1[1];
   for i:=2 to n do
   if x1[i] < min then
   begin
   min:=x1[i];
   num:=i;
   end;
SuPeR XaKer
Форумчанин
2826 / 1956 / 13
Регистрация: 23.09.2010
Сообщений: 4,887
04.12.2010, 17:45
  #3
Код 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
Uses
 CRT;
CONST
 n=4;
var
x:array[1..n,1..n] of INTEGER;
i,j,imin,jmin:INTEGER;
begin
clrscr;
RANDOMIZE;
imin:=1;
jmin:=1;
FOR i:=1 TO n DO
begin
 FOR j:=1 TO n DO
 begin
  x[i,j]:=RANDOM(10)-3;
  WRITE(x[i,j]:4);
   if (i=j) and (x[i,j]<x[imin,jmin]) then
   begin
    imin:=i;
    jmin:=j;
   end;
 ENd;
writeln;
END;
writeln;
writeln('Minimalbnui element glavnoi diagonali = ',x[imin,jmin],'. On nahodits9 v ',imin,' stroke');
readkey;
END.
Так проще
Mambakremen
Новичок
0 / 0 / 0
Регистрация: 07.11.2010
Сообщений: 7
04.12.2010, 18:31  [ТС]     Type mismatch
  #4
Спасибо всем, та провтыкал я х1 написать
Yandex
Объявления
04.12.2010, 18:31
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 20:14. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.