Вычислить значения функции

[tapah4ik]

ЗАДАЧА №2 http://radikal.ru/F/s55.radikal.ru/i...29a14.jpg.html

[tapah4ik]

как залить фото?

[malinoff]

Наверное, сначала стоит все-таки почитать Правила.

[tapah4ik]

malinoff и что я тут запрещенного сделал?

[MyLastHit]

Где язык программирования? Где наработки(хотя бы идеи как решить)?

А то бывает делаешь таким людям делаешь на паскале или асме, отправляешь решение, а в ответ - мне на с++ надо.
Бывают и такие вроде вас, без "помогите мне пожалуйста решить, очень надо! Спасибо". Просто постят задание тупо и всё.

[malinoff]

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

malinoff и что я тут запрещенного сделал?

Простите, немного не ту ссылку дал.
Вот нужная. Читайте второй пост

[tapah4ik]

выполнить нужно на паскале)код нахождения корней я напишу , а дальше не пойму как делать

[tapah4ik]

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

Где язык программирования? Где наработки(хотя бы идеи как решить)?

А то бывает делаешь таким людям делаешь на паскале или асме, отправляешь решение, а в ответ - мне на с++ надо.
Бывают и такие вроде вас, без "помогите мне пожалуйста решить, очень надо! Спасибо". Просто постят задание тупо и всё.

program zaga4a;
uses crt;
var a,b,c,D,x1,x2: real;
mass:array [1..3,1..10] of real;
procedure korny(b:real ;a:real; c:real);
begin
  writeln('Введите значения a, b, c');
  readln(a,b,c);
  D:=b*b-4*a*c;
  if D>0 then
    begin
      x1:=(-b+sqrt(D))/(2*a);
      x2:=(-b-sqrt(D))/(2*a);
      writeln('x1=', x1:7:2);
      writeln('x2=', x2:7:2);
    end
  else
    if D=0 then
      begin
        x1:=(-b)/(2*a);
        writeln('x1=',x1:7:2);
      end
    else
      writeln('Корней нет!');
  readln
end;

а дальше как значения ф-ии искать?

[tapah4ik]

что тут не то?

program zaga4a;
uses crt;
var a,b,c,D,x1,x2: real;
mass:array [1..3,1..10] of real;
procedure korny(b:real ;a:real; c:real);
begin
  writeln('Введите значения a, b, c');
  readln(a,b,c);
  D:=b*b-4*a*c;
  if D>0 then
    begin
      x1:=(-b+sqrt(D))/(2*a);
      x2:=(-b-sqrt(D))/(2*a);
      writeln('x1=', x1:7:2);
      writeln('x2=', x2:7:2);
    end
  else
    if D=0 then
      begin
        x1:=(-b)/(2*a);
        writeln('x1=',x1:7:2);
      end
    else
      writeln('Корней нет!');
  readln
end;
var y:real;
begin
writeln('vvedite x1');
readln(x1);
writeln('vvedite x2');
readln(x2);
y:=x1+exp(x2);
writeln('y=',y);
end.