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

димон4ик · 24.02.2013, 11:33

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

димон4ик · 24.02.2013, 22:55

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

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

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

AlexZir · 25.02.2013, 17:46

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

Код:

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

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

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

димон4ик · 10.03.2013, 11:53

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

24.02.2013, 22:55	#2 (permalink)
димон4ик Member Регистрация: 02.10.2011 Сообщений: 29 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	на паскале [QUOTE=димон4ик;870952]Для функции y = y(x), заданной графически, построить аналитическую зависимость. Составить блок-схему и программу вычисления величины y при заданном значении аргумента. вот что у меня получилось если x<=-R то y=0 иначе если x<=0 то y= - корень из (R в квадрате - x в квадрате) иначе y = c/a * x помогите пожалуйста с программой Миниатюры

25.02.2013, 17:46	#3 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,740 Записей в дневнике: 70 Сказал(а) спасибо: 161 Поблагодарили 200 раз(а) в 84 сообщениях Репутация: 74843	Конструкция если <условие> то <список команд 1> иначе <список команд 2> на Pascal пишется так: Код: if <условие> then begin <список команд 1> end else <список команд 2>; , возможно использование вложенных условий. Для вычисления корня квадратного используйте функцию sqrt(аргумент). Команда присваивания выглядит следующим образом y:=x*x. Основные операторы для решения я вам описал, теперь дело за вами

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

24.02.2013, 11:33
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Я думаю, что проблему решать легче есть набраться больше информации Алгоритмы, анимация Паскаль. Линейный оператор Линейные выхода с магнитолы Линейные выходы в автомобильном магнитофоне

10.03.2013, 11:53	#4 (permalink)
димон4ик Member Регистрация: 02.10.2011 Сообщений: 29 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Проверьте пожалуйста код 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.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070