Prosedure

[KateMM]

Кто подскажет, в чем тут ошибка?




begin
clrscr;
a:=20;
repeat
sq (12,0.5,4,x1,x2,f);
If f then
begin sq (A,18,0.25,y1,y2,f);
If f then
begin Writeln('Kornei net');
z:=((x1+y1)/(y2+x2));
Writeln('a= ', a, 'z= ', z);

[Hacker19_90]

А компилятор молчит как партизан?
Какого плана ошибка?

[KateMM]

При выводе выдает Z=0 b a=0

[Paster Fob]

Разбирать код,нет желания и времени.Вот если бы были комментарии,ну и само задание хотелось бы узнать.

[Hacker19_90]

При выводе выдает Z=0 b a=0

А вот и нет на выводе вы видите вот это

Writeln (f,z1,z2);

Что говорит о том что дискриминант отрицательный!

[KateMM]

Да, это я поняла. )
Получается, что и ответ ноль?

[Hacker19_90]

запустите калькулятор и посчитайте!

[KateMM]

Благодарю)