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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 20.01.2017, 15:20   #1
users1
Пользователь
 
Регистрация: 12.01.2017
Сообщений: 19
По умолчанию Pascal Получить действительную квадратную матрицу порядка 8, элементами которой являются числа а1, а2,....а64

Помогите пожалуйста решить задачу под а

Даны действительные числа а1, а2,....а64. Получить действительную квадратную матрицу порядка 8, элементами которой являются числа а1, а2,....а64

вот как у меня

Код:
program p2;

uses
crt;

const
KOL_STROK = 8;
KOL_STOLB = 8;


var
masDan: array[1..KOL_STROK, 1..KOL_STOLB] of real;
vvodProv: char;
i, j: byte;

begin
writeln('Выберите способ заполнения ввода A- автоматически, R- руч');
readln(vvodProv);

if(vvodProv = 'A') then
begin
for i := 1 to KOL_STROK do
begin
for j := 1 to KOL_STOLB do
begin
masDan[i, j] := random(21) - 10 - random;
write(masDan[i, j]:6:2, ' ');
end;
writeln();
end;
end
else if (vvodProv = 'R') then
begin
writeln('вводите значения');
for i := 1 to KOL_STROK do
begin
for j := 1 to KOL_STOLB do
read(masDan[i, j]);
writeln();
end;
end;

writeln('-------------------------------------------------------');
for i := 1 to KOL_STROK do
begin
for j := 1 to KOL_STOLB do
if j mod 2 <> 0 then
Write(masDan[i, j]:6:2, ' ')
else
Write(masDan[KOL_STROK - i + 1, j]:6:2, ' ');
writeln();
end;
end.
Проблема в том что изначально дан одномерный массив

Последний раз редактировалось Alex11223; 20.01.2017 в 15:40.
users1 вне форума
Старый 20.01.2017, 15:34   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Код:
var a: array[1..64];   b:  array[1..8,1..8];

  for i:=1 to 64 do b[((i-1) div 8)+1,((i-1) mod 8)+1]:=b[i];
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обработать матрицу, элементами которой являются случайные значения функции. не могу разобраться с курсовой nastya_love Паскаль, Turbo Pascal, PascalABC.NET 14 31.05.2013 02:11
Получить действительную матрицу (Pascal) Gamst Помощь студентам 2 24.06.2012 11:56
Даны действительные числа, олучить действительную квадратную матрицу порядка 8, элементы - числа расположенные по схеме Black_Limbo Помощь студентам 0 22.04.2012 17:06
Получите целочисленную квадратную матрицу того же порядка, в которой элемент равен единице Makavelli Microsoft Office Word 17 19.12.2011 19:07
фортран, ввести квадратную матрицу 4-го порядка ,элементы которой заданы для ввода построчно slepen346 Помощь студентам 0 09.12.2008 18:58