Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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
Модератор
42223 / 30737 / 1800
Регистрация: 18.05.2008
Сообщений: 65,429
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
Форумчанин
2824 / 1954 / 13
Регистрация: 23.09.2010
Сообщений: 4,886
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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Pascal Выдает ошибку (type mismatch)
В Паскале АБС работает, а в Турбо паскале выдает ошибку (Type Mismatch), там где стоит Procv(A,..). Что не так? Вот задание: Программа: Program LAB8; type ta = array of real; Var i, j,...
Pascal (Паскаль) svanchez 15.12.2013 00:03
VBA Ошибка 13:Type mismatch
Ошибка 13:Type mismatch Здравствуйте,если не сложно посмотрите и скажите,что же я делаю не так?
VBA SLRqA 20.04.2013 22:08
Free Pascal Type mismatch (Несовпадение типов)
Не подскажите, в чем здесь может быть ошибка? Procedure zapoln_mass(var f: text; var arr: array of integer); Var i,k:word; Begin Reset(f); k:=0; While not eof(f) do inc(k);...
Free Pascal H@ker 21.06.2012 16:36
Turbo Pascal Ошибка Error 26:Type mismatch
program pr3; uses crt; var x,y:integer; z:real; begin clrscr; writeln('Vvedite x , y '); readln(x,y); if y<>0 and (x>y) then z:=arctan(x/y);
Turbo Pascal Dreamfactor 09.11.2011 20:13
Turbo Pascal Ошибка 26: Type mismatch
помогите исправить данную ошибку, 15/11 (выдает после Maximum(a, ) USES CRT,progr7; Type dmyarray = Array Of Integer; VAR i,j,n:integer; A:dmyarray; max, maxi, maxj,min, mini,...
Turbo Pascal aDeviLe 04.06.2011 19:03
Pascal ABC Error 26: Type mismatch
P.S. Сорри за иероглифы - это кириллица в 808 кодеровке Есть { Џа®Ја*¬¬* "‘®авЁа®ўЄ* ¬*ббЁў*". ђ*§а*Ў®в*« бв. 117 Ја.: Љ®бЄЁ* Ћ«ҐЈ} Program sort_arr; Uses Crt; const N = 100; type
Pascal ABC insolent 26.02.2010 14:57
VBA Ошибка 13 type mismatch
Помогите пожалуйста разаобаться с ошибкой в коде.Буду признателен. Ошибка 13 type mismath Public Sub zapsuk() Dim i As Integer, j As Integer, k As Integer, j1 As Integer, j2 As Integer
VBA Intergalactic 06.11.2009 17:57
Visual Basic Ошибка 13:Type mismatch
посоветуйте пожалуста решение по устранению ошибки, при выполнении кода после 24 строки выдает ошибку 13:Type mismatch Private Sub Кнопка36_Click() Dim CNN As ADODB.Connection Dim R As...
Visual Basic Yahoo 09.07.2009 10:56
Опции темы

Текущее время: 08:35. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.