возврат к началу

[Kiber3D]

Как выполнить вот эти действия - если написал "1", то выход из программы, а если "2", то возврат к началу, и еще, как скопировать текст из паскаля, чтобы не переписывать всё:
var
a,b,c,x1,x2,d,y:real;
begin
write('A=');
read(a);
write('B=');
read(b);
write('C=');
read(c);
d:=b*b-4*a*c;
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
writeln('X1=',x1);
writeln('X2=',x2);
writeln('Задача решена? Если да, то напишите "1", иначе "2");
read(y);
if y:=1
then
end
else... а дальше не знаю

Заранее спасибо.

[Serge_Bliznykov]

например, так:

var
  a, b, c, x1, x2, d : real;
  y : integer;
begin
  repeat
    write('A=');
    read(a);
    write('B=');
    read(b);
    write('C=');
    read(c);
    d := b * b - 4 * a * c;
    x1 := (-b + sqrt(d)) / 2 * a;
    x2 := (-b - sqrt(d)) / 2 * a;
    writeln('X1=', x1);
    writeln('X2=', x2);
    writeln('Задача решена? Если да, то напишите "1", иначе "2");
    read(y);
  until (y=1);
end.

и еще, как скопировать текст из паскаля, чтобы не переписывать всё

открываете Ваш файл (расширение .PAS) в любом редакторе (хоть тот же Блокнот / notepad), хоть в Far Commder / Total Commander - выделить текст, скопировать. вставить в окошко браузера...

[Don Karleone]

Можно использовать метку, например Label_1.

var
a,b,c,x1,x2,d,y:real;

Label
Label_1;

begin

Label_1:

write('A=');
read(a);
write('B=');
read(b);
write('C=');
read(c);
d:=b*b-4*a*c;
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
writeln('X1=',x1);
writeln('X2=',x2);
writeln('Задача решена? Если да, то напишите "1", иначе "2");
read(y);

if y <> 2 then goto Label_1;

end

[ROMA2PVT]

Работа с метками это правила плохого тона программирования.

[Kiber3D]

опачки, спасибо большое, все работает

[ROMA2PVT]

Всё будет работь только при условии что B>a и больше с.Вбей 1 2 3.И будет ошибка.Если я неошибаюсь.

[Kiber3D]

Блин, еще одна проблема:
var
a,b,c,x1,x2,d:real;
y:integer;
begin
repeat
write('A=');
read(a);
write('B=');
read(b);
write('C=');
read(c);
D:=b*b-4*a*c;
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
writeln('X1=',x1);
writeln('X2=',x2);
writeln('Задача решена? Если да, то напишите "1", иначе "2"');
read(y);
until(y=1);
end.
Маленько переделал прогу, все возвращается, но почему то ответ неправильный, если подсчитать просто математическим способом, то, например при a=5; b=9; c=-2 должны получиться корни x1=0,2; x2=-2, но в проге получается x1=5; x2=-50, что тут еще может быть не так? Я думаю, что-то с формулой не то, но она должна быть правильная - это формула квадратного уравнения, помогите, кто хорошо знает алгебру

[Kiber3D]

Сообщение от ROMA2PVT

Всё будет работь только при условии что B>a и больше с.Вбей 1 2 3.И будет ошибка.Если я неошибаюсь.

да, точно

[ROMA2PVT]

потому что корень из отрицательного числа.

[Kiber3D]

Сообщение от ROMA2PVT

потому что корень из отрицательного числа.

разве? у меня d получилось равным 121, а корень тогда получается 11.
Ну если я правильно написал конечно... корень вроде будет sqrt, ну, вот я и написал sqrt(d)... а разве он мне не выдаст ошибку, если под корнем будет отрицательное число?