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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.06.2008, 00:39   #21
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Прочитайте книгу. Там не так и сложно.

Код:
Var x, y, n1, m1: Integer;
      Mass : Array [1..10, 1..10] of Integer;
      Flag : Boolean;

Procedure Filling(m1, n1 : Integer);
Begin
  For y := 1 To n1 Do
    Begin
      Writeln('      Filling of ',y,' line');
      For x := 1 To m1 Do
        Begin
          Write('Mass[', x, ',', y,']=');
          Readln(Mass[x,y]);
        End;
      Writeln;
    End;
End;

Procedure Conclusion;
Begin
  For y := 1 To n1 Do
    Begin
      For x := 1 To m1 Do Write(Mass[x,y]:5);
      Writeln;
    End;
End;

Procedure Processing;
Begin
    For y := 1 To n1 Do
      Begin
        Flag := True;
        For x := 1 To m1 Do
        If Mass[x,y] Mod 2 = 1 Then Flag := False;
        If Flag = True Then Writeln(y);
      End;
End;

Begin
Write('Quantity of lines: '); Readln(n1);
Write('Quantity of columns: '); Readln(m1);

Writeln;
Filling(m1, n1); Writeln;
Conclusion; Writeln;
Processing;

Readln;
End.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 21.06.2008, 00:49   #22
anco
Пользователь
 
Аватар для anco
 
Регистрация: 19.06.2008
Сообщений: 15
По умолчанию

спасибо большое, пойду разбираться...что к чему
anco вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Двумерный Массив n01R Помощь студентам 9 19.12.2009 16:41
Двумерный массив... slim5 Помощь студентам 2 20.06.2008 23:16
Двумерный массив Jodu Помощь студентам 18 05.12.2007 22:44
Двумерный массив help Imperceptible Паскаль, Turbo Pascal, PascalABC.NET 25 02.03.2007 20:00