15.12.2015, 12:02 | #1 (permalink) |
Новичок
Регистрация: 15.12.2015
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать программу
|
15.12.2015, 12:02 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Предлагаю вам ознакомится с аналогичными темами на нашем форуме Помогите написать программу Помогите написать программу Помогите написать программу в Си++ Помогите написать программу Помогите написать программу С++ Помогите написать программу на С++ |
15.12.2015, 14:50 | #5 (permalink) |
Новичок
Регистрация: 15.12.2015
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вы можете помочь или нет ?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
15.12.2015, 15:22 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну вот Паскаль-программа:
Код:
Const d=2.0; R=1.0; Var x:real; Function Y(z:real):real; begin if (z<-(R+d)) or (z>(R+d)) or ((z>(-d+R)) and (z<(d-R))) then Y:=0 else begin if z<0 then Y:=-Sqrt(Sqr(R)-Sqr(z+d)); if z>0 then Y:=Sqrt(Sqr(R)-Sqr(z-d)); end; end; Begin Write('x = '); Readln(x); Writeln('Y(',x:0:2,') = ',Y(x):0:2); Readln End. Вы только не гневайтесь, пожалуйста! |
15.12.2015, 15:23 | #8 (permalink) |
Специалист
Регистрация: 27.04.2015
Адрес: Москва
Сообщений: 1,423
Записей в дневнике: 4
Сказал(а) спасибо: 52
Поблагодарили 53 раз(а) в 16 сообщениях
Репутация: 18120
|
Код:
program a; uses SysUtils,Math; var d,r,x,y:Double; begin write('Введите значение d:'); readln(d); write('Введите значение r:'); readln(r); if abs(r)>=abs(d) then begin writeln('Абсолютное значение d должно быть больше r'); readln; exit; end; write('Введите значение X:'); readln(x); y:=0; if (x> -(d+r)) and (x<-d+r) then y:= -sqrt( abs(r*r - (d+x)*(d+x))); if (x< d+r) and (x> d-r) then y:= sqrt( r*r - (d-x)*(d-x)); writeln ('y=',y:0:2); readln; end. |
15.12.2015, 15:41 | #9 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да ладно, Олег, может быть нас и простят за два варианта. Впрочем, нагружать человека выбором - это, конечно, жестоко.
P.S. А с блок-схемой - и не знаю. Сам этим не занимаюсь, нашел OnLine сервис, так он, сволочь, функцию игнорирует, а другие - это всё приложения, которые надо скачивать, устанавливать и т.п., что я в гробу видал. |
15.12.2015, 16:12 | #10 (permalink) |
Новичок
Регистрация: 15.12.2015
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо большое
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|