Линейные и разветвляющиеся алгоритмы. Условный оператор, Паскаль
 

Для функции y = y(x), заданной графически, построить аналитическую зависимость. Составить блок-схему и программу вычисления величины y при заданном значении аргумента.
Лабораторная№2 вариант графика №5

на паскале
 

[QUOTE=димон4ик;870952]Для функции y = y(x), заданной графически, построить аналитическую зависимость. Составить блок-схему и программу вычисления величины y при заданном значении аргумента.

вот что у меня получилось

если x<=-R то y=0 иначе
если x<=0 то y= - корень из (R в квадрате - x в квадрате) иначе
y = c/a * x
помогите пожалуйста с программой

Конструкция если <условие> то <список команд 1> иначе <список команд 2> на Pascal пишется так: , возможно использование вложенных условий.
Для вычисления корня квадратного используйте функцию sqrt(аргумент).
Команда присваивания выглядит следующим образом y:=x*x.

Основные операторы для решения я вам описал, теперь дело за вами :))

Проверьте пожалуйста код
Program lab1;
Var x,y,c,a,R:real;
begin
writeln ('Введите x,y,c,a,R');
readln (x,y,c,a,R);
if x<=-R then y:=0;
if x<=0 then sqrt(sqr(x)-(sqr(x)));
if x>=0 then y:=c/a*x;
writeln (y);
end.