[es] - Prebacivanje koda iz Jave u Fortran

biske86
Ivan Biševac

Član broj: 62435
Poruke: 980
*.dynamic.isp.telekom.rs.

+39 Profil

^{05.02.2011. u 15:59 - pre 174 meseci}

Brat od strica me pita da mu uradim neke zadatke u fortranu treba mu za seminarski. Ja pogledam ono ima 3 zadatka i mnogo su prosti, neka matematika. E sad ja ne znam Fortran ali znam Javu. Uradim taj zadatak u javi i proverim na papiru rešenje i podudara se. Međutim posle sam uzeo neke tutorijale na internetu i začas naučio sintaksu Fortrana, nije teško slično Paskalu koji znam. Interesuje me da li neko od vas ko se bavi Java programiranjem zna i Fortran pa da mi pogogne da uradim ove zadatke. Evo jednog zadatka:
Ako je x<4 onda treba y da racunamo po formuli:
y=a*Math.pow(x, 2)+4*a-b;

a ako ne onda se računa po formuli:

Ovako sam to uradio u javi

Code (java):

import java.util.Scanner;

public class SeminarskiRad1 {

     public static void main(String[] args) {

          double a, b, x, y, suma=0;

          int n;

          Scanner ulaz=new Scanner(System.in);

          System.out.println("Unesite vrednost za a:");

          a=ulaz.nextDouble();

          System.out.println("Unesite vrednost za b:");

          b=ulaz.nextDouble();

          System.out.println("Unesite vrednost za x:");

          x=ulaz.nextDouble();

          System.out.println("Unesite vrednost za n:");

          n=ulaz.nextInt();

          if (x<4){

               y=a*Math.pow(x, 2)+4*a-b;

          }

          else

          {

               for (int j=2; j<=n; j++){

                    suma=suma+Math.pow((j+a/5), (a/b));               

               }

               y=(a*x)+(b/3)*suma;

          }

          System.out.println("y= "+y);

     }

}

A ovko u fortranu:

Code:

program zadatak1
real a, b, x, y, suma;
integer n;

write (*,*) 'Unesite a:'
read (*,*) a
write (*,*) 'Unesite b:'
read (*,*) b
write (*,*) 'Unesite x:'
read (*,*) x
write (*,*) 'Unesite n:'
read (*,*) n

suma=0
if (x<4) then
   y=a*(x**2)+4*a-b
else
   do 10 j=2, n
      suma=suma+(j+a/5)**(a/b)
   end do
   y=(a*x)+(b/3)*suma
end if

write (*,*) 'y=', y

stop
end

Brat je odneo seminarski profesoru i profa je rekao da ovo ima mnogo koda i da to može da se uradi u par redova koda. Jel može neko da mi pomogne da napišem ispravan fortran program?

http://biske.rs

Prikačeni fajlovi

formula.png - 12.65k

Odgovor na temu