Напечатать таблицу значений функции, заданной графически

@Killstrike · Регистрация: 12.09.2014

Студворк — интернет-сервис помощи студентам

Дано действительное число a. Для функции y=f(x), график которого приведен на рисунке, вычислить y=f(a) ,

@ermolay · 02.10.2014, 01:06

Pascal

var
  a, x, y: real;
begin
  write('Введите a: ');
  readln(a);
  if a > 1 then begin
    writeln('Значение функции y(', a:0:4, ') не определено');
    readln;
    exit;
  end;
  if a <= -1.25 then y := 1 else
  if (a > -1.25) and (a < -1) then y := -4 * a - 4 else
  if (a >= -1) and (a <= 1) then y := cos(a);
  writeln('y(', a, ') = ', y:0:4);
  readln;
end.

@~~hoch~~ · 02.10.2014, 14:25

На рисунке изображен не косинус, а функция
y=cos(kx), где k=пи/2 (пи=3,14159265...)

@Cyborg Drone · 09.10.2014, 14:29

Pascal

var x, y: real;
begin
   write('x = ');
   readln(x);
   if x <= -1.25
     then y := 1
     else if x <= -1
       then y := -4 * x - 4
       else if x < 1
         then y := cos(x)
         else y := 0;
   write('y = ', y:0:10);
   readln
end.

@Killstrike 0 / 0 / 0 Регистрация: 12.09.2014 Сообщений: 23
		1
	Напечатать таблицу значений функции, заданной графически 01.10.2014, 22:27. Показов 537. Ответов 3 Метки нет (Все метки) Дано действительное число a. Для функции y=f(x), график которого приведен на рисунке, вычислить y=f(a) , Изображения 0

@~~hoch~~ Заблокирован
	02.10.2014, 14:25	3
	На рисунке изображен не косинус, а функция y=cos(kx), где k=пи/2 (пи=3,14159265...) 0

	09.10.2014, 14:29

Опции темы