Паскаль, задачи (

[Katrinna]

Не работает (
а что за многоточие 3 строчкой?

[Hacker19_90]

1)Вроде так

var
    a, x: real;
....................
    Read (x);
    if x > 0 then
    begin
        a := (sin(sqr(ln(abs(x/sin(x)))))/cos(sqr(ln(abs(x/sin(x))))));
    end
    else
       a := sin(sqr(exp(sqr(x)+2*x+3)))/cos(sqr(exp(sqr(x)+2*x+3)))
    Writeln (a);

[Hacker19_90]

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

Не работает (
а что за многоточие 3 строчкой?

Программа сокращена! Допиши!

[Katrinna]

1 дописала, щас другие подумаю...

Огромное спасибо за помощь!

[Katrinna]

Вот так?
Но все равно ошибка ((( там где read (x,y);

Program Lab1;
uses wincrt;
var
tempy: real;
begin
Read (x, y);
if x >= 0 and y >= 0 then
begin
tempy := (-1)*x + 1;
if y > tempy then writeln ('лежит в заштрихованной облати')
else writeln ('Не лежит');
end;
if x >= 0 and y <= 0 then
begin
tempy := x - 1;
if y < tempy then writeln ('лежит в заштрихованной облати')
else writeln ('Не лежит');
end;
if x <= 0 and y >= 0 then
begin
tempy := x + 1;
if y > tempy then writeln ('лежит в заштрихованной облати')
else writeln ('Не лежит');
end;
if x <= 0 and y <= 0 then
begin
tempy := (-1)*x - 1;
if y < tempy then writeln ('лежит в заштрихованной облати')
else writeln ('Не лежит');
end;
end.

[Hacker19_90]

А ты их обьявила???
var
tempy: real;
x, y: real;
begin
Read (x, y);

[Katrinna]

Туплю, видемо спать пора...

Но все равно ошибка (

Program Lab1;
uses wincrt;
var
tempy: real;
x, y: real;
begin
Read (x, y);

if x>=0 and y>=0 then
begin
tempy := (-1)*x + 1;
if y > tempy then writeln ('лежит в заштрихованной облати')
else writeln ('Не лежит');
end;
if x >= 0 and y <= 0 then
begin
tempy := x - 1;
if y < tempy then writeln ('лежит в заштрихованной облати')
else writeln ('Не лежит');
end;
if x <= 0 and y >= 0 then
begin
tempy := x + 1;
if y > tempy then writeln ('лежит в заштрихованной облати')
else writeln ('Не лежит');
end;
if x <= 0 and y <= 0 then
begin
tempy := (-1)*x - 1;
if y < tempy then writeln ('лежит в заштрихованной облати')
else writeln ('Не лежит');
end;
end.

[Hacker19_90]

А так

Program Lab1;
uses wincrt;
var
tempy: real;
x, y: real;
begin
Read (x, y);

if (x>=0) and (y>=0) then
begin
tempy := (-1)*x + 1;
if y > tempy then writeln ('лежит в заштрихованной облати')
else writeln ('Не лежит');
end;
if (x >= 0) and (y <= 0) then
begin
tempy := x - 1;
if y < tempy then writeln ('лежит в заштрихованной облати')
else writeln ('Не лежит');
end;
if (x <= 0) and (y >= 0) then
begin
tempy := x + 1;
if y > tempy then writeln ('лежит в заштрихованной облати')
else writeln ('Не лежит');
end;
if (x <= 0) and (y <= 0) then
begin
tempy := (-1)*x - 1;
if y < tempy then writeln ('лежит в заштрихованной облати')
else writeln ('Не лежит');
end;
end.

[Олюха]

привет всем! помогите с задачкой пожалуйста...
ночь. весь город спит и учитель информатики в том числе, когда на экране забежал курсор, пишущий "пппппппппп.....". Определить на какой минуте учитель информатики уснул, если известно, что усталый учитель печатает со скоростью 1 символ в секунду. Например, если на экране появляется пятый раз одна и та же буква, то учитель спит 5 секунд.

[Vikenty]

Сообщение от Олюха

привет всем! помогите с задачкой пожалуйста...
ночь. весь город спит и учитель информатики в том числе, когда на экране забежал курсор, пишущий "пппппппппп.....". Определить на какой минуте учитель информатики уснул, если известно, что усталый учитель печатает со скоростью 1 символ в секунду. Например, если на экране появляется пятый раз одна и та же буква, то учитель спит 5 секунд.

Новую тему сложно создать?