Вычисление составной (сложной) функции

17.03.2012, 12:20. **Показов** 1293. **Ответов** 2

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

Здравствуйте помогите пожалуйста к контрольной очень нужно заранее Вам спасибо паскаль скачал с вашего фтп free pascal

@Puporev · 17.03.2012, 18:53

1.

Pascal

var x,y:real;
begin
write('x=');
readln(x);
if (x>=-1)and(x<-0.05) then write('y=',-x*x*x+sin(x):0:3)
else if (x>=-0.05)and(x<2)then write('y=',x*x+exp(x)-1:0:3)
else if(x>=2)and(x<=4)then write('y=',13-ln(x)*4:0:3)
else if (x>=3)and(x<=4) then write('y=',8+10*sin(x-3):0:3)
else write('y не определено');
readln
end.

Добавлено через 11 минут
2.

Pascal

uses crt;
var n,i:integer;
    s,n1:real;
    st:string;
begin
clrscr;
repeat
write('Введите целое число >0 n=');
readln(st);
val(st,n,i);
if i<>0 then write('Ошибка, повторите ввод');
until i=0;
s:=0;
for i:=1 to n do
s:=s+(2*i-1)*sqr(2*i-1);
writeln('S=',s:0:0);
n1:=n;
write('Контроль=',n1*n1*(2*n1*n1-1):0:0);
readln
end.

17.03.2012, 20:24

Огромнейшее Вам спасибо , спасибо что Вы есть . ещё одну душу спасли =)) спасибо

$hajtan
	17.03.2012, 20:24	3
	Огромнейшее Вам спасибо , спасибо что Вы есть . ещё одну душу спасли =)) спасибо

Вычисление составной (сложной) функции

Решение