На языке программирования Pascal необходимо закрепить знания по теме разветвляющихся алгоритмов. Итак есть три функции, которые вычисляются в записимости от значения X.

Program adminadmmin.ru;
uses wincrt;
var a, x, y, x0, xk, step: real;
begin
writeln (’Neobhodimo vvesti znachenie x0, xk i shag’);
readln(x0,xk,step);
writeln(’Tablica funkcii Y(X)’);
writeln(’  X       Y’);
x:=x0;
a:=3.5;
while x<=xk + step/2 do
begin
if x<1 then y:=(3.7*sqr(cos(x)))/0.5;
if x=1 then y:=3.9*a*x/2;
if x>2 then y:=5*2*(sin(x)/cos(x)) else y:=(sqr(x-2)-6)*3;
writeln(x:7:2,y:7:2);
x:=x+step;
end;
readln; // pause
end.

Вот такая не сложная программа поможет нам разобраться с возможностями такого простого и распространенного языка программирования как Pascal.

Только самые классные и оригинальные статусы вы можете увидеть на сайте.