Напишите программу, которая читает с клавиатуры числовое значение x и выводит на экран значение функции f(x)

@Igoriok0511 · Регистрация: 11.08.2011

Добрый день! имеется следующая задача:

Напишите программу, которая читает с клавиатуры числовое значение x и выводит на экран значение
функции f(x) , определенной следующим образом:

Напишите программу, которая читает с клавиатуры числовое значение x и выводит на экран значение функции f(x)

Вычисление f(x) реализуйте при помощи подпрограммы-функции , описанной внутри Вашей программы.

Решил её так:

Pascal

uses crt;
 
var  x:real;
 
Procedure vvod;
begin
 
write('x=');readln(x);
 
end;
 
Function fx(n:real):real;
var rez:real;
begin
 
 rez:=sqr(sin(x/2))-sqrt(abs(cos(x-3/4)));
 fx:=rez;
 
end;
 
Procedure vivod;
begin
 
write('Rezulitat:',fx(x):3:3);
 
end;
 
begin
clrscr;
 
vvod;
vivod;
 
readkey;
end.

Вопрос: Правильно ли прописал формулу? и решил задачу?

@CodeR · 13.06.2012, 12:26

Pascal

1	rez:=sqr(sin(x/2))-sqrt(abs(cos(x)-3/4))

@Igoriok0511 · 13.06.2012, 12:29 **[ТС]**

Artem7, ?

@CodeR · 13.06.2012, 12:35

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

Artem7, ?

Я исправил там по картинке cos(x)-3/4 а у тя написано cos(x-3/4)

@Igoriok0511 · 13.06.2012, 12:36 **[ТС]**

Artem7, а, да незаметил. Спасибо))

@Igoriok0511 20 / 20 / 26 Регистрация: 11.08.2011 Сообщений: 82
	13.06.2012, 12:29 [ТС]	3
	Artem7, ? 0

@CodeR Фрилансер 3417 / 2814 / 3000 Регистрация: 08.02.2012 Сообщений: 8,494 Записей в блоге: 1
	13.06.2012, 12:35	4
	Сообщение от Igoriok0511 Artem7, ? Я исправил там по картинке cos(x)-3/4 а у тя написано cos(x-3/4) 1

@Igoriok0511 20 / 20 / 26 Регистрация: 11.08.2011 Сообщений: 82
	13.06.2012, 12:36 [ТС]	5
	Artem7, а, да незаметил. Спасибо)) 0

Опции темы