Из While в Repeat

[bwitcher]

Нам тут одну и ту же прогу нужно в двух вариантах сделать. Я вроде бы сделал ее в While:

Program MyProg;
Var
q,pi,x,a:real;
Begin
Writeln(‘Vvedite peremennuy x’);
Readln(x);
a:=1.65;
while (x>=0.7) and (x<=2) do begin
if x<1.4 then q:=(pi*sqr(x)-7/sqr(x));
if x=1.4 then q:=(a*exp(3*ln(x))+7*sqrt(x));
if x>1.4 then q:=(ln(x+7*sqrt(abs(sqr(x)+a))));
x:=x+0.2; end;
Writeln(‘Znachenie vyrajeniya=’,q);
Readln;
End.[/B]
Пытался сделать с помощью Repeat, но что-то не выходит. Посмотрите, пжл, где ошибочка?
[B]Program MyProg;
Var
q,pi,x,a:real;
Begin
Writeln(‘Vvedite peremennuy x’);
Readln(x);
a:=1.65;
Repeat
if x<1.4 then q:=(pi*sqr(x)-7/sqr(x));
if x=1.4 then q:=(a*exp(3*ln(x))+7*sqrt(x));
if x>1.4 then q:=(ln(x+7*sqrt(abs(sqr(x)+a))));
x:=x+0.2;
Until (x<=0.7) and (x>=2);
Writeln(‘Znachenie vyrajeniya=’,q);
Readln;
End.

[profi]

хотя оно работало, но выглядело тупо

[bwitcher]

x больше 0.7 и больше 2 сразу? Вы уверены, что так? Я еще не проверял, просто удивляюсь)

[Serge_Bliznykov]

цикл until от цикла while отличается двумя важными "чертами".
1) цикл while может не выполнится ни разу (если предусловие не выполнилось). repeat until выполнится хотя бы один раз не зависимо от условия.

2) в while цикл выполняется, пока выполняется условие (т.е. пока условие ИСТИННО)
в цикле repeat until задаётся условие ВЫХОДА из цикла, т.е. цикл выполняется пока условие ЛОЖНО!

поэтому вместо

while (x>=0.7) and (x<=2) do begin
end;[/

пишем

repeat 
  if (x>=0.7) and (x<=2) do begin
  end;
until Not ((x>=0.7) and (x<=2));

x больше 0.7 и больше 2 сразу? Вы уверены, что так?

вы правильно удивляетесь, там ошибка. Если раскрыть NOT по правилам булевой алгебры получится
until ((x<0.7) or (x>2));

[bwitcher]

Что-то не пойму. Там, где у вас if, Паскаль требует и then. Не могли бы вы полностью прогу написать? А то я что-то не пойму.

[profi]

bwitcher вы верно заметили, у Serge_Bliznykov ошибка. Соглашусь, что мой код не сильно "красивый" был.

Var
q,pi,x,a:real;
Begin
Writeln('Vvedite peremennuy x');
Readln(x);
a:=1.65;
Repeat
if (x>=0.7) and (x<=2) then
begin
if x<1.4 then q:=(pi*sqr(x)-7/sqr(x));
if x=1.4 then q:=(a*exp(3*ln(x))+7*sqrt(x));
if x>1.4 then q:=(ln(x+7*sqrt(abs(sqr(x)+a))));
x:=x+0.2;
end
else break;
Until (x>=2);
Writeln('nachenie vyrajeniya=',q);
Readln;
end.

[bwitcher]

А мне кажется, он не работал. Я проверял

[profi]

Фигово проверял . Короче я ответ уже написал в посте #6.

[bwitcher]

Да, спасибо большое!

[Serge_Bliznykov]

(x>=2);

при равенстве двойке (x = 2) цикл прервётся.
а, судя по коду с while нужно, чтобы 2-ка входила в цикл..


честно слово, лучше бы мой код взяли..
там надо было вместо do написать then (писал на форуме и торопился, вот и описка..)
ну и тело цикла вставить...


Впрочем, решена задача, так решена.
Лишь бы TC был доволен...