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

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

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

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

#   

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


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

Подробнее »

Вопрос # 6 166

Раздел: Лабораторный практикум » Pascal
/ вопрос закрыт /

Здравствуйте, эксперты!
Составьте, пожалуйста, блок-схему к программе.

Приложение:
  1. Program massiv;
  2. Uses crt;
  3. Const n=3;
  4. Var a:array[1..n,1..n] of byte;
  5. I,j,k:byte;
  6. Begin clrscr;
  7. K:=0;
  8. For i:=1 to n do
  9. Begin
  10. For j:=1 to n do
  11. Begin
  12. Inc(k,2);
  13. A[I,j]:=k;
  14. Write(a[I,j]:4);
  15. End;
  16. Writeln;
  17. End;
  18. Readln;
  19. End.


Мамонова Елена Николаевна Вопрос закрыт (ответы не принимаются, мини-форум закрыт)

Вопрос задала: Мамонова Елена Николаевна (статус: Посетитель)
Вопрос отправлен: 27 мая 2012, 23:18
Состояние вопроса: закрыт, ответов: 0.


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

Всего сообщений: 1; последнее сообщение — 28 мая 2012, 10:26; участников в обсуждении: 1.
min@y™

min@y™ (статус: Доктор наук), 28 мая 2012, 10:26 [#1]:

Нарисуй по аналогии с предыдущей схемой.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

28 мая 2012, 21:04: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором DNK

26 июня 2012, 12:50: Вопрос закрыт (решение принял DNK): Видимо уже никто не нарисует. И больно надо было!..

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 31 октября 2025, 06:57
Выполнено за 0.02 сек.