Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
darankos2
0 / 0 / 2
Регистрация: 20.01.2013
Сообщений: 81
1

Исправить ошибку "Ожидался другой тип"

10.06.2013, 17:26. Просмотров 367. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program z;
var a:array [1..7,1..4] of integer;
    b: array [1..4,1..7] of integer;
    max,i,j:integer;
    begin
    max:=b[1];
    writeln('vvedite matricy');
    for i:=1 to 7 do
    for j:=1 to 4 do
    read (a[i,j]);
 
    for i:=1 to 7 do  begin
    for j:=1 to 4 do
    b[j][i]:=a[i][j];
    end;
 
    for i:=1 to 4 do begin
    for j:=1 to 7 do begin
    write(' ',b[i,j]); end; writeln;
    end;
    end.
//в строке max:=b[1]; пишет ошибку,тчо не оверфлоу а ожидаеться другой тип ...
п.с по заданию нада найди максимальный элемент и записать его в первый элемент

Добавлено через 2 минуты
Pascal
1
2
3
4
5
for i:=1 to 4 do begin
   for j:=1 to 7 do begin
   if (b[max]>b[i][j]) then b[1]:=b[max];
 
   end;
правильно?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2013, 17:26
Ответы с готовыми решениями:

Ошибка "Ожидался порядковый тип"
Есть код - Program Btw; var n:integer; b, i:real; begin b:=1; read (n); if n mod...

Программа выдает ошибку "встречено 'DO' а ожидался идентификатор"
Здравствуйте! Помогите с кодом, почему выдает ошибку встречено 'DO' а ожидался идентификатор? Как...

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки
дан текст.написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща",...

Выдает ошибку " Нельзя преобразовать тип real к integer"
Столкнулся с такой проблемой, что когда начинаю выводить процедуры в конце там где Vvod_mas(m)...

Исправить ошибку "Access violation"
Итак, возникло "access violation" :-( Я новичок, помогите, пожалуйста! ar a :array of integer;...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26340 / 17671 / 6998
Регистрация: 22.10.2011
Сообщений: 31,094
Записей в блоге: 6
10.06.2013, 17:32 2
У тебя матрица, а не массив, должно быть 2 индекса:
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
var
   a : array [1..7, 1..4] of integer;
   b : array [1..4, 1..7] of integer;
   i, j : integer;
   maxi, maxj : integer;
begin
   for i:=1 to 7 do
      for j:=1 to 4 do
      begin
         Read(a[i,j]);
         b[j, i] := a[i, j];
      end;
 
   maxi := 1; maxj := 1;
   for i:= 1 to 4 do
      for j:= 1 to 7 do
      if b[i,j] > b[maxi, maxj] then
      begin
         maxi := i; maxj := j;
      end;
 
   b[1, 1] := b[maxi, maxj];
   { и выводи свою матрицу }
 
   readln;
end.
1
darankos2
0 / 0 / 2
Регистрация: 20.01.2013
Сообщений: 81
10.06.2013, 17:47  [ТС] 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
31
program z;
var a:array [1..7,1..4] of integer;
    b: array [1..4,1..7] of integer;
    max,maxi,maxj,i,j:integer;
    begin
     maxi := 1; maxj := 1;
    writeln('vvedite matricy');
    for i:=1 to 7 do
    for j:=1 to 4 do
    read (a[i,j]);
 
    for i:=1 to 7 do  begin
    for j:=1 to 4 do
    b[j][i]:=a[i][j];
    end;
 
 
   for i:= 1 to 4 do
   for j:= 1 to 7 do
   if b[i,j] > b[maxi, maxj] then
   begin
   maxi := i; maxj := j;
   end;
 
   b[1, 1] := b[maxi, maxj];
 
   for i:=1 to 4 do begin
    for j:=1 to 7 do begin
    write(' ',b[i,j]); end; writeln;
    end;
end.
итоговый результат. Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2013, 17:47

Ошибка "Program1.pas(7) : Встречено 'uses', а ожидался оператор"
Помогите пожалуйста, выводит ошибку Program1.pas(7) : Встречено 'uses', а ожидался оператор, никак...

Ошибка: ожидался символ "точка с запятой"
uses crt; const QSize = 8; { Размер очереди (сколько в неё можно положить элементов) } var Q :...

Базовый тип "обьект" содержит - поля:" вектор, его размер и идентификатор в символьном виде"- методы:" введение вектора, выведение вектора, определени
Базовый тип "обьект" содержит - поля:" вектор, его размер и идентификатор в символьном виде" -...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru