Добавил:
Silebox
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
Program lab1_1;
var
a: real = 1.5;
x: integer;
s: real;
begin
Write('Введите x: '); Read(x);
s := ((exp(cos(x))+a)/(sqrt(abs(x))))+((sin(x))/(a+exp(x)));
WriteLn('Результаты:');
WriteLn('a: ', a:1:2);
WriteLn('x: ', x);
WriteLn('s: ', s:1:2);
end.
var
a: real = 1.5;
x: integer;
s: real;
begin
Write('Введите x: '); Read(x);
s := ((exp(cos(x))+a)/(sqrt(abs(x))))+((sin(x))/(a+exp(x)));
WriteLn('Результаты:');
WriteLn('a: ', a:1:2);
WriteLn('x: ', x);
WriteLn('s: ', s:1:2);
end.