fortran數(shù)據(jù)類型ppt課件-資料下載頁
2025-05-05 12:14本頁面
【正文】 ite(*,*) line2 end 用表控方式輸入字符串時，要加引號。 邏輯型數(shù)據(jù) 邏輯常量只有真和假兩種值： . .FALSE. 變量說明的格式為： LOGICAL [ ( [ KIND = ] 類別值 ) ] [ [ ,屬性列表 ]::] 變量列表 例 當某點的 X， Y坐標落在圖中四個方塊內(nèi)和方塊邊上時， Z=0，如在方塊外，Z=3。 INTEGER::Z REAL ::X, Y LOGICAL::P, Q, R, S READ*, X, Y Z=3 P=X= .AND. X= Q=X= .AND. X= R=Y= .AND. Y= S=Y= .AND. Y= IF(() .OR. () .OR. ()amp。 .OR. ())Z=0 PRINT*, 39。X=39。, X, 39。Y=39。, Y, 39。Z=39。, Z END 作業(yè)： P87 4， 8， 9， 10 4：三角形面積： 三個邊長： a, b, c 面積 =sqrt(s(sa)(sb)(sc)) 其中 s=(a+b+c)/2 implicit none character :: str1=39。m39。, str*25 integer:: i, n=12 str(1:1)=39。m39。 do i=1, n str(i*2:i*2)=achar(iachar(str1)i) str(i*2+1:i*2+1)=achar(iachar(str1)+i) end do print*, str end 作業(yè)： P87， 7 把 25個字母 A， B， … ， Y， 打印出： MLNKO… 作業(yè)： P87， 8 將一個字符串中的前導空格、后置空格及中間的空格全部去掉，得到一個新的字符串后輸出。 implicit none character *80 str1, str2 integer:: i, j=1 read*, str1 do i=1, len_trim(str1) if(str1(i:i)/=39。 39。)then str2(j:j)=str1(i:i) j=j+1 endif enddo print*, str2 end 字符型變量默認值為空字符， ASCII碼為 0。 作業(yè)： P87， 9 輸入 n個英文單詞，輸出其中以元音字母開頭的單詞。 implicit none character *10 word integer:: i, n read*, n do i=1, n read*,word select case(word(1:1)) case(39。A39。, 39。E39。, 39。I39。, 39。O39。, 39。U39。, 39。a39。, 39。e39。, 39。i39。, 39。o39。, 39。u39。) print*, word end select end do end plex x,y,z,xyz real a, b, c, s, area read*, x, y, z a=abs(xy) b=abs(xz) c=abs(yz) s=(a+b+c)/2 area=SQRT(s*(sa)*(sb)*(sc)) xyz=(x+y+z)/3 print*, area, xyz end 作業(yè)： P87 4 implicit none real x,y logical a integer z read*, x, y x=abs(x) y=abs(y) z=0 a=sqrt((x2)**2+(y2)**2)=1 if(a)z=1 print*, z=, z end 作業(yè)： P87 10
教學課件相關(guān)推薦
鄂ICP備17016276號-1