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

вопрос

Правильный ответ:

Оставить комментарий

Отправить

• # В операторе read(*,*) вместо второго символа "*" можно использовать
• # Вычислите значение функции в точке . Ответом является ближайшее большее целое число.
• # Сколько раз переменная k увеличится на 1? k = 1 do select case (k) case (1,2,6,8,9,12,14) k=k+1 case (3,4,7,11,13,15) k=k+2 case (5) k=k-1 case (10) k=k+4 case (16:) exit end select end do
• # Дана подпрограмма subroutine proc(a,b,N,func) interface real function func(x) real x end function func end interface real, intent(in) :: a,b integer, intent(in) :: N write(*,*) func(a+b*N) end subroutine proc Выберите верные вызовы, если real function f(x) real x f=sqrt(x)+cos(x)+(1.0,1.0) end function f real function S(x,y) real x,y S=10000*x*y end function S recursive function fr(x) real x if ((x-1)<0) then fr=1.0 return end if fr=sin(x)+cos(x)+fr(x-1) end function fr
• # В двоичном файле pic1.bin по пикселам сохранена область экрана в формате: координата x, координата y, цвет. Какая фигура была изображена на экране ?