Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Паскаль]матрицы, паскаль_матрицы 
V
    Опции темы
axilesa
Дата 16.7.2006, 18:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
помогите пожалуйста хоть намекните что делать((((((((((                          дана  квадратная матрица А порядка n : Получить матрицу АВ:элементы матрицыв вычисляются по формуле bij=1/i+j-1 smile 
 
PM MAIL   Вверх
Palladin
Дата 16.7.2006, 20:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Условие неверное, или ты его неправильно написал, т.к. незачем задавать квадратную матрицу Аsmile ведь она не учавствует в вычислении

вообщем вот программа по твоему условию, но ещё раз повторяю условие неверное, уточни его

Код

programm RooR;
var
i,j,k,h,n:integer;
a,b:array[1..100] of real;              
begin
Writeln('vvedite razmernost massiva');
readln(n);
for i:=1 to n do
for j:=1 to n do 
begin
write('a[',i,']=');
readln(a[i,j]);
end;

for k:=1 to n do
for h:=1 to n do
begin
b[k,h]:=1/(k+h-1);
end;
//дальше вывод по дефолту, массив b сформирован




 


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
axilesa
Дата 24.7.2006, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Условие правильное!(я девушка)Спасибо что откликнулся!
 smile

Добавлено @ 16:35 
только там написано элементы матрицы В вычисляються по формуле 
PM MAIL   Вверх
Damarus
Дата 24.7.2006, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Awaiting Authorisation
Сообщений: 671
Регистрация: 6.5.2006

Репутация: 7
Всего: 29
Цитата(RooR @  16.7.2006,  21:57 Найти цитируемый пост)
Условие неверное, или ты его неправильно написал, т.к. незачем задавать квадратную матрицу А ведь она не учавствует в вычислении


Цитата(axilesa @  24.7.2006,  17:33 Найти цитируемый пост)
Условие правильное!(я девушка)Спасибо что откликнулся!


Возможно условие выглядит так:

Цитата(axilesa @  16.7.2006,  19:42 Найти цитируемый пост)
дана  квадратная матрица А порядка n : Получить матрицу АВ:элементы матрицыв вычисляются по формуле bij=1/i+j-1


т.е.: дана квадратная матрица А порядка n, матрица B вычисляется по формуле B[i][j] = 1 / i + j - 1, получить матрицу C = A * B.
   

Это сообщение отредактировал(а) Damarus - 24.7.2006, 17:42
PM MAIL ICQ Jabber   Вверх
axilesa
Дата 24.7.2006, 19:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
да именно так))))))

Добавлено @ 19:10 
и как  же ее решить?????????
 smile  
PM MAIL   Вверх
Palladin
Дата 24.7.2006, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
О дак понятно ща напишу smile  


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Palladin
Дата 24.7.2006, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Код

Program RooR;
var
a:array[1..100,1..100] of integer;
b,c:array[1..100,1..100] of real;
i,j,n:integer;
begin
Writeln('vvedite poryadok matricbi');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
Write('a[',i,j,']=');
Readln(a[i,j]);
end;
 for i:=1 to n do
 for j:=1 to n do
 begin
 b[i,j]:=1/i+j-1;
 end;
  for i:=1 to n do
  for j:=1 to n do
   begin
   c[i,j]:=a[i,j]*b[j,i];
   end;
.............. // тут вывод незнаю просто что выводить матрицу с или все ;-) 
end.


Вроде всё парвильно, но единственное это умножение матрицsmile я точно не помню как их перемножать нужно smile 

Если не правильно то напиши как перемножать нужно правильно,я код подправлю 


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
axilesa
Дата 24.7.2006, 20:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо большое ты меня спас))))))))))) 
PM MAIL   Вверх
Palladin
Дата 24.7.2006, 20:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
А всё вспомнилsmile))) вот такой вот код будет правильным

Код

Program RooR;
var
a:array[1..100,1..100] of integer;
c:array[1..20,1..20] of real;
b:array[1..20,1..20] of real;
i,j,n,k:integer;
t:real;
r:integer;
begin
Writeln('1) Vbichislenie');
Writeln('2) Uslovie');
Writeln('3) Avtor');
Writeln('4) Vbihod');
writeln;
writeln;
writeln;
Writeln('Vvedite nomer jelaemogo punkta i najmite ENTER!!!!!');
Readln(r);

case r of
1:
begin
t:=0;
Writeln('vvedite poryadok matricbi');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
Write('a[',i,',',j,']=');
Readln(a[i,j]);
end;
 for i:=1 to n do
 for j:=1 to n do
 begin
 b[i,j]:=1/i+j-1;
 end;
  for i:=1 to n do
  for j:=1 to n do
   begin
  for k:=1 to n do
    begin
     t :=t+a[i,k]*b[k, j];
    end;
   c[i,j]:=t;
   t:=0;
   end;
   for i:=1 to n do
   begin
    for j:=1 to n do
   begin
   write(' ',c[i,j]:2:2);
   end;
   Writeln;
   end;
   Readln;
   Readln;
   Writeln;
   Writeln('vbichislenie okoncheno!! Vvedite nomer jekaemogo punkta');
   Readln(r);
   end;
2:
   begin
   Writeln('Dana kvadratnaya matrica A poradka n');
   Writeln('Poluchitb matricu AB');
   Writeln('Esli matrica B vbichislyatsa po formule b[i,j]=1/i+j-1 ');
   Readln;
   Writeln;
   Writeln('Vvedite nomer jelaemogo punkta!!!!!!!!!');
   Readln(r);
   end;

3: begin
   Writeln('Avtorom dannoy programbi yavlyaets Kylechova Natalya');
   Writeln('Gruppa A22');
   Writeln('Zadanie 700A');
   Readln;
   Writeln;
   Writeln('vvedite nomer jelaemogo punkta!!!!!!!!!');
   Readln(r);
   end;



4:
end;
end.


Добавлено @ 20:14 
Протести хотьsmile 

P.S. Пылкая какая smile  smile  smile      

Последняя поправка(время 22:53 по Гомельскому времени(по московскому 23:53)) Щас уверен что всё работает, на процентов 99 smile    

Это сообщение отредактировал(а) RooR - 25.7.2006, 19:13


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
axilesa
Дата 25.7.2006, 18:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
большое спасибо за помощь)это лучший форум!!!!!!! 
PM MAIL   Вверх
trim74
Дата 15.6.2010, 20:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Спасибо большое у меня такое же задание в лабе.

Но вот одно но 
зачем вводить k
  for k:=1 to n do

если она не используется я сделал с i,j и все сработала.  smile 



Еще раз спс
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1169 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.