|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.01.2010, 11:03 | #1 |
Пользователь
Регистрация: 02.01.2010
Сообщений: 11
|
Правильно или нет вот в чём вопрос но ошибок нет...
Значит дали нам задание:Дана действительная матрица размером 8х6. Определить b1.....b8, равные соответственно произвидениям элементов строк. Ну мы его решили такими способами :
PROGRAM Z5 INTEGER , PARAMETER::N=8,M=6 REAL A(N,M),B(N) INTEGER I,J OPEN(1,FILE='Z5.TXT') READ (1,*)((A(I,J),J=1,M),I=1,N) B(I)=1.0 DO I=1,N DO J=1,M B(I)=B(I)*A(I,J) END DO END DO PRINT 1 ,B;WRITE(1,1) B 1 FORMAT (2X,'PROIZVIDENIE B'/4F10.4) END PROGRAM Z5 и PROGRAM Z5 INTEGER , PARAMETER::N=8,M=6 REAL A(N,M),B(N) INTEGER I,J OPEN(1,FILE='Z5.TXT') READ (1,*)((A(I,J),J=1,M),I=1,N) B(I)=1.0 DO I=1,N DO J=1,M B(I)=PRODUCT(A) END DO END DO PRINT 1 ,B;WRITE(1,1) B 1 FORMAT (2X,'PROIZVIDENIE B'/4F10.4) END PROGRAM Z5 Обе программы работают без ошибок но B(I)=1.0 мне говорят что я поставил не туда.....я в замешательстве куда её нужно ставить . Помогите кто знает в чём ошибка. Если она вообще есть ..... |
10.01.2010, 11:23 | #2 |
FORTRAN programmer
Форумчанин
Регистрация: 08.12.2009
Сообщений: 153
|
Код:
В обеих программах нужно переставить B(I) так: Код:
Последний раз редактировалось Serebro; 10.01.2010 в 11:26. |
10.01.2010, 13:55 | #3 |
Пользователь
Регистрация: 02.01.2010
Сообщений: 11
|
Спасибо за помощь и книгу) книга очень хорошая)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
правильно решена или нет?? | durachok) | Помощь студентам | 1 | 27.12.2008 08:23 |
правильно или нет | FreeZZZ | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 26.12.2008 09:39 |
решена правильно или нет??? | durachok) | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 25.12.2008 15:24 |
Посоветуйте ,правильно или нет | Михаил Юрьевич | Общие вопросы Delphi | 2 | 14.06.2008 22:02 |
Есть или нет... вот в чём вопрос...))) | ZhekON | Общие вопросы Delphi | 9 | 24.09.2007 20:33 |