1. Πόσος είναι ο όγκος κυλίνδρου με ακτίνα βάσης 7.7m και ύψος 19.6m
(π=3.14);
β. 3648.94376
m^2 (σωστή)
2. Πόση είναι η κεντρομόλος δύναμη που ασκείται σε ένα σώμα
μάζας 10kg
ακτίνα τροχιάς 12m και περίοδο 5sec; (π=3.14)
α. 189.30432
Ν (σωστή)
3. Πόσο είναι το αποτέλεσμα στη Fortran της διαίρεσης 14346/64;
β. 224 (σωστή)
#2#
1. Πώς είναι η εκθετική μορφή του αριθμού 0.0000734;
γ. 7.34Ε-5 (σωστή)
2. Πόση είναι η εφαπτομένη των 53 μοιρών;
δ. 1.327044822 (σωστή)
3. Ποιός είναι ο μεγαλύτερος αριθμός τύπου real που μπορούμε
να χρησιμοποιήσουμε στη fortran;
γ.
2.0e38 (σωστή)
#3#
1. Βάλτε σε σειρά τις
ακόλουθες εντολές με βάση την προτεραιότητα εντολών:
1 (Αριθμητικές πράξεις), 2 (Λογικοί τελεστές), 3 (Ύψωση σε δύναμη), 4 (Τελεστές σχέσεις)
a. 3-1-4-2 (σωστή)
2. Ποιες από τις παρακάτω
εκφράσεις είναι λογικοί τελεστές;
1 (.and.), 2 (.or.), 3 (.eq.), 4 (.lt.)
b.
1-2
(σωστή)
3. Να υπολογίσετε το άθροισμα 1+2+3+...+100
c.
5050 (σωστή)
#4#
1. Ποιος είναι ο όρος της ακολουθίας 2,4,8,16... που είναι μικρότερος
του 10000;
c.
8192 (σωστή)
Κώδικας για την Άσκηση:
program geomproodos
implicit none
integer k
k=2
dowhile (k.le.10000)
print*, k
k=2*k
enddo
stop
end
2. Τι κάνει η εντολή goto 10;
d.
Πηγαίνει στη
γραμμή στην οποία υπάρχει στο συγκεκριμένο label (σωστή)
3.
Πόσες
επαναλήψεις γίνονται στην εντολή do n=100,0,-2;
b.
51 (σωστή)
## 5 ##
1. Ποιος είναι ο όρος της ακολουθίας 2,4,8,16... που είναι μικρότερος
του 10000;
c.
8192 (σωστή)
Κώδικας για την Άσκηση:
program geomproodos
implicit none
integer k
k=2
dowhile (k.le.10000)
print*, k
k=2*k
enddo
stop
end
2. Τι κάνει η εντολή goto 10;
d.
Πηγαίνει στη
γραμμή στην οποία υπάρχει στο συγκεκριμένο label (σωστή)
3.
Πόσες
επαναλήψεις γίνονται στην εντολή do n=100,0,-2;
b.
51 (σωστή)
%% 6 %%
1. Ποια από τις παρακάτω μεταβλητές είναι έγκυρη;
c.
ING(3,J) (σωστή)
2. Πού τοποθετείται η εντολή DIMENSION μέσα στο πρόγραμμα;
a. κάτω απ’ το PROGRAM στις δηλώσεις μεταβλητών (σωστή)
3. Ποιες τιμές του πίνακα θα δώσει η παρακάτω εντολή DATA;
Integer A(3,3)
Data A/3*1,3*2,3*3/
Data A/3*1,3*2,3*3/
a. A(1,1)=A(2,1)=A(3,1)=1
A(1,2)=A(2,2)=A(3,2)=2
A(1,3)=A(2,3)=A(3,3)=3 (σωστή)
A(1,2)=A(2,2)=A(3,2)=2
A(1,3)=A(2,3)=A(3,3)=3 (σωστή)
~~~~~~~~~ 7 ~~~~~~~~~~~~~~~
1. Ποια ή ποιες
από τις παρακάτω εντολές είναι λάθος;
1. open
(1,file=’data.in’)
2. open
(3,file=’outputs’)
3. open
(1.5,file=’data.in’)
4. open
(3,file=’’ouptputs’’)
d.
3,4 (σωστή)
2. Ποια από τις
παρακάτω εντολές είναι ισοδύναμη με την: print*,’O ogkos tou kylindrou einai’,ogkos
a.
write
(*,*)’O ogkos tou kylindrou einai’,ogkos (σωστή)
3. Πόσα
δεδομένα έχει το data3 στο παρακάτω πρόγραμμα;
program
dedomena
dimension totals(10)
open (4, file= ‘data3’)
tot=0.0
do 200 k=1,10
read (*,*) num1,num2,num3
tot=num1+num2+num3
write(4,*) ‘To athroisma einai=’,tot
200
continue
rewind (4)
grntot=0.0
do 300 L=1,10
read (4,*) totals (L)
grntot=grntot+totals (L)
300
continue
write (*,*) ‘To sinoliko athroisma einai
iso=’grntot
stop
end
c.
10
(σωστή)
^^^^^^^^^^ 8 ^^^^^^^^^^^^^^^^^
1.
Που πρέπει να τοποθετούνται τα σχόλια των αποτελεσμάτων
σε μια εντολή WRITE με FORMAT;
d.
μέσα στην ίδια τη FORMAT ή μέσα σε μια εντολή WRITE/PRINT
με την προϋπόθεση ότι η FORMAT
χρησιμοποιεί το Aw
(σωστό)
2.
Τι είναι το Ι5 του ακόλουθου κώδικα;
read (*,6) I5
6 format (15)
a.
Το όνομα μιας ακέραιας μεταβλητής (σωστό)
3. Τι πρέπει να προσθέσουμε στην κενή γραμμή ώστε στο ακόλουθο πρόγραμμα αυτό το αρχείο data.in πρώτα να γράφεται και μετά να διαβάζεται;
program io2
data ia1,ib1,ic1/408, -20, -1080/
open(4,file='dataio1.out')
open(3,file='dataio1.in')
write(3,35) IA1, IB1, IC1
read(3,35) IA,IB,IC
35 FORMAT(2I4,3x,I8)
write(4,40) IA,IB, IC
40 format(5x,i5,2x,i8,//,15x,i10)
close(3)
close(4)
stop
end
a. rewind (3) (σωστό)
----------------------------- 9----------------------------
1. Πως είναι στη Fortran ο μιγαδικός αριθμός 5.5+7i ;
c. W=(5.5,7) (σωστή)
2. Ο αριθμός x=4.834D0 με ποιον από τους παρακάτω αριθμούς ΔΕΝ είναι ο ίδιος;
d. x=0.4834D-1 (σωστή)
3. Έχουμε το παρακάτω κομμάτι προγράμματος. Ti ορίζει για τις μεταβλητές του;
Implicit integer (P,S), real (I-O)
Complex PHY, SCI
c. Όλα τα ονόματα από P και S είναι ακέραιοι και όλα τα ονόματα από I μέχρι O είναι πραγματικοί, εκτός από τα PHY και SCI που είναι μιγαδικοί (σωστή)
************************* 10 ************************
1. Πώς γράφω τον αριθμό Α=251.32,
αν θέλω να είναι διπλής ακρίβειας (double precision);
a. A=251.32D0 (σωστή)
2. Τι θα εμφανιστεί στην οθόνη
όταν εκτελεστεί η ακόλουθη εντολή;
X=-3.45
write (*,100)
100
format (1PE12.5)
b.
b-3.4500E+00 (σωστή)
3. Τι πρέπει να προστεθεί στη
δεύτερη γραμμή του παρακάτω προγράμματος ώστε
η πρώτη εντολή CALL να περνά την εσωτερική συνάρτηση COS μέσα στην
υπορουτίνα SUBXYZ μέσω του εικονικού ορίσματος AFUNC και η δεύτερη
CALL να περνά την SIN;
Program xyz
……………………………………
.
.
Call subxyz
(a,b,cos)
.
.
Call subxyz (a1,b1,sin)
.
.
End
Subroutine
Call subxyz (aa,bb,afunc)
.
.
Return
End
a.
intrinsic cos, sin (σωστή)
