Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы программирования на FORTRAN (ФОРТРАН)

Модерирует : ShIvADeSt

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330

Открыть новую тему     Написать ответ в эту тему

akaGM

Platinum Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Обсуждаются все вопросы, связанные с программированием на ФОРТРАН, как общего так и конкретного характера.
Постарайтесь дать как можно больше информации о возникшей проблеме -- это в конце концов в ваших же интересах чтобы вам помогли...
прежде чем просить помощи в задании
платное решение задач
ресурсы этого топика
ссылка на подборку ресурсов, собранных посетителями этого форума
 
то, чем мы решили поделиться
ссылка на страничку программ etc собственного изготовления, которыми любезно делятся наши форумчане

если вам вдруг не отвечают или ответ вас не устраивает
и вообще полезно прочитать всем спрашивающим
 
просьба к пишущим и отвечающим все большие листинги оформлять тегом more
и отключать графические смайлики при размещении фортран-кода
Всего записей: 24107 | Зарегистр. 06-12-2002 | Отправлено: 18:11 14-01-2007 | Исправлено: akaGM, 09:47 01-03-2020
Alexikit

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

akaGM
Спасибо, я не подгоняю, просто так обидно, так все легко вывелось и не помещается.
Буду умолять AZA_N.
А вообще средствами Win32 API можно сделать окно куда выводится любое количество строк?
Всего записей: 79 | Зарегистр. 01-04-2009 | Отправлено: 16:30 23-06-2009
akaGM

Platinum Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alexikit
а чем тебе обычная консоль не подходит?
если просто нужны результаты, то почему бы в тот же файл не вывести?
Всего записей: 24107 | Зарегистр. 06-12-2002 | Отправлено: 17:29 23-06-2009
Alexikit

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
akaGM  
Потому-что нужна возможность увидеть это находясь в программе, это сценарий работы с данными,  и нужно сразу, никуда не выходя его посмотреть, и если есть желание сохранить, так -что файл это конечно выход, но не самый лучший.
Всего записей: 79 | Зарегистр. 01-04-2009 | Отправлено: 21:59 23-06-2009
AZA_N

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alexikit, я давно это гиблое дело бросила и все забыла, и сейчас (всвязи со скоропостижной кончиной харда) нет возможности вспомнить и посмотреть. Можно создать диалог, а там вывести все в ListBox (не помню точно, не обессудьте) с полосой прокрутки - должно все влазить. Когда решу железные проблемы и поставлю софт, попробую уточнить.  
А еще лучше - кидайте кусок кода на к-либо файлообменник (полностью работающую прогу с заглушками -  т.е. только то, что не получается, т.е. чтобы можно было прямо всунуть в VS, создать exe и посмотреть, что да как), может, кто из спецов глянет и подскажет
Всего записей: 853 | Зарегистр. 10-11-2007 | Отправлено: 23:16 23-06-2009 | Исправлено: AZA_N, 23:25 23-06-2009
Mav80

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alexikit
Есть предположение что если для стандартной консоли задать размер буфера на порядок больше то может поможет. Лично я бы склонялся к записи в файл(паралельно открываеш FAR и он в реальном времени обновляет содержимое файла). и потихоньку уходил бы от Win32API и тем более QuickWin.
Всего записей: 20 | Зарегистр. 31-01-2006 | Отправлено: 00:19 24-06-2009
plasmon

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alexikit, вот выдержка из документации:
     USE IFQWIN
     TYPE (windowconfig) wc
     LOGICAL status
  ! Set the x & y pixels to 800X600 and font size to 8x12.
     wc%numxpixels  = 800                ! pixels on x-axis, window width
     wc%numypixels  = 600                ! pixels on y-axis, window height
     wc%numtextcols = -1                 ! -1 requests system default/calculation
     wc%numtextrows = -1
     wc%numcolors   = -1
     wc%title       = " "C
     wc%fontsize    = #0008000C          ! Request 8x12 pixel fonts
     status         = SETWINDOWCONFIG(wc)
   
Ты можешь задать размер окна в пикселях, или в знакоместах (тогда размер в пикселях поставь -1). Если окно вывода не поместится в физическое окно, то появятся полосы прокрутки
Всего записей: 12 | Зарегистр. 25-04-2009 | Отправлено: 00:41 24-06-2009
Alexikit

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AZA_N
Спасибо, я попробую в ListBox, надеюсь что справлюсь, видимо это самый разумный путь в данном случае, хотелось как проще.
Mav80
Это просто не удобно для работы, люди избаловались окнами.
plasmon
Все верно, только окно создается в размер экрана (открыть его можно и меньшего размера), в соответствии с настройками монитора, а в экран то мои записи и не влазят.
 
Добавлено:
AZA_N
Еще раз спасибо, все получилось в  ListBox, оказалось даже проще чем я думала и очень даже не плохо выглядит.
Всего записей: 79 | Зарегистр. 01-04-2009 | Отправлено: 08:38 24-06-2009
akaGM

Platinum Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
тогда уж лучше Memo...
а если его при этом ещё и ридонли не делать, то и копировать из окна можно...
 
Mav80

Цитата:
открываеш FAR...

наш человек...
 
я б вообще писал write(*,*) c редиректом
program.exe > my_output.txt
Всего записей: 24107 | Зарегистр. 06-12-2002 | Отправлено: 17:08 24-06-2009
plasmon

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alexikit
Вот

Код:
 
USE IFQWIN  
     TYPE (windowconfig) wc  
     LOGICAL status  
     Integer i
  ! Set the x & y pixels to 800X2400 and font size to 16x24.  
     wc%numxpixels  = 800                ! pixels on x-axis, window width  
     wc%numypixels  = 2400                ! pixels on y-axis, window height  
     wc%numtextcols = -1                 ! -1 requests system default/calculation  
     wc%numtextrows = -1  
     wc%numcolors   = -1  
     wc%title       = " "C  
     wc%fontsize    = #000F0018          ! Request 16x24 pixel fonts  
     status         = SETWINDOWCONFIG(wc)
     
     WRITE(*,*) 'This is a test'
     DO i=1,150
         WRITE(*,*) i
    END DO
     
    END
     

После компиляции демонстрирует в окне почти 100 строк вывода (с 52 по 150 + в конце пустая строка). Естественно с полосой прокрутки.
Так что ты в корне не прав
Всего записей: 12 | Зарегистр. 25-04-2009 | Отправлено: 02:12 25-06-2009 | Исправлено: plasmon, 12:43 25-06-2009
Alexikit

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
akaGM
Копировать не надо, так что и так сойдет, спасибо.
FAR я тоже оценила.
plasmon
Там проблема в том, что окно я открываю дочернее, а на него написать отдельный windowconfig у меня не вышло, а обрамляющее окно мне необходимо в размер экрана, его нельзя для этой задачи делать больше.  
Так что если подскажите, как открыть второе окно с другим windowconfig, что бы в первом все осталось на месте буду благодарна.
Всего записей: 79 | Зарегистр. 01-04-2009 | Отправлено: 09:53 25-06-2009 | Исправлено: Alexikit, 09:54 25-06-2009
plasmon

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alexikit
Функция FocusQQ спасет отца (мать?) русской демократии.
Вот исправленный пример:

Код:
 
USE IFQWIN  
     TYPE (windowconfig) wc  
     LOGICAL status  
     Integer i                  
     
     OPEN(unit=10, file='user')
     WRITE(*,*) 'This is a default unit'
     
     status = FocusQQ(10)
  ! Set the x & y pixels to 800X2400 and font size to 16x24.  
     wc%numxpixels  = 800                ! pixels on x-axis, window width  
     wc%numypixels  = 2400                ! pixels on y-axis, window height  
     wc%numtextcols = -1                 ! -1 requests system default/calculation  
     wc%numtextrows = -1  
     wc%numcolors   = -1  
     wc%title       = " "C  
     wc%fontsize    = #000F0018          ! Request 16x24 pixel fonts  
     status         = SETWINDOWCONFIG(wc)
     
    DO i=1,150
         WRITE(10,*) i
    END DO
     
    END
 

 
PS И почему я за вас должен читать документацию?!
Всего записей: 12 | Зарегистр. 25-04-2009 | Отправлено: 11:07 25-06-2009 | Исправлено: plasmon, 12:42 25-06-2009
Alexikit

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
plasmon
Не знаю, у меня не получилось.
Что такое  USE IFQWIN  ?
У меня такой библиотеки нет.
а так выводит, но начиная со строки 52, а вот до никак.  
 
Всего записей: 79 | Зарегистр. 01-04-2009 | Отправлено: 12:11 25-06-2009
KChernov



Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alexikit

Цитата:
Что такое  USE IFQWIN  ?
У меня такой библиотеки нет.  

Фортран Компаковский?
Можно поискать библиотеку, которая оканчивается на QWIN (мб CQWIN).
Всего записей: 2471 | Зарегистр. 20-04-2004 | Отправлено: 12:28 25-06-2009
plasmon

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alexikit
IFQWIN - это inel'овский заголовочный файл для библиотеки qwin

Цитата:
а так выводит, но начиная со строки 52, а вот до никак.

И до выводит, только они быстро уходят за горизонт. Уменьши размер шрифта или увеличь высоту окна и увидишь все строки. Но, как мне кажется, чем больше окно, тем больше программа забирает памяти, так что тут нужен разумный компромис.
Если тебе нужно определенное окно в знакоместах, то лучше задать нужные значения для wc%numtextcols и wc%numtextrows, а wc%numxpixels  и wc%numypixels прировнять -1.
Всего записей: 12 | Зарегистр. 25-04-2009 | Отправлено: 12:39 25-06-2009 | Исправлено: plasmon, 12:40 25-06-2009
Alexikit

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KChernov
Да фортран Компаковский, да ладно, после некоторых раздумий получилочь, шрифт просто надо задавать -1, у всех разные настройки монитора.
 
plasmon
я пока писала пришло предыдущее сообщение.
Спасибо, а вообще любое лишнее прочтение документации никому не повредит.  
Может еще поскажите, можно ли в дочернее окно вставить свое меню? (я на самом деле не очень хорошо фортран знаю)
Всего записей: 79 | Зарегистр. 01-04-2009 | Отправлено: 12:42 25-06-2009 | Исправлено: Alexikit, 12:43 25-06-2009
plasmon

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alexikit

Цитата:
Да фортран Компаковский, да ладно, после некоторых раздумий получилочь, шрифт просто надо задавать -1, у всех разные настройки монитора.

Дык, по этому я и задал шрифт 16x24, потому что тот, который стоял в примере (8x12) на моем мониторе был очень мелким.

Цитата:
Спасибо, а вообще любое лишнее прочтение документации никому не повредит.  

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

Цитата:
Может еще поскажите, можно ли в дочернее окно вставить свое меню? (я на самом деле не очень хорошо фортран знаю)

Нет, только в основное. Но я этим (созданием собственного меню в qwin) никогда не занимался
Всего записей: 12 | Зарегистр. 25-04-2009 | Отправлено: 12:49 25-06-2009 | Исправлено: plasmon, 00:40 26-06-2009
Alexikit

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
plasmon, еще раз спасибо большое.  
Всего записей: 79 | Зарегистр. 01-04-2009 | Отправлено: 13:05 25-06-2009
aldangold

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
привет все)
У меня такая вот проблема. Я задаю строку

Код:
 
character a(255)
integer i
print*,'vedite razmer stroki'
read*,n
s=' '
 print*,'vedite stroky'
 read s, (a(i),i=1,n)
 print*, a
end
 

У меня получается что строка задается через ентер
Вид задания:
q
w
e
r
 
t
f
 
d
f
сама строка: qwertfdf
А мне надо чтоб задавалась без ентеров и считала пробелы а не пропускала
Вид задания:
qwert asdf eqet df
сама строка: qwert asdf eqet df
 
Теперь чуть чуть о другом =)
У меня было задание написать задачку на паскале и на фортране
Дана строка из n символов  
Посчитать сколько слов в строке (слова разделены пробелами)
посчтитать сколько слов на букву б
Посчиттать сколько букв а в последенем слове
посчитать сколько букв в самом коротком слове
посчитать сколько слов начинающихся и заканчивающихся на одну и ту же букву
найти любое слово на букву а в данной строке
и заменить любое вхождение слова это на то
Я на паскале то ее написал...  
Подробнее...
А вот перевести на фортран не получается. Может кто поможет или подскажет, где есть подобные задачи на фортране ?
Всего записей: 4 | Зарегистр. 27-06-2009 | Отправлено: 14:34 27-06-2009 | Исправлено: aldangold, 08:22 28-06-2009
akaGM

Platinum Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
aldangold

Цитата:
У меня такая вот проблема.
У меня получается что строка задается через ентер
Вид задания:
сама строка
А мне надо чтоб задавалась без ентеров и считала пробелы а не пропускала

ни хрена не понятно...
Всего записей: 24107 | Зарегистр. 06-12-2002 | Отправлено: 15:17 27-06-2009
aldangold

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ну т.е когда задаешь строку. Она задается, но только каждый символ через ентер приходится вводить и пробелы он в строку не включает. А мне надо чтоб не каждый символ вводить отдельно, а как обычную строку из символов (буквы пробелы)... Понятно объяснил?
Всего записей: 4 | Зарегистр. 27-06-2009 | Отправлено: 15:57 27-06-2009
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы программирования на FORTRAN (ФОРТРАН)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru