Antrasis fortrano programa





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
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...
Katalogas
Darbų tipai
Naujausi referatai
Individualios įmonės gardumynas verslo planas. Kursinis darbas.
Bažnyčios. Referatas.
Regioninė politika Lietuvoje. Kursinis darbas.
Kutūros paveldas Lietuvoje. Referatas.
Ignalinos atominės elektrinės uždarymas. Rašinys.
As vadovas. Referatas.
Uab ukmerges duona kursinis. Analizė.
Optimaliu darbo salygu sudarymas. Diplominis darbas.
Si sistemos vienetai. Konspektas.
Ar įteisinti dvigubą pilietybę. Rašinys.
Global warming. Konspektas.
Kalba - didžiausias žmogaus turtas. Rašinys.
Saulės sistema ir planetos. Referatas.
Klaipėdiškių lietuvių kova už klaipėdos krašto prijungimą prie Lietuvos. Referatas.
Teisės normos struktūra hipotezė dispozija sankcija. Referatas.
Partneriai