Используя оператор условия, составить программу для вычисления составной функции

@Флександр · Регистрация: 13.03.2012

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

непойму как тут выкладывать,так

@Puporev · 27.03.2012, 22:02

2.

Pascal

uses crt;
var n,s,i:integer;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+2*i-1;
writeln('s=',s);
writeln(n,'^=',n*n);
readln
end.

@Флександр · 27.03.2012, 22:05 **[ТС]**

только это надо.больше ничего.большое спасибо

@Puporev · 27.03.2012, 22:09

1.

Pascal

uses crt;
var x:real;
begin
write('x=');
read(x);
if(x>=-4)and(x<-3) then write('y=',exp(x)+x:0:2)
else if(x>=-3)and(x<0)then write('y=',exp(-x)*sin(x):0:2)
else if(x>=0)and(x<1.5) then write('y=0')
else if(x>=1.5)and(x<=2) then write('y=',-4*(x-1.5))
else write('y не определено');
end.

@Флександр 0 / 0 / 0 Регистрация: 13.03.2012 Сообщений: 4
	27.03.2012, 22:05 [ТС]	3
	только это надо.больше ничего.большое спасибо 0

Опции темы