Вычислить значение у при заданных а и х

@Siemens_73 · Регистрация: 02.04.2013

Студворк — интернет-сервис помощи студентам

Вычислить значение у при заданных а и х
Изображение

@droider · 02.04.2013, 11:14

Условный алгоритм.

Pascal

program func;
var
a, x, y:Real;
begin
Writeln ('Введите a');
Read(a);
Writeln ('Введите x');
Read(x);
if x<0 then y :=(a*a)+(x*x)
else
if x>60 then y :=abs(x-a)
else
y :=tan(a);
Writeln('Значение фун-и = ', y :2:3);
Readln;
End.

Новичок · 02.04.2013, 12:38

droider,функции tan в Паскале нет.

Pascal

program func;
var a,x,y:Real;
begin
Writeln('Введите a:');
Read(a);
Writeln('Введите x:');
Read(x);
if x<0 then y:=sqr(a)+sqr(x) else
if x>60 then y:=abs(x-a) else
y:=sin(a)/cos(a);
Writeln('Значение фун-и=',y:2:3);
Readln;
End.

@droider · 02.04.2013, 16:02

Новичок, писал на Pascal ABC. Там есть.

Новичок · 02.04.2013, 16:11

droider,а ну тогда будет работать,но раздел Turbo Pascal.

@Siemens_73 0 / 0 / 0 Регистрация: 02.04.2013 Сообщений: 47
		1
	Вычислить значение у при заданных а и х 02.04.2013, 08:56. Показов 713. Ответов 4 Метки нет (Все метки) Вычислить значение у при заданных а и х Изображение Миниатюры 0

@droider 4901 / 2771 / 851 Регистрация: 04.10.2012 Сообщений: 10,095
	02.04.2013, 16:02	4
	Новичок, писал на Pascal ABC. Там есть. 1

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	02.04.2013, 16:11	5
	droider,а ну тогда будет работать,но раздел Turbo Pascal. 0

Опции темы