решение задачи в Pascal: Вычислить значение числовой функции, заданной кусочной схемой

[Екатерина23]

Вычислить значение числовой функции, заданной кусочной схемой
y={x^2-1,если 0<|x|≤1;π⁄x,если |x|>1; π,сели x=0) - система

[_Freak_]

Элементарно:

#include <stdio.h>
#include <stdlib.h>
#include <math.h>

#define PI 3.14

int main(int argc, const char* argv)
{
	float x, y;

	printf("Enter value x: ");
	scanf("%f", &x);

	if (abs(x) > 0.0f && abs(x) <= 1.0f) {
		y = pow(x, 2) - 1;
	}
	else {
		if (abs(x) > 1.0f) {
			y = PI / x;
		}
		else { /* x == 0.0f */
			y = PI;
		}
	}

	printf("Result: %f\n\n", y);

	system("pause");

	return 0;
}

[Serge_Bliznykov]

Сообщение от _Freak_

Элементарно:

#include <stdio.h>
#include <stdlib.h>
#include <math.h>

#define PI 3.14
....

_Freak_, это хорошо. Но Вы на название темы внимания не обратили?

решение задачи в Pascal:

вангирую пост от Екатерины с просьбой переписать на другом ЯП.