![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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. |