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

димон4ик · 24 Фев 2013

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

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

димон4ик · 24 Фев 2013

на паскале

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

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

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

AlexZir · 25 Фев 2013

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

Код:

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

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

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

)

димон4ик · 10 Мар 2013

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

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

димон4ик

Новые

Вложения

димон4ик

Новые

Вложения

AlexZir

support

димон4ик

Новые

Похожие темы