|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.06.2008, 15:40 | #1 |
Регистрация: 11.06.2008
Сообщений: 3
|
Две простые задачи по Fortran
Прошу помочь, нужно до субботы решить две задачи по фортрану, я сам в программировании полный ноль (((
1. Дана последовательность из N символов.Определить число вхождений в эту последовательность группы букв "ab" 2. Перестановки двух строк с заданными номерами в прямоугольной матрице. Желательное условие: должна присутствовать подпрограмма 2.1 - задача 2, но данные должны загружаться и выводиться в отдельные файлы. Заранее спасибо! |
11.06.2008, 15:58 | #2 |
Новичок
Джуниор
Регистрация: 18.01.2008
Сообщений: 1,720
|
И что, Вы ждёте, что за Вас их напишут? Или показывайте свои мысли, или - Фриланс.
|
13.06.2008, 17:26 | #3 | |
Регистрация: 11.06.2008
Сообщений: 3
|
Цитата:
program ssgsgs implicit none real a(100,100) integer i,j,n,v1,v2 print *,'vvedite kol-vo stolbcov v matrice' read *,n if(n>100) print *,'perepolnenie massiva' write(*,*) 'vvedite matricu' do i=1,n do j=1,n read *,a(i,j) print 2,i,j,a(i,j) 2 format('a('I3,I3,')=',f10.4) enddo enddo do i=1,n print *,(a(i,j),j=1,n) enddo ! это выводит заполненную матрицу print *,'vvedite nomer stolbca dlya zameny1' read *,v1 print *,'vvedite nomer stolbca dlya zameny2' read *,v2 call zamena(a,n) print *,'novaya matrica ravna' print 3,i,j,a(i,j) 3 format('a('I3,I3,')=',f10.4) do i=1,n print *,(a(v1,j),j=1,n) end do end subroutine zamena(a,n) implicit none integer i,j,n,v1,v2 real a(100,100) do j=1,n Дальше по идее в подпрограмме нужно задать цикл, менющий столбцы местами, но чтобы бы я туда записать не пытался, всё время после вводы данных выдаёт ошибку ((( Последний раз редактировалось Walk_Al0ne; 13.06.2008 в 17:29. |
|
13.06.2008, 19:00 | #4 |
Новичок
Джуниор
Регистрация: 18.01.2008
Сообщений: 1,720
|
Код:
|
13.06.2008, 23:36 | #5 |
Регистрация: 11.06.2008
Сообщений: 3
|
спасибо, ещё небольшой вопрос - какой командой можно поместить ответ в отдельный текстовый файл?
|
14.06.2008, 00:19 | #6 | |
Новичок
Джуниор
Регистрация: 18.01.2008
Сообщений: 1,720
|
Цитата:
Код:
|
|
25.06.2008, 16:12 | #7 |
Новичок
Джуниор
Регистрация: 25.06.2008
Сообщений: 1
|
Привет всем!!! Помогите пожалуйста!!! дали задание - реализовать метод координатного спуска! я вообще ничего не понимаю((( а это срочно нужно... если не сложно помогите (с комментариями плиззз)! заранее спасибо!
|
25.06.2008, 21:34 | #8 |
Новичок
Джуниор
Регистрация: 25.06.2008
Сообщений: 1
|
здравствуйте!!!!очень срочно нужна помощь в Фортране!!!!пожалуйста помогите.......
сам я в программировании не понимаю =) нужно написать программу расчета и вывода в файл минимум значений функций F(x,y,z)= (x^2+y^2 , xy>0 (x+y, xy <=0 Тройки значений x, y, z выводятся из файла до тех пор пока не встретится конец файла. примечание: ( ( - это знак системы <= это "меньше либо равно" Просто очень срочно сдать в институте хвост по инфе , из одногруппников никто не шарит заранее спасибо |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод кода с Fortran-77 на Delphi | unhide | Помощь студентам | 3 | 20.05.2008 14:27 |
ЗАДАЧИ НА DELPHI С ВИДУ ПРОСТЫЕ | Алексей_10_11 | Помощь студентам | 2 | 12.11.2007 17:50 |
Простые задачи по паскалю | Kasim | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 22.12.2006 08:23 |