#include <iostream>
#include <cmath>
using namespace std;
float f(float x);
int main()
{
float x;
cin >> x;
cout << (f(x)) << endl;
}
float f(float x)
{
float y;
float a = 0.65F;
float b = 1.43F;
if (x <= -1)
y = 2 * x + sqrt(b*x + 3);
else if (x < 1)
y = acos(x);
else
y = log(pow((x + a),2));
return y;
}
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ReadArrInteger(5);
a.Reverse.Println
end.
<u><em>Тестовое решение:</em></u>
6 -4 7 0 2
2 0 7 -4 6
<u>// PascalABC.NET 3.3, сборка 1623 от 16.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b):=ReadReal2('Введите два числа:');
if (a<0) and (b<0) then Writeln(Abs(a-b))
else Writeln(a+b)
end.
1) Структура -
Program <имя программы>;
Var: <имена переменных> : <тип переменных>; (Раздел описания. В нём описываются имена переменных и их тип.)
Begin
...(Раздел операторов. Ввод данных, последовательность различных команд и вывод данных.)
End.
2)Оператор присваивания.
Преобразование данных, т.е. присвоение переменной нового значения.
Имеет вид: <Имя переменной>:=<арифметическое выражение>;
Например:
x:=256; (переменной 'x' присваивается значение 256)
x:=a; (переменной 'x' присваивается значение переменной 'a')
x:=x+1; (значение переменной 'x' увеличивается на единицу).
3)хм... как в математике.=)
4)Условный оператор.
Неполная форма: If <условие> then <действие>;
Полная форма: If <условие> then <действие1> else <действие2>;