Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 04.12.2010, 17:35   #1
Mambakremen
Новичок
 
Регистрация: 07.11.2010
Сообщений: 7
Репутация: 0 (0)
Type mismatch / Pascal (Паскаль)

Задание: Дана матрица 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.
Старый 04.12.2010, 17:39   #2
Puporev
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Сообщений: 62,076
Репутация: 40854 (29401)
Лучшие ответы: 1136
Код 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;
Другие темы раздела Форум программистов Pascal. Программирование с использованием языка Pascal (Паскаль). Помощь в решении задач.
Pascal Двумерный массив.Одинаковые элементы
Дана целочисленная матрица размера M × N. Найти номер первого из ее столбцов, содержащих максимальное количество одинаковых элементов. Уважаемые,помогите решить задачу. Или хотя бы объяснить как найти кол-во одинаковых элементов(т.е если столбец 1.1.1.2.2 то будет 5) я пытался делать накопление...
Нахождение номера минимального значения Pascal
Помогите пожалуйста решить задачу в Паскале. Вот условие:Нахождение номера минимального значения в последовательности вводимых чисел.Остановить обработку при вводе признака конца - предварительно введенного пользователем числа.Тип обрабатываемых данных целые.
Старый 04.12.2010, 17:45   #3
SuPeR XaKer
Форумчанин
 
Аватар для SuPeR XaKer
 
Регистрация: 23.09.2010
Сообщений: 4,853
Репутация: 2812 (1942)
Лучшие ответы: 11
Код 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.
Так проще
Старый 04.12.2010, 18:31  [ТС]   #4
Mambakremen
Новичок
 
Регистрация: 07.11.2010
Сообщений: 7
Репутация: 0 (0)
Спасибо всем, та провтыкал я х1 написать
Старый 04.12.2010, 18:31
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
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, minj:integer; BEGIN Writeln('Vvedite kol-vo strok\stolbsov:');
aDeviLe
Turbo Pascal Turbo Pascal. Type mismatch
Здравствуйте, Задача: Определить сумму положительных элементов массива X(n), Y(m), Z(k). n≤60; m≤60; k≤70. program p2; const n=60; m=60; k=70; type mas=array of integer;
klepik
Pascal ABC Error 26: Type mismatch
P.S. Сорри за иероглифы - это кириллица в 808 кодеровке Есть { Џа®Ја*¬¬* "‘®авЁа®ўЄ* ¬*ббЁў*". ђ*§а*Ў®в*« бв. 117 Ја.: Љ®бЄЁ* Ћ«ҐЈ} Program sort_arr; Uses Crt; const N = 100; type
insolent
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
Intergalactic
Visual Basic Ошибка 13:Type mismatch
посоветуйте пожалуста решение по устранению ошибки, при выполнении кода после 24 строки выдает ошибку 13:Type mismatch Private Sub Кнопка36_Click() Dim CNN As ADODB.Connection Dim R As ADODB.Recordset Dim s As String, ra As String If MsgBox("Сохранить внесённые изменения ?",...
Yahoo
Опции темы

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

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