part1c -...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
PROGRAM part1c IMPLICIT NONE CHARACTER(20)::name1, name2, noun, adj WRITE(*,*)"Dear _______" WRITE(*,*) WRITE(*,*)" Thank you very much for the _______ you gave me. I found it" WRITE(*,*)"to be very _______." WRITE(*,*) WRITE(*,*)"Sincerely," WRITE(*,*)"Alexandra Pollock" WRITE(*,*) WRITE(*,*) & recipient of the thank you card:" READ(*,*) name1,name2
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: WRITE(*,'(A)',ADVANCE="NO") "Enter the noun and adjective describing the object:" READ(*,*) noun, adj WRITE(*,*) WRITE(*,*) WRITE(*,*) WRITE(*,100) TRIM(name1), TRIM(name2), TRIM(noun), TRIM(adj) 100 FORMAT ('Dear',1x,A,1x,A,','//,T5,'Thank you very much for the',1x,& & A,1x,'you gave me. I found it',/,' to be very',1x,A,'.'//,'Sincerely,'/,& & 'Alexandra Pollock'//////) END PROGRAM...
View Full Document

This note was uploaded on 07/22/2010 for the course MAE 112 taught by Professor Freeh during the Spring '10 term at North Country Community College.

Ask a homework question - tutors are online