![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 13.05.2016
Сообщений: 4
|
![]()
Вот сама програмка
var y,e,y1:real; begin y:=1; e:=1e-5; while true do begin y1:=y*(1.5-sqr(y)); Writeln('y1=',y1:6:6); if abs(y1-y)<=e then break else y:=y1; Writeln('y=',y:6:6) end; Writeln('Rezyl`tat:',y1:6:6,', kontrol`noe znachenie -',1/sqrt(2):6:6); Readln; end. Последний раз редактировалось Gybert; 13.05.2016 в 14:53. |
![]() |
![]() |
![]() |
#2 |
Регистрация: 13.05.2016
Сообщений: 4
|
![]() ![]() Вот сама задача, но мне нужно использовать цикл "while" |
![]() |
![]() |
![]() |
#3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
так?
Код:
|
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
![]() Код:
Код:
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 13.05.2016 в 15:10. |
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
evg_m, согласен. я накосячил с условием!
|
![]() |
![]() |