Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
trifecta
7 / 6 / 6
Регистрация: 18.09.2017
Сообщений: 49
1

Объяснить программу

23.09.2017, 08:21. Просмотров 743. Ответов 3
Метки нет (Все метки)

Есть такая программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
const eps:double=1e-6;
var p,q,t,s,r:double;
begin
  write('ввести p: '); readln(p);
  write('ввести q: '); readln(q);
  if p<q then begin t:=p; p:=q; q:=t; end;
  while q>eps do begin
    r:=q*q/p/p; s:=r/(r+4);
    p:=p*(2*s+1); q:=q*s;
  end;
  writeln(p:10:5);
end.
Надо объяснить, что она делает. Понятно, что что-то считает, но что и как?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.09.2017, 08:21
Ответы с готовыми решениями:

Объяснить код
Объясните код, пожалуйста)const fName = 'tree.dat'; procedure createFile;...

объяснить код
здравствуйте, можете объяснить код, пожалуйста? я не могу понять, как считается...

Объяснить код
Нашел интересную программу на форуме только код не понимаю ... Кто может...

Объяснить процесс сортировки
Всем доброго времени суток) Хочу попросить помочь разобраться в программном...

Объяснить строку кода
Подскажите, как это понять: R := L(R) / (x - x) Интересует именно суть &quot;L&quot;!!

3
Puporev
Модератор
54686 / 42104 / 29072
Регистрация: 18.05.2008
Сообщений: 99,357
23.09.2017, 10:37 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
write('ввести p: '); readln(p);//вводим 2 числа
write('ввести q: '); readln(q);
if p<q then //выбираем меньшее из них
 begin
  t:=p;
  p:=q;
  q:=t;
 end;
while q>eps do  //пока меньшее число больше точности
 begin
 { r:=sqr(q/p);//это для удобства, можно изменить
  s:=r/(r+4); }
  s:=sqr(q/p)/(sqr(q/p)+4); //вычисляем коэффициент для изменения p, q
  p:=p*(2*s+1);
  q:=q*s;
 end;
writeln('p=',p:0:5);//вывод большего числа
0
trifecta
7 / 6 / 6
Регистрация: 18.09.2017
Сообщений: 49
25.09.2017, 05:45  [ТС] 3
Как бы вопрос в том, что за результат вычислений получается в конце. Я знаю, что значит каждая отдельная операция.
0
Puporev
Модератор
54686 / 42104 / 29072
Регистрация: 18.05.2008
Сообщений: 99,357
25.09.2017, 06:55 4
Цитата Сообщение от trifecta Посмотреть сообщение
что за результат вычислений получается в конце.
Так это знать нужно, например из задания.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.09.2017, 06:55

Нужно объяснить решение
4. Ввести с клавиатуры последовательность из n целых чисел и определить, все ли...

Объяснить написанный код
Здравствуйте, нужна помощь в виде объяснения кода, который ниже, что то...

Помогите объяснить переменную
За что отвечает переменная n и почему n=100? uses crt; var m: array of...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru