Система уравнений

@yura-bil · Регистрация: 20.09.2011

Задание на картинке.
[img]http://i018.***********/1109/7f/2d5ac3a75ff2.png[/img]

@Kostyanych77 · 20.09.2011, 19:10

Pascal

var x,t1,t2,rez:real;
n,konec:integer;
begin
writeln('Vvedite X:');
readln(n);
writeln('Vvedite T1:');
readln(t1);
writeln('Vvedite T2:');
readln(t2);
if t1<sqrt(t2+2) then rez:=exp(2*t1)+cos(x*t2)
else if t1=sqrt(t2+2) then rez:= ln(x*t1)*sqrt(sin(t2))
else if t1>sqrt(t2+2) then rez:=x*t1;
writeln('Rezultat=',rez:5:5);
read(konec);
writeln('The end;)');
end.

@yura-bil · 20.09.2011, 19:52 **[ТС]**

спасибо!

@Puporev · 21.09.2011, 12:01

yura-bil, Во первых, не дублируй темы, накажу в следующий раз, а во вторых это не система уравнений, а функция, заданная условиями.

@yura-bil 1 / 0 / 0 Регистрация: 20.09.2011 Сообщений: 7
		1
	Система уравнений 20.09.2011, 18:31. Просмотров 2521. Ответов 3 Метки нет (Все метки) Задание на картинке. [img]http://i018.***********/1109/7f/2d5ac3a75ff2.png[/img] 0

@yura-bil 1 / 0 / 0 Регистрация: 20.09.2011 Сообщений: 7
	20.09.2011, 19:52 [ТС]	3
	спасибо! 0

@Puporev Модератор 63229 / 46981 / 32383 Регистрация: 18.05.2008 Сообщений: 113,873
	21.09.2011, 12:01	4
	yura-bil, Во первых, не дублируй темы, накажу в следующий раз, а во вторых это не система уравнений, а функция, заданная условиями. 0

Опции темы