Переделать программу :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Переделать программу

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки

Yulka04

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Помогите пожалуйста переделать программу, написанную на ФОРТРАНе
Из subroutine в function

program NOK
integer A,B,F,P,x,y
Print ' (A\)' , ' A= ' ; read*,A
Print ' (A\)' , ' B= ' ; read*,B
x=A
y=B
call NOD(x,y,F)
P=A*B/F
Print*, ' NOK= ' , P
end

subroutine NOD(m,n,l)
integer m,n,l
do while (m/=n)
if (m>n) then
m=m-n
else
n=n-m
endif
enddo
l=n
end subroutine NOD

Всего записей: 2 | Зарегистр. 21-12-2013 | Отправлено: 12:33 21-12-2013

A_V

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

на фортран не писал, но наверное как-то так:

Код:

program NOK
integer A,B,F,P,x,y
Print ' (A\)' , ' A= ' ; read*,A
Print ' (A\)' , ' B= ' ; read*,B
x=A
y=B
F= NOD(x,y)
P=A*B/F
Print*, ' NOK= ' , P
end

function NOD(m,n)
integer m,n,l
do while (m/=n)
if (m>n) then
m=m-n
else
n=n-m
endif
enddo
l=n
return l
end function NOD

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 17:40 21-12-2013 | Исправлено: A_V, 17:44 21-12-2013

akaGM

Platinum Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Yulka04

работать, конечно, будет...

program NOK
implicit none

integer NOD
external NOD
...
end

integer function NOD(m,n)
...

return l // а это неверно...
надо вот так:
NOD = l

и вообще фортран здесь:
http://forum.ru-board.com/topic.cgi?forum=33&topic=7860#1

Всего записей: 24116 | Зарегистр. 06-12-2002 | Отправлено: 18:06 21-12-2013

Yulka04 Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Большое спасибо!!!
	Всего записей: 2 \| Зарегистр. 21-12-2013 \| Отправлено: 19:59 21-12-2013

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Переделать программу

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC