|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
31.05.2011, 14:45 | #1 |
Пользователь
Регистрация: 31.05.2011
Сообщений: 16
|
Не пойму зачем не работает?!
Задание:Вычислить значения функций,если диапозон изменения аргумента и его шаг заданы. Выч-ть сумму значений функции, радианная мера которых больше 1.Ну там дальше идёт ур-ие.Если надо напишу!
Programm №3; Uses crt; Const a=2.1; Var XR,b,c,h,x,y,P:real; Begin Clrscr Write(‘Введите интервал и шаг’); readln(b,c,h); P:=1; Writeln(‘Таблица значений’); Writeln(‘x(гр) (x рад) y’); X:=b; While x<=c do begin XR:=(x*pi)/180; Y:=1-(tg*((sqr(XR)+2*a)/sqrt(XR+sqr(a)))); Writeln(x:5:0),’’,XR:5:2,’’,Y:6:2); If (y>0) and (y<1) then P:P*y; X:=x+n; End; Writeln(‘Произведение=’,P:7:2); Read key; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
(i and 1) = 1-зачем????? | firephenix | Помощь студентам | 7 | 21.03.2011 06:18 |
Не пойму как работает цикл | Lotles | Общие вопросы C/C++ | 4 | 29.11.2010 02:08 |
Изучаю javascript не пойму почему не работает скрипт | 4e4en | JavaScript, Ajax | 8 | 11.09.2010 19:17 |
не пойму правильно ли работает программа | серг | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 13.05.2010 14:58 |