Άλλα μηνύματα του μέλους mi3s σε αυτό το thread

mi3s · 27-12-09

Μα το θέμα είναι ότι όλες οι ασκήσεις που έχει και στο βιβλίο γραμμένες δεν έχουνε δηλωμένες μεταβλητές και όμως λειτουργουσαν τουλαχιστον αυτές που κάναμε στο εργαστήριο.

Βασικά το δοκίμασα και αυτό που είπες τώρα τα έβαλα όλα real αλλά πάλι βγάζει το ίδιο error.

mi3s · 27-12-09

Δεν χρησιμοποιούμε την δήλωση μεταβλητών αν και το είπαμε.Έχω μια υποψία ότι αυτό το πρόγραμμα που χρησιμοποιώ τώρα είναι για διαφορετική fortran.Από την σχολή μας έχουνε δώσει το digital visual fortran αλλά το έχω εγκαταστήσει σε άλλον υπολογιστή.Eδώ τώρα έχω microsoft visual studio 08 μαζί με ένα pgi fortran compiler.
Oρίστε όλο το πρόγραμμα

Code:

open(unit=1,file='dedomena.txt')
open (unit=2,file='apotelesmata.txt')
read(1,*)n,v
dimension p(50)
call pinakas(p,n,v,r)
write(2,3)(p(i),i=1,n)
3 format (3f4.1)
write(2,4)r
4 format (E4.2)
stop
close(1)
close(2)
end 


subroutine pinakas(p,n,v,r)
dimension p(50)
p1=0
do i=2,n
p(i)=p(i-1)+v
end do
r=0
do i=1,n
r=r+(p(i)**2)
end do

return
end

Άλλα μηνύματα του μέλους mi3s σε αυτό το thread

mi3s

Εκκολαπτόμενο μέλος

mi3s

Εκκολαπτόμενο μέλος

Λοιπές Σελίδες