Mail.RuПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискВсе проекты

Паскаль помогите сделать очень прошу

Ученик (147), на голосовании 1 месяц назад
Голосование за лучший ответ
примени эту программу для себя, не получится - пиши
program fun;
uses crt; //y = |x| + ln x, x>0
var i:integer; //y 15sinx +x^2, x<=0
y,x:real; // -1 < x < 1, h=0.2
BEGIN
clrscr;
writeln('vichislenie funkcii');
writeln('---------------------');
writeln;
writeln('----------------');
writeln(' x y');
writeln('----------------');
x:=-1;
i:=1;
repeat
if x>0 then y:=abs(x) + ln(x)
else
y:=15*sin(x)+x*x;
writeln(x:6:2,y:7:2);
x:=x+0.2;
i:=i+1;
until x >1;
writeln('----------------');

writeln('konec zadachi');
readln;
END.
Комментарий удален
Похожие вопросы
Также спрашивают