Сделать задачу в Паскале, вот дана система:
10-11 класс
|
ln|x|, x< -1
sin x, -1≤x<1
cos x, x≥1
Решение у меня есть (не знаю правильное ли), но саму задачу понять вообще не могу, в чем ее смысл...
var
x,y:real;
begin
readln(x);
if x<-1 then
y:=ln(abs(x));
if (x>=-1)and(x<1)then
y:=Sin(x);
if x>=1 then
y:=Cos(x);
writeln(y:4:2);
end.
Программу . Насколько я понял, нужно ввести x, чтобы получить y. Забыл написать что y=этим трём выражениям
Комментарий удален
но увы, я не до конца разобрался в ней
Другие вопросы из категории
Найти тройки x,
y,
z
таких натуральных чисел, что
А) Сжать архиватором, передать архив по каналу связи, распаковать
Б) Передать по каналу связи без использования архиватора.
Какой способ быстрее и насколько, если
-средняя скорость передачи данных по каналу связи составляет 436500 бит в секунду,
-объем сжатого архиватором документа равен 45% от исходного
-время требуемое на сжатие документа-20 секунд, на распаковку-3 секунды?
Читайте также
Пожалуйста помогите сделать задание в паскале.
Дана
матрица А(3.3)
1)
капитала черта (а рублей), стерегущего этот мост, после чего он должен уплатить черту дань в размере с рублей. Процесс этот продолжается до полного разорения одного из участников.Сколько будет совершено переходов моста?). вот блок схема пожалуйста сроочноо
Дана строка, удалить текст находящийся в скобках (вместе со скобками)
Я тут начал делать, вот только с удалением у меня ничего не получается, напишите как можно сделать
Вот как я делал:
program zd;
uses crt;
var s:string; i,l,n,t,y:integer;
begin
clrscr;
writeln('Введите строку');
readln(s);
l:=length(s);
for i:=1 to n do begin
if s[i]='(' then
t:=i; {здесь присваивал номер найденной скобки}
if s[i]=')' then
y:=i; {так же, как и выше}
delete (s,t,i); {у меня получается, что он удаляет с открывающей скобки и всё что находится вправо, а левая часть до скобки остается нетронутой}
end;
writeln('Данный результат =', s);
readln;
end.