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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.11.2014, 15:53   #1
Марфатри
 
Регистрация: 23.11.2014
Сообщений: 4
По умолчанию Помогите сделать блок-схему!

ПО ПРОГРАММЕ СОСТАВИТЬ БЛОК-СХЕМУ. И НА ВСЯКИЙ СЛУЧАЙ Я ПРИКРЕПИЛА ФОТО С ЗАДАНИЕМ
Код:
program matrica ;
 type
   matrix= array [1..3, 1..3] of integer;
var a : matrix;     
    i, j: integer; 
begin
   for i :=1 to 3 do 
      for j :=1 to 3 do 

         readln ( a [ i , j ]);  
         for i :=1 to 3 do
begin
   for j :=1 to 3 do
      write ( a [ i , j ]:4);
   writeln ;
end ;
         end.
Изображения
Тип файла: jpg 06c13ba3b1e5ea4958519bd5a4b342b8.jpg (32.7 Кб, 147 просмотров)

Последний раз редактировалось ACE Valery; 24.11.2014 в 12:02.
Марфатри вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Здраствуйте помогите сделать блок схему. minkin Помощь студентам 0 20.05.2014 16:39
помогите сделать блок-схему kolbaskin Паскаль, Turbo Pascal, PascalABC.NET 1 26.01.2014 19:38
помогите сделать блок-схему winston07 Помощь студентам 1 30.11.2013 11:19
Помогите сделать блок схему! Лёха Паскаль, Turbo Pascal, PascalABC.NET 4 24.01.2011 19:32