VPF::Help me, please! - Форум программистов

LadySun

Дата 16.5.2010, 13:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 16.5.2010

Репутация: нет
Всего: нет

Я очень плохо умею программировать, а работу надо непременно сдать! Я уже кое что сделала, но работа не закончена(точнее выполнена неверно),  помогите пожалуйста доделать или переделать программу.

Задание: Даны: n, матрица a(2nx3n). Матрица a естественным образом разбивается на 6 блоков nxm

I    II   III
IV   V    VI

Поменять местами III и IV.
Исходные данные прочитать из файла. Результат вывести в новый файл.

program dinara;
{* 1 *}
var
   n: integer;
   i: integer;
   j: integer;
   a: array[1..1] of array[1..1] of integer;
{* begin *}
begin
    readln(n);

    for i:=1 to 2*n do
        begin
             for j:=1 to 3*n do
                 begin
                      write(1);
                 end;
             writeln('');
        end;

    readln(n);
end.

Фотку с заданием прикрепила.

Присоединённый файл ( Кол-во скачиваний: 5 )

IMG_0959.jpg 493,51 Kb

Ozzя

Дата 18.5.2010, 10:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 19.7.2004

Репутация: нет
Всего: 1

http://forum.pascal.net.ru/index.php?showtopic=25086&hl=

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »