Лабораторный практикум по информатике. Гурьяшова Р.Н - 7 стр.

UptoLike

ВУЗ: 

ВГУВТ | Нижний Новгород

Составители: 

Рубрика: 

7
double
a = 1.5,b = -2;
const
double pi = 3.1415;
double
r,w,q,z;
//
Вычисление R,W,Q,Z
r
= log(abs(b))+ cos(a);
w
= log(3.0)+ cos(b);
q
= log(a)+cos(2*pi/180);
z
= r*r – sqrt(w)/(a*q);
//
Вывод A,B,Z
printf
(“ A = %.1lf”,a);
printf
(“ B = %.0lf\n”,b);
printf
(“ Z = %.4lf”,z);
getch();
return;
}
{
//
Объявление типа данных
float
a = 1.5,b = -2;
pi = 3.1415;
float
r,w,q,z;
//
Вызов функции F
r =
f(abs(b),a);
w =
f(3.0,b);
q =
f(a,2*pi/180);
z = r*r
– sqrt(w)/(a*q);
//
Вывод A,B,Z
printf
(“ A = %.1f “,a);
printf
(“ B = %.0f\n “,b);
printf
(“ Z = %.4f “,z);
getch();
return;
}
//
Функция F
float
f(float x,float y)
{
return(log(x)+cos(y));
}
5. Листинг Fortran и Basic-программ
Программный код
Fortran Basic
! Объявление данных
REAL
:: A = 1.5 ; B = -2
REAL
:: PI = 3.1415
REAL
:: R,W,Q,Z
!
Вычисление R,W,Q,Z
R
= LOG(ABS(B))+ COS(A)
W
= LOG(3.0)+ COS(B)
Q
= LOG(A)+ COS(2*PI/180)
Z
= R**2 - SQRT(W)/(A*Q)
!
Вывод значений A,B,Z
PRINT 1
, A,B,Z
1
FORMAT(1X,' A = ', &
F3.1,' B = ',F3.0/
&
1X,'
Z = ',E11.4 )
END
CLS
' Исходные данные
A
= 1.5: B = -2
PI
= 3.1415
'
Вычисление R,W,Q,Z
R =
LOG(ABS(B))+ COS(A)
W =
LOG(3) + COS(B)
Q
= LOG(A)+ COS(2*PI/180)
Z
= R^2 - SQR(W)/(A*Q)
'
Вывод значений A,B,Z
PRINT
" A = ";A;
PRINT
" B = ";B
PRINT
" Z = ";Z
END
double a = 1.5,b = -2;      {
const double pi = 3.1415;   // Объявление типа данных
double r,w,q,z;             float a = 1.5,b = -2;
// Вычисление R,W,Q,Z       const float pi = 3.1415;
r = log(abs(b))+ cos(a);    float r,w,q,z;
w = log(3.0)+ cos(b);       // Вызов функции F
q = log(a)+cos(2*pi/180);   r = f(abs(b),a);
z = r*r – sqrt(w)/(a*q);    w = f(3.0,b);
// Вывод A,B,Z              q = f(a,2*pi/180);
printf(“ A = %.1lf”,a);     z = r*r – sqrt(w)/(a*q);
printf(“ B = %.0lf\n”,b);   // Вывод A,B,Z
printf(“ Z = %.4lf”,z);     printf(“ A = %.1f “,a);
getch();                    printf(“ B = %.0f\n “,b);
return;                     printf(“ Z = %.4f “,z);
}                           getch();
                            return;
                            }
                            // Функция F
                            float f(float x,float y)
                            {
                            return(log(x)+cos(y));
                            }
           5. Листинг Fortran и Basic-программ
                     Программный код
          Fortran                       Basic
! Объявление данных         CLS
REAL :: A = 1.5 ; B = -2    ' Исходные данные
REAL :: PI = 3.1415         A = 1.5: B = -2
REAL :: R,W,Q,Z             PI = 3.1415
! Вычисление R,W,Q,Z        ' Вычисление R,W,Q,Z
R = LOG(ABS(B))+ COS(A)     R = LOG(ABS(B))+ COS(A)
W = LOG(3.0)+ COS(B)        W = LOG(3) + COS(B)
Q = LOG(A)+ COS(2*PI/180)   Q = LOG(A)+ COS(2*PI/180)
Z = R**2 - SQRT(W)/(A*Q)    Z = R^2 - SQR(W)/(A*Q)
! Вывод значений A,B,Z      ' Вывод значений A,B,Z
PRINT 1, A,B,Z              PRINT " A = ";A;
1 FORMAT(1X,' A = ', &      PRINT " B = ";B
F3.1,' B = ',F3.0/     &    PRINT " Z = ";Z
1X,'Z = ',E11.4 )           END
END

                            7

Страницы