Исправить код Паскаль?

Question

[flatcar]

Var 
    x,y,a,b,c,d:   real;
Begin
    writeln('Здравствуйте, вас приветствует калькулятор К-В. Можно использовать целые числа и десятичные дроби. Когда вы закончите работу, то просто закройте программу');
    While true Do
    Begin
        writeln('Чтобы вычислить корень или квадрат числа сначала введите число, потом нажмите 0');
        writeln('Введите первую часть выражения: первое слагаемое, уменьшаемое, первый множитель или числитель');
        readln(x);
        writeln('Введите вторую часть выражения: второе слагаемое, вычитаемое, второй множитель  или заменатель');
        readln(y);
        If y=0 Then
            a := SQR(x);
        b := SQRT(x);
        writeln('Квадрат числа ',a);
        writeln('Корень числа ',b);
        Else
            a := x+y;
        b := x-y;
        c := x*y;
        d := x/y;
        writeln('Сумма ',a);
        writeln('Вычитание ',b);
        writeln('Умножение ',c);
        writeln('Деление ',d);
        writeln('Спасибо за использование калькулятора К-В');
    End;
End.

проблема с оператором IF, как известно перед ELSE не ставят ';' так как это завершает цикл, помогите исправить код чтобы все работало. Делаю калькулятор, оператор IF для разделения корней и квадрата от остальных вычислений.

Comments

[amf1k]

после then нужно begin ... end и после else тоже

[d'Ivan]

amf1k: это становится явным после того как к коду добавляются отступы. Видимо, не во всех учебных заведениях это является нормой.

[amf1k]

Роман: ну не знаю, просто всегда пишу блоки if-else с {}, ну и не только , а с паскалем со школы не встречался и в глаза бросилось что нету начала и конца блока.

Answer 1

[Дмитрий Саманев]

VAR
x,y,a,b,c,d:real;
begin
writeln('Здравствуйте, вас приветствует калькулятор К-В. Можно использовать целые числа и десятичные дроби. Когда вы закончите работу, то просто закройте программу');
while true do
begin
writeln('Чтобы вычислить корень или квадрат числа сначала введите число, потом нажмите 0');
writeln('Введите первую часть выражения: первое слагаемое, уменьшаемое, первый множитель или числитель');
readln(x);
writeln('Введите вторую часть выражения: второе слагаемое, вычитаемое, второй множитель или заменатель');
readln(y);
if y=0 then
begin
a:=SQR(x);
b:=SQRT(x);
writeln('Квадрат числа ',a);
writeln('Корень числа ',b);
end
else
begin
a:=x+y;
b:=x-y;
c:=x*y;
d:=x/y;

writeln('Сумма ',a);
writeln('Вычитание ',b);
writeln('Умножение ',c);
writeln('Деление ',d);
end;
writeln('Спасибо за использование калькулятора К-В');
end;
end.