Написать программу на алгоритмическом языке PASCAL с использованием любого оператора цикла.

Написать программку на алгоритмическом языке PASCAL с внедрением хоть какого оператора цикла. y= система 1-ая строка sin(2x+1), xlt;=4 2-ая строка x в квадрате - корень из x, третья строка 3ln x, xgt;6 предел конфигурации x 3,0;7,5 шаг 0,25

Задать свой вопрос
Артем Киберов
46 здесь нет
Яна Симкина
моя ошибка была в написании всё на данный момент верно
1 ответ
\displaystyle y=\left\\beginmatrix amp;10;\sin(2x+1), amp;x\leqslant 4 \\ amp;10;x^2-\sqrt x, amp;4\ \textless \ x\leqslant 6 \\ amp;10;3\ln x, amp;x\ \textgreater \ 6 amp;10;\endmatrix\right.

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var x:=3.0;
  var y:real;
  while xlt;=7.51 do begin
    if xlt;=4 then y:=Sin(2*x+1)
    else if xlt;=6 then y:=x*x-Sqrt(x)
    else y:=3*ln(x);
    Writeln(x:4:2,y:15:8);
    x+=0.25
    end
end.

Итог
3.00     0.65698660
3.25     0.93799998
3.50     0.98935825
3.75     0.79848711
4.00     0.41211849
4.25    16.00094719
4.50    18.12867966
4.75    20.38305053
5.00    22.76393202
5.25    25.27121215
5.50    27.90479212
5.75    30.66458424
6.00    33.55051026
6.25     5.49774439
6.50     5.61540653
6.75     5.72862751
7.00     5.83773045
7.25     5.94300441
7.50     6.04470906
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт