![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Создать консольное приложение, при выполнении которого происходит:
а) ввод трех вещественных чисел X, Y и Z; б) вычисление и печать в отдельной строке результата вычислений по формуле S = SIN(X•Pi/180)(Y^2 + Z^2)• e^(-ABS(Y+Z)). Только начала работу, но не могу понять что куда писать(( |
#2
|
||||
|
||||
![]() Код:
program Project1; {$APPTYPE CONSOLE} Var X,Y,Z,S: Real; begin Writeln('X = '); Readln(X); Writeln('Y = '); Readln(Y); Writeln('Z = '); Readln(Z); S:= Sin(X*Pi/180)*(Y*Y + Z*Z)*exp(-ABS(Y+Z)); Writeln(S:5:8); Readln; end. If end Then begin; |