Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 835

/ вопрос открыт /

Приветствую, уважаемые эксперты!
Обьясните все по порядку, как работает программа...Так чтобы доступно обьяснить преподу...Заранее спасибо!!!

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Приложение:
  1. program gf;
  2. uses wincrt;
  3. Var I, J, K, N,c : Integer; A : Array [1..10, 1..10] Of Integer;
  4. Begin
  5. k := 1;
  6. c := 1;
  7. for i := 1 to 4 do
  8. for j := 1 to 7 do
  9. begin
  10. if ((c mod 2) <> 0) then
  11. begin
  12. a[i,j] := k;
  13. k := k + 1;
  14. end;
  15. c := c + 1;
  16. end;
  17. For I := 1 To 4 Do
  18. Begin
  19. WriteLn;
  20. For J := 1 To 7 Do Write(A[I, J]:4);
  21. End
  22. End.


Николай Иванович Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Николай Иванович (статус: Посетитель)
Вопрос отправлен: 25 мая 2009, 11:53
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Ну типа примерно так:

program gf;
 
uses
  wincrt; // <---- не используется
 
Var
  I, J, K, N, c : Integer;
  A : Array [1..10, 1..10] Of Integer;
 
Begin
  k := 1;
  c := 1;
 
  for i := 1 to 4 do // строки матрицы
    for j := 1 to 7 do // столбцы матрицы
      begin
        if ((c mod 2) <> 0) // Если "с" нечётное, то...
          then begin
                 a[i, j] := k; // присвоение каждому второму ПО СЧЁТУ элементу матрицы значений 1, 2, 3...
                 // Остальные элементы остаются неопределёнными (с мусором).
                 k := k + 1;   // k = 2, 3, 4...
               end; // if
 
        c := c + 1; // инкремент "с"
      end; // for for
 
  For I := 1 To 4 Do // вывод элементов матрицы
    Begin
      WriteLn;
 
      For J := 1 To 7 Do
        Write(A[I, J]:4);
    End; // for
End.

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 25 мая 2009, 13:24


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 25 мая 2009, 11:59; участников в обсуждении: 1.
Вадим К

Вадим К (статус: Академик), 25 мая 2009, 11:59 [#1]:

Я думаю, что это может получиться только у одного человека - Вашего преподавателя. А у нас это может просто случайно получиться. Да и то, маловероятно.
Галочка "подтверждения прочтения" - вселенское зло.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 17 февраля 2020, 03:06
Выполнено за 0.03 сек.
Рейтинг@Mail.ru