Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.03.2011, 19:48   #1
--Sashok--
Пользователь
 
Регистрация: 17.02.2011
Сообщений: 76
Восклицание Двумерные массивы!

1.Создайте двумерный массив b действительных чисел с
пятью строками и пятью стовпцями.Выведите массив на
экран в виде таблицы, задайте формат вывода
чисел с двумя числами после точки.
Определите максимальный элемент и его индекс!



Код:
program Matrix;
var b:array[1..5,1..5]of real;
    i,j:integer;
    max:record x,y:integer; end;
begin
  for i:= 1 to 5 do begin
  for j;= 1 to 5 do
     begin
        b[i,j]:=random;
        write(b[i,j]:10:2);
     end;
writeln
   end;
  max.x:=1; max.y:=1;
  for i:= 1 to 5 do
   for j:=1 to 5 do
    if b[i,j]> b[max.x,max.y] then begin max.x:=i;max.y:=j; end;
   writeln('max=', b[max.x,max.y]:10:2);
  writeln('index=', max.x:10:2, max.y:10:2);
readln;
end.

Что то ошибку выдает....Помогите! Это надо сделать в Borland Delphi.Заранее спасибо!

Последний раз редактировалось --Sashok--; 25.03.2011 в 19:49. Причина: Не правильно
--Sashok-- вне форума Ответить с цитированием
Старый 25.03.2011, 19:56   #2
New man
Форумчанин
 
Регистрация: 24.01.2011
Сообщений: 774
По умолчанию

Код:
program Matrix;
{$APPTYPE CONSOLE}
var b:array[1..5,1..5]of real;
    i,j:integer;
    max:record x,y:integer; end;
begin
  for i:= 1 to 5 do begin
  for j:= 1 to 5 do
     begin
        b[i,j]:=random;
        write(b[i,j]:10:2);
     end;
writeln
   end;
  max.x:=1; max.y:=1;
  for i:= 1 to 5 do
   for j:=1 to 5 do
    if b[i,j]> b[max.x,max.y] then begin max.x:=i;max.y:=j; end;
   writeln('max=', b[max.x,max.y]:10:2);
  writeln('index=', max.x:10:2, max.y:10:2);
readln;
end.
a.k.a. Angelicos Phosphoros
Мой сайт
New man вне форума Ответить с цитированием
Старый 27.03.2011, 19:24   #3
--Sashok--
Пользователь
 
Регистрация: 17.02.2011
Сообщений: 76
По умолчанию

Код:
program Matrix;
{$APPTYPE CONSOLE}
var b:array[1..5,1..5]of real;
    i,j:integer;
    max:record x,y:integer; end;
begin
  for i:= 1 to 5 do begin
  for j:= 1 to 5 do
     begin
        b[i,j]:=random;
        write(b[i,j]:10:2);
     end;
writeln
   end;
  max.x:=1; max.y:=1;
  for i:= 1 to 5 do
   for j:=1 to 5 do
    if b[i,j]> b[max.x,max.y] then begin max.x:=i;max.y:=j; end;
   writeln('max=', b[max.x,max.y]:10:2);
  writeln('index=', max.x:10:2, max.y:10:2);
readln;
end.
ОШИБКА ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!!
--Sashok-- вне форума Ответить с цитированием
Старый 27.03.2011, 20:19   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
writeln('index=', max.x:10, max.y:10);
max у тебя содержит целочисленные поля.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 28.03.2011, 11:11   #5
--Sashok--
Пользователь
 
Регистрация: 17.02.2011
Сообщений: 76
По умолчанию

А возможно ли сделать эту задачку без рекорд??.Ато училка кричит что мы такое еще не учили. =(
--Sashok-- вне форума Ответить с цитированием
Старый 28.03.2011, 12:00   #6
New man
Форумчанин
 
Регистрация: 24.01.2011
Сообщений: 774
По умолчанию

скажи что дополнительно занимался
a.k.a. Angelicos Phosphoros
Мой сайт
New man вне форума Ответить с цитированием
Старый 29.03.2011, 17:51   #7
--Sashok--
Пользователь
 
Регистрация: 17.02.2011
Сообщений: 76
По умолчанию

Неа я серьезно. =( блин ппц она сказала что 2-йку мне поставит!ппц. чтож делать?
--Sashok-- вне форума Ответить с цитированием
Старый 14.04.2011, 12:19   #8
--Sashok--
Пользователь
 
Регистрация: 17.02.2011
Сообщений: 76
По умолчанию

Помогите доделать тут уже поччти все сделано! надо
--Sashok-- вне форума Ответить с цитированием
Старый 14.04.2011, 12:53   #9
New man
Форумчанин
 
Регистрация: 24.01.2011
Сообщений: 774
По умолчанию

maxx,maxy:integer;
a.k.a. Angelicos Phosphoros
Мой сайт
New man вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
двумерные массивы Nekras Помощь студентам 1 13.02.2011 18:26
Двумерные массивы... Васильева Зинаида Помощь студентам 4 03.12.2010 00:34
Двумерные массивы... BarSenok Паскаль, Turbo Pascal, PascalABC.NET 25 03.05.2010 00:11
двумерные массивы student2009 Паскаль, Turbo Pascal, PascalABC.NET 3 02.06.2009 09:47
двумерные массивы Кирилл17 Помощь студентам 2 20.12.2008 01:33