помогите решить задачу Паскаль. Составить программу вычисляющую значение выражения y=ctg(4x+15)-x2. Значение х изменяется от -3 до 3 с шагом 0,5.
10-11 класс
|
ПаскальАВС.НЕТ
var x,y:real;
begin
x:=-3;
writeln('x':2,'y':10);
repeat
y:=1/tan(4*x+15)-x*x;
x:=x+0.5;
writeln(x:4,y:10:3);
until x>3;
end.
Другие вопросы из категории
одном доме, даже в одном подъезде живут учителя Климов, Михеенко, Ушаков,
Жебин. Один из них учитель математики, другой – информатики, третий –
рисования, а четвертый – музыки. Известно, что: ни Климов, ни Ушаков не умеют
играть ни на одном музыкальном инструменте; Ушаков не знаком с Климовым;
учителя рисования и информатики в воскресенье уезжают на дачу к Михеенко; Жебин
попросил учителя рисования написать картины с его изображением и изображением
Климова. Отметь вариант, в котором верно указано, кто есть кто.
Читайте также
2. написать программу, вычисляющую значение функции (y=f(x))
y=x-2, если x>0,
y=0, если x=0,
y=x*x, если x<0
y=(a+d+c⁵)/√(x³-4)
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:
program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.
результата введите ограничение на количество знаков после запятой. Примечание. В Паскале используются стандартные функции: SIN(X) - синус Х (аргумент задается в радианах); COS(X) - косинус Х (аргумент задается в радианах); Для подсчета угла в радианах используйте формулу: угол в радианах = (угол в градусах)*/180. Результат представьте в виде: Программа вычисления значений тригонометрических функций x° Sin(x) Cos(x) Tg(x) 1 2 3 .. 45