Отправлено: 09.05.12 18:11. Заголовок: C1 №1 и №7

Доброго дня, форумчане и Константин Юрьевич. Вот сделал задачу, хотелось бы убедиться в правильности написанного, я доработал программу следующим образом:
var a,b: real;
begin
readln(a,b);
if a = 0 then
begin
if b=0 then write('x - любое число')
else write ('нет решений')
end
else begin
if b = 0 then write('x = 0')
else write('x =',b/a,' или x =',-b/a);
end;
end.

Пока писал сообщение заметил ошибку :) Если а и б имеют разные знаки то программа всё равно работает, хотя не должна, собственно у меня вопрос: переменные типа реал какие значения могут принимать? И отрицательные тоже? У меня записано, что в пределах положительных значений: от 2,9*10^-39 до 1,7*10³⁸ Что-то я тогда не понимаю, как программа работает при отрицательных значениях О_о И такой вопрос: разумно ли здесь операторные скобки, поставленные мною? Или проверяющие вынесут это за ошибку? Вот как окончательно доработал программу:

var a,b,x: real;
begin
readln(a,b);
if a = 0 then
if b=0 then write('x - любое число')
else write ('нет решений')
else
if b = 0 then write('x = 0')
else if ((b>0) and (a>0)) or ((b<0) and (a<0))then
write('x =',b/a,' или x =',-b/a)
else write('нет решений')
end.

(тут уже без операторных скобок)

 Отправлено: 10.05.12 10:50. Заголовок: Ещё вопрос по 7 зада..

Ещё вопрос по 7 заданию:
program z1;

var
x, y, z, p, h: real;

begin
readln(x, y, z,p);
h:=sqrt(x*x+y*y);
if (p<z) then begin
if (h<z) and(h>p) then writeln ('да')
end
else if (h<p) and (h>z) then writeln ('да')
end.

Сколько мне баллов поставят за такое решение? Если я правильно описал, что программа неправльно работает, когда r2>r1 и привел точку? Согласен, что тут не учитывается, что h может равняться одному из радиусов, но в условии сказано, что никакого сообщения не должно выводиться, если точка не лежит внутри области, собственно в моей программе, этого и не произойдет - т.е. я заранее подразумеваю, что точка лежит внутри области, в противном случае, никакого сообщения не выведется, что не противоречит условию, что скажите, Константин Юрьевич? Или всё зависит от проверяющего?

 Отправлено: 10.05.12 11:08. Заголовок: Сергей пишет: Или вс..

Сергей пишет:

цитата:

Или всё зависит от проверяющего?

Все зависит от тех критериев оценивания, которые дадут эксперту. Пока нет критериев оценивания, невозможно сказать, сколько баллов вы получите. Почитайте внимательно критерии демо-вариантов разных лет. Например, тут.