Antrasis fortrano programa

 5
Microsoft Word 27 KB
1 puslapis

! Antras Laboratorinis Darbas
! Darba atrliko: XXXXXXX XXXXXXX
! II-X/X Grupe 200X m. Vilnius
!
! Duotas skaiciu masyvas is N elementu, ir skaicius B. Rasti elementu, didesniu uz B vidurki
! Duomenu faile duomenys.dat pirmoje eiluteje turi buti nurodytas elementu skaicius,
! antroje - skaicius B. Visos kitos N eiluciu turi buti uzpildytos masyvo elementais.

program antras
implicit integer N
dimension A(100)
! Nulinamos kintamuju reiksmes
10 suma=0
skaiciu=0
! Skaiciu suma veliau bus padalinta is skaiciu kiekio (kintamojo pavadinimas "skaiciu")
write(*,*)' Sveiki. Programa dirba su masyvu is N elementu'
write(*,*)' Pasirinkite, is kur programai imti duomenis:'
write(*,*)' 1) Is failo (duomenys.dat)'
write(*,*)' 2) Is klaviaturos (suveda vartotojas)'
write(*,*)
3 write(*,*)' Iveskite pasirinkto veiksmo numeri (1 arba 2) ir paskauskite '
write(*,*)'Spauskite skaiciuka 3 ir , jei norite nutraukti darba'
read(*,*),pasirinkimas
if (pasirinkimas.EQ.1) goto 1
if (pasirinkimas.EQ.2) goto 2
if (pasirinkimas.EQ.3) goto 12
goto 3 ! Jei pasirinkimas netinkamas, kartojam uzklausa

! Duomenu skaitymas is failo
1 open(unit=1, file='duomenys.dat')
read(1,*)N
read(1,*)B
read(1,*)(A(i),i=1, N)
close(1)
! Duomenu skaitymo is failo pabaiga

! Failas uzdaromas, jei vartotojas tos pacios programos darbo sesijos metu
! noretu pakeisti failo turini, ir atlikti...