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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.01.2012, 11:35   #1
IvaN9900
Пользователь
 
Регистрация: 23.11.2011
Сообщений: 14
По умолчанию [Pascal] Заполнение странного массива.

Народ, выручайте, срочно надо решить, а я в массивах вообще не шарю. нужно только заполнение массива, думаю остальное сам смогу
Новый точечный рисунок.jpg

Последний раз редактировалось IvaN9900; 30.01.2012 в 11:53.
IvaN9900 вне форума Ответить с цитированием
Старый 30.01.2012, 12:47   #2
whatever
a.k.a. Skull
Форумчанин
 
Регистрация: 17.11.2009
Сообщений: 963
По умолчанию

Создаешь input.txt вида
Цитата:
Сообщение от input.txt
1 3 4 5 6 7 8 9 10 1
0 2 5 6 7 8 9 10 11 0
0 0 3 7 8 9 10 11 12 0
0 0 0 4 9 10 11 12 0 0
0 0 0 0 5 5 0 0 0 0
0 0 0 0 6 6 0 0 0 0
0 0 0 7 0 0 7 0 0 0
0 0 8 0 0 0 0 8 0 0
0 9 0 0 0 0 0 0 9 0
11 12 13 14 15 16 17 18 19 20
Потом так:
Код:
type
  mass=array[1..10,1..10]of integer;
var
  T:text;
  M:mass;
  i,j:integer;
begin
  assign(T,'input.txt');
  reset(T);
  i:=1;
  j:=1;
  while not EOF(T) do
    begin
      while not EOLN(T) do
        begin
          read(T,m[i,j]);
          inc(j);           //кажется в паскале можно так писать, если нет, то j:=j+1;
        end;
      readln(T);
      inc(i);
      j:=1;
    end;
  close(T);

  for i:=1 to 10 do
    begin
      for j:=1 to 10 do
        write(m[i,j],' ');
      writeln;
    end;
    readln
END.
После делаешь остальные задания.

P.S. А что в массиве странного то?
Все тривиальное просто

Последний раз редактировалось whatever; 30.01.2012 в 12:54.
whatever вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Заполнение массива случайным числом. Pascal. badname47 Паскаль, Turbo Pascal, PascalABC.NET 4 18.12.2011 18:56
заполнение массива на Си ддимочка Помощь студентам 3 02.09.2011 11:59
заполнение массива (pascal) Inferi Помощь студентам 10 16.06.2010 03:05
Заполнение массива. Небесный Общие вопросы C/C++ 3 01.09.2009 01:39
[Pascal] заполнение двумерного массива Рамик Помощь студентам 13 18.02.2009 20:08