LINUX.ORG.RU
решено Форум — Development  

Fortran вывод из файла

 


0

1

Как просто напечатать на экране содержимое файла ?

program info
open(1,file="info.txt")
print*,(info.txt)
close(1)
end program info

★

Последнее исправление: zoloz (всего исправлений: 3)
← Кто нибудь использует http заголовок Retry-After? Как?
Написание драйвера под ядро 4.10 →
Ответ на: комментарий от charly_one

перелапатил весь интернет есть ,там описаны всякие замудрёные действия а вот просто напечатать страницу текста никто не поясняет как

zoloz ★
() автор топика
Ответ на: комментарий от zoloz

где-то я встречал код как это сделать. Давно ничего не делал на фортране. Поищите. Это можно сделать.

charly_one
()
Ответ на: комментарий от zoloz

По ссылке есть примеры кода (законченные программы на случай если ты законченный фортранщик). Копипасть. Изменяй. Смотри на результат.

MimisGotAPlan
()
Ответ на: комментарий от zoloz

Вы решаете какие-то конкретные технические задачи ни фортране или просто сами его изучаете из любопытства?

charly_one
()
Ответ на: комментарий от charly_one

не знаю сейчас проверю ,я вчера всё перепробовал ,всегда ошибки были ,это я сегодня с утра сам придумал .

zoloz ★
() автор топика
Ответ на: комментарий от charly_one

изучаю от нечего делать ,если получиться изучать ,буду изуачть и что нибуть сделаю какое нибудь нужное мне приложение типа: «сначало калькулятор» ,а потом «просто ip-tv.player»

zoloz ★
() автор топика
Ответ на: комментарий от charly_one

да книга Бартенева есть ,но в гугле те места книги которые попадались в них не было самого простого то что мне нужно а без понимания этого я не вижу смысла впитывать остальное.

zoloz ★
() автор топика
Ответ на: комментарий от charly_one

скачал там 450 страниц 10 главу сйчас посмотрю ,кстате сразу бросается в глаза что в фортране опреатор приглашения ввода с клавиатуры не INPUT а READ ,это в мозгу приводит к путанице read это же читать .

zoloz ★
() автор топика
Ответ на: комментарий от zoloz

да. У меня тоже пока не получилось. Задача простая. Дано не работал с фортраном.

charly_one
()
Ответ на: комментарий от charly_one

читал я это страницу но пока не понял то что для меня нужно .

zoloz ★
() автор топика
Ответ на: комментарий от zoloz

ты изучаешь язык программирования и пытаешься угадывать его синтаксис? методика крайне интересная, держи нас в курсе.

Anoxemian ★★★★★
()
Ответ на: комментарий от Anoxemian

никак ты не угадаешь это надо просто знать из какого-нибудь источника

zoloz ★
() автор топика
Ответ на: комментарий от flyshoot

так я и учу его потихоньку ,вот столкнулся с непониманием ,гуглёж ничего не дал ,поэтому спросил.
может ты знаешь как надо выводить на экран текст из файла на фортране ?

zoloz ★
() автор топика
Ответ на: комментарий от charly_one

я твой код попробовал но с командой write ,программа стирает всё содержимое файла info.txt

zoloz ★
() автор топика
Ответ на: комментарий от hotpil

нет не стоит у меня гента ,а при чём тут гента
у меня может стоять что угодно если это как то поможет ))

zoloz ★
() автор топика
Ответ на: комментарий от zoloz

там описаны всякие замудрёные действия а вот просто напечатать страницу текста

просто напечатать страницу текста

Добро       пожаловать       в        ФОРТРАН.
no-such-file ★★★★★
()
Последнее исправление: no-such-file (всего исправлений: 1)
Ответ на: комментарий от no-such-file

ты тоже не знаешь как это сделать

zoloz ★
() автор топика
Ответ на: комментарий от no-such-file

У меня вывел сообщение, что файл содержит ascii код. info.txt ASCCI text

charly_one
()
Ответ на: комментарий от zoloz

если помнит точно

Ты не подходишь для программирования. Вообще.

anonymous
()
Ответ на: комментарий от zoloz

Поставь Compaq Visual Fortran 6.6.0 для винды. Отработаешь книгу по Бартеньеву и язык выучишь. Там возможно и есть код, что выводит, может библиотеки есть еще какие. Вообще фортран для технических расчетов создан, в софке вся авиа промышленность была написана на фортране. Сейчас тоже используется, но не так широко как раньше. Интересный язык.

charly_one
()
Ответ на: комментарий от zoloz

кстати, чуть не забыл. Там можно импортировать код написанный на с. Когда то делал это. Нужно описать в интерфейсе на фортране функцию сишную, и откомпилить с программу в объекный файл. Потом сбрать все фортрановским компилятором и объектные файлы фортрана и с. Точка входа у фортрановской программы. Вызов параметров и функций у фортрана и с по-разному в стэк укладывают по каждый по своему параметры, это надо учитывать. Делал это в винде. Тебе удачи. Изучай.

charly_one
()
Ответ на: комментарий от charly_one

Книжка Бартеньева старье. Например, уже давно можно не выдумывать номера для файлов, а писать так 

integer :: unit
  open(newunit=unit,file='test')
Кажется с 2008 так.

hotpil ★★★★
()
Ответ на: комментарий от zoloz 
program test
implicit none
character(LEN=:), allocatable :: str
integer :: file_size

open(UNIT=10, FILE='info.txt', FORM='UNFORMATTED', ACCESS='STREAM')

inquire(10, SIZE=file_size)
allocate(character(LEN=file_size) :: str)

read(10) str
close(10)

print*, str
end program

>> gfortran -Wall -Wextra -pedantic -std=f2003 test.F90
anonymous
()

как напечатать

он и так на перфоленте напечатан. что тебе ещё надо?

anonymous
()
Ответ на: комментарий от charly_one

ладно почитаю ,если дело пойдёт

zoloz ★
() автор топика
Ответ на: комментарий от anonymous

твой код работает ,спс
я думал всё гораздо проще ,дело пары строк ,попробую убирать по очереди ,может удасться сократить ,ато так я не запомню.
кстате твоя программа самовольничает ,она мне вначале текста нарисовала пробел в первой строке ,теперь она выглядит сдвинутой на один символ.

zoloz ★
() автор топика
Ответ на: комментарий от hotpil

не, по старому понятнее ,проще .

open(1,file="info.txt")

zoloz ★
() автор топика
Ответ на: комментарий от zoloz

Это стандартный формат для вывода строк. Используй явное описание, если хочешь чего-то конкретного: 

print '(A)', str

anonymous
()
Ответ на: комментарий от anonymous

теперь точ в точ как в текстовом файле ,спс
синтаксис этого яп правильный но очень сильно замудрёный ,при создании яп нужно идти от простого к сложному ,от того что ожидается .Например надо вывести на экран из файла - пишем: 

print info.txt
такой код простой должен ити по умолчанию во всех операторах ,а если нужно как то специально выводить тогда уже добавляем опции оператору.
Те люди которые делали этот яп ....не знаю о чём они думали.
а он мне так понравился Фортран ,я просто столько не потяну )))

zoloz ★
() автор топика
Ответ на: комментарий от zoloz

Например надо вывести на экран из файла - пишем
print info.txt

а если надо отправить электронное письмо мамочке, то будем писать

sendmail mamo4ka@mail.ru ПАМАГИ ПЛЗ Я ПАГРАМИРАВАНИИ НАЛЬ!

?

anonymous
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← Кто нибудь использует http заголовок Retry-After? Как?
Development
Написание драйвера под ядро 4.10 →