Skip to content

Instantly share code, notes, and snippets.

@lindaliukas
Last active August 9, 2021 11:27
Show Gist options
  • Save lindaliukas/7f70aa5014d82d8fc376aad79449cb16 to your computer and use it in GitHub Desktop.
Save lindaliukas/7f70aa5014d82d8fc376aad79449cb16 to your computer and use it in GitHub Desktop.
program kadonnut-koodaaja
character years(12)*8
data years/'1942', '1953', '1954', '1958',
c '1960', '1962', '1964', '1965',
c '1966', '1968', '1969', '1973'/
character events(12)*27
data events/'Hedy Lamarr kehitti radiotekniikkaa, joka antoi pohjan tämän päivän langattomille verkoille,',
c 'perustettiin Reikäkorttiyhdistys Helsingissä,',
c 'Kaarina Beskow palkattiin Matematiikkakomiteaan matemaatikoksi,',
c 'Postisäästöpankissa käynnistettiin Suomen ensimmäinen toimiva tietokone ENSI,',
c 'valmistui ensimmäisenä aloitettu tietokone ESKO,',
c 'Katherine Johnson, Dorothy Vaughan ja Mary Jackson työskentelivät Yhdysvaltojen avaruusohjelmassa.',
c 'Marita Kaatrala näki Valtion tietokonekeskuksen mainoksen,',
c 'perustettiin tietojenkäsittelytieteen pääaine Tampereen yliopistolle,',
c 'Leena Relander kirjoitti gradun reikäkorttilävistäjien soveltuvuustesteistä,',
c 'Taru Kuhanen käveli Salmisaareen Nokian elektroniikkaan aloittaakseen kesätyöt ohjelmoijana,',
c 'Margaret Hamilton kirjoitti Apollo avaruusalusten lennonaikaisia tietokoneohjelmia,',
c 'Kansaneläkelaitoksen jaoston esimies Maija-Liisa Juvonen luennoi Tietojenkäsittelyliiton luentopäivillä aiheesta “Voiko lävistystyötä rikastuttaa?".',/
integer year, event
do 10 year=1,12
write (*,'(a)') 'Vuonna ', trim(years()),
c ' ja sitä ennen '
do 20 event=year,1,-1
write (*,'(a)') trim(events(event))
20 continue
write(*,*)
10 continue
end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment