Вычисление заданной функции (выражения)

[kisch]

program zadacha1a;
const x1=-10;
var a,b,c,d,y:real;
BEGIN
a:=sqr(cos(2*x1));
b:=(x1*x1+1);
c:=2+abs(x1);
d:=ln(c)/ln(2);
y:=a/b+d+2.4;
writeln('x1=',x1:5);('y='),y;
END.

[Alex11223]

А что не так? Что должно произойти?)
upd: видимо это "не так"

('y='),y;

Кстати, используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

[Ermowkin]

Вот так работает, но ответ у Y получается огромен.

program zadacha1a;
const x1=-10;
var a,b,c,d,y:real;
BEGIN
a:=sqr(cos(2*x1));
b:=(x1*x1+1);
c:=2+abs(x1);
d:=ln(c)/ln(2);
y:=a/b+d+2.4;
writeln('x1=',x1:5);
writeln('y=',y);
END.

[kisch]

program zadacha2a;
var a,b,c,d:real;
      x1,y:real;
BEGIN
     x1:=-5;
     a:=x1*x1-3*x1-4;
     IF(a>=0)and(c<>0)THEN begin
                                           b:=ln(a)/ln(2);
                                           c:=sin(3*x1);
                                           d:=4/c;
                                           y:=b-d;
                                           writeln('x1=',x1:4:2,'y=',y:4:2);
                               ELSE writeln('net reshenija');
END.

[Alex11223]

Перед else end забыли. И не стоит задавать вопросы в заголовке сообщения: я случайно заметил, думал это вы уже рабочий код выложили) И форматирование немного странное, лучше как-нибудь так.

program zadacha2a;

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

begin
  x1 := -5;
  a := x1 * x1 - 3 * x1 - 4;
  if(a >= 0) and (c <> 0) then begin
    b := ln(a) / ln(2);
    c := sin(3 * x1);
    d := 4 / c;
    y := b - d;
    writeln('x1=', x1:4:2, 'y=', y:4:2);
  end
  else
    writeln('net reshenija');
end.

[kisch]

где можно скачать паскаль?!напишите ссылку=)!

[bumer7721]

ищи на ex.ua

[Alex11223]

Какой Паскаль? Turbo Pascal? PascalABC? Free Pascal?
Впрочем все из них можно найти в google.ru

[bumer7721]

што такое, што не понравелось??????

[kisch]

log2(x2-3x-4)-4/sin3x

составьте пжл разветвляющий алгоритм,с учетом ОДЗ?то делаю, а все не правильно a)const x=-5;
b)присваиванием x:=0;
c)ввод с клавиатуры x=5