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

[димон4ик]

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

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

 

[димон4ик]

на паскале

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

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

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

 

[AlexZir]

Конструкция если <условие> то <список команд 1> иначе <список команд 2> на Pascal пишется так:

if <условие> then begin <список команд 1> end else <список команд 2>;

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

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

 

[димон4ик]

Проверьте пожалуйста код
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 ;
end.