Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 24.02.2013, 11:33   #1 (permalink)
димон4ик
Member
 
Регистрация: 02.10.2011
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Линейные и разветвляющиеся алгоритмы. Условный оператор, Паскаль

Для функции y = y(x), заданной графически, построить аналитическую зависимость. Составить блок-схему и программу вычисления величины y при заданном значении аргумента.
Лабораторная№2 вариант графика №5
Вложения
Тип файла: pdf inform_chast2.pdf (409.9 Кб, 628 просмотров)
димон4ик вне форума   Ответить с цитированием

Старый 24.02.2013, 11:33
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Я думаю, что проблему решать легче есть набраться больше информации

Алгоритмы, анимация
Паскаль. Линейный оператор
Линейные выхода с магнитолы
Линейные выходы в автомобильном магнитофоне

Старый 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
помогите пожалуйста с программой
Миниатюры
000.jpg  
димон4ик вне форума   Ответить с цитированием
Старый 25.02.2013, 17:46   #3 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,521
Записей в дневнике: 57
Сказал(а) спасибо: 125
Поблагодарили 153 раз(а) в 64 сообщениях
Репутация: 59844
По умолчанию

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

Основные операторы для решения я вам описал, теперь дело за вами
AlexZir вне форума   Ответить с цитированием
Старый 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.
димон4ик вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 20:29.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.