|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
24.02.2013, 11:33 | #1 (permalink) |
Member
Регистрация: 02.10.2011
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Линейные и разветвляющиеся алгоритмы. Условный оператор, Паскаль
Лабораторная№2 вариант графика №5 |
24.02.2013, 11:33 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я думаю, что проблему решать легче есть набраться больше информации Алгоритмы, анимация Паскаль. Линейный оператор Линейные выхода с магнитолы Линейные выходы в автомобильном магнитофоне |
24.02.2013, 22:55 | #2 (permalink) |
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) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Конструкция если <условие> то <список команд 1> иначе <список команд 2> на Pascal пишется так:
Код:
if <условие> then begin <список команд 1> end else <список команд 2>; Для вычисления корня квадратного используйте функцию sqrt(аргумент). Команда присваивания выглядит следующим образом y:=x*x. Основные операторы для решения я вам описал, теперь дело за вами |
10.03.2013, 11:53 | #4 (permalink) |
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
|
Опции темы | |
Опции просмотра | |
|
|