Курс лекций по дисциплине Программирование на языке Фортран

• Название: Курс лекций по дисциплине Программирование на языке Фортран
• Дата: 02.09.2019
• Размер: 0.98 Mb.
• Имя файла: Fortran01.doc
• Тип: Курс лекций; #85698
• страница: 10 из 15

Программа подсчета суммы цифр в числе

Character*80 num

Integer length, sum

Write(5,*) ‘введите число’

Read(5,’(\a)’) num

Length=len_trim(num)

Sum=0

Do I=1 length

Sum=num(I:I)! Возвращение каждого символа

Code=ichar(sum)-48

If(code.ge.0.and.code.le.9) sum=sum+code

End do

Write(5,*) ‘сумма цифр’, sum

end




Решение линейного уравнения с использованием многоточечной однопараметрической итерационной функции с памятью

X_i+1=X_i- , B≠0- параметр
Real уф,f,рф,relerr, esp.p1,y1,bet

Уф=f(рф)! Рф=0- начальное приближение

Eps=1E-5! Начальное значение функции