Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти максимальное количество четных чисел в заданном наборе, идущих подряд https://www.cyberforum.ru/ turbo-pascal/ thread1169933.html
Дано целое число n набор из n из целых чисел.Найти максимальное количество четных чисел в наборе, идущих подряд . Если четные числа в наборе отсутствуют ,то вывести 0.
Turbo Pascal Нарисовать флаг Сингапура
Помогите нарисовать флаг Сингапура в паскале. Добавлено через 9 минут 640х480
Turbo Pascal Вывести строку - описание указанного возраста, обеспечив правильное согласование числа со словом "год" Дано целое число в диапазона 20-69, определяюшее возраст (в годах). Вывести строку - описание указанного возраста, обеспечив правилное соглосование числа со словом "год", например: 20 -"двадцать лет", 32- "тридцать два года", 41 -" сорок один год". а https://www.cyberforum.ru/ turbo-pascal/ thread1169926.html Turbo Pascal Описать функцию, проверяющую, является ли число, заданное параметром K степенью числа, заданного параметром N Описать функцию IsPowerN(K, N ) логического типа, возвращающую TRUE, если целый параметр К(>0) является степенью числа N(>1), и FALSE в противном случае. Дано число N(>1) и набор из 10 целых положительных чисел. С помощью функции IsPowerN найти количество степеней числа N в данном наборе. https://www.cyberforum.ru/ turbo-pascal/ thread1169922.html
Turbo Pascal Процедуры и функции. Функция, выполняющая одну из арифметических операций над числами
Описать функцию Calc(A, b Op) вешественного типа , выполняющую над ненуловыми вещественными числами А и В одну из арифметических операций и возвращающую ее результат. Вид операции определяется целым параметром Ор: 1-вычитание , 2- умножнение , 3-деление, остальные значения -сложение. С помошью Calc выполнить для данных А и В операции, определяемые данными целыми {N}_{1},{N}_{2},{N}_{3}.. ...
Turbo Pascal Цикл с условием. Проверка числа на простоту Дано челое число N(>1). Если оно является простым , то есть не имеет положительных делителей , кроме 1 и самого себя , то вывести TRUE , иначе вывести FALSE. https://www.cyberforum.ru/ turbo-pascal/ thread1169894.html
Turbo Pascal Цикл с параметром. Найти значение выражения дано вещественное число Х и целое число N(>0). Найти значение выражения Х-Х/(2!)+...+Х/(N!=12...N)Полученное число является приближенным значением функции exp в точке Х. https://www.cyberforum.ru/ turbo-pascal/ thread1169890.html Нарисовать флаг Грузии Turbo Pascal
Здравствуйте, очень нужна ваша помощь. мне нужно нарисовать флаг Грузии в паскаль Обьязательно нарисовать флаг на весь екран (640х480) пожалуйста помогите мне
Turbo Pascal Условный оператор. Определить номер координатной четверти , в которой находится даннная точка https://www.cyberforum.ru/ turbo-pascal/ thread1169879.html
даны координаты точки, не лежащей на координатных осях OX и OY .Определить номер координатной четверти , в которой находится даннная точка.
Turbo Pascal Проверить истинность высказывания:"Цифры данного числа образуют возрастающую или убывающую последовательность https://www.cyberforum.ru/ turbo-pascal/ thread1169871.html
дано трехзначное число. Проверить истинность высказывания:"Цифры данного числа образуют возрастающую или убывающую последовательность".
Найти количество секунд, прошедших с начала последнего часа Turbo Pascal
С начала суток прошло N секуд (N -целое число). Найти количество секунд,прошедших с начала последного часа.
Turbo Pascal Ввод и вывод данных, оператор присваивания. Поменять местами содержимое переменных А и В https://www.cyberforum.ru/ turbo-pascal/ thread1169861.html
поменять местами содержимое переменных А и В и вывести новые значения А иВ
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
08.05.2014, 16:02 0

Вывести график ctg(x^2)/sqrt(x) - Turbo Pascal - Ответ 6145105

08.05.2014, 16:02. Показов 2444. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено BassTim как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses graph;
function F(x:real):real;
begin
F:=cos(x)/sin(x)/sqrt(x);
end;
var xn,xk,max,min,x,y,mx,my,dx:real;
    x0,y0,i,k:integer;
    s:string;
begin
x0:=0;
initgraph(x0,y0,'');
x0:=50;{начало координат на экране}
y0:=getmaxY div 2;
xn:=0;xk:=4*pi;{интервал по Х}
mx:=(getmaxX-2*x0)/xk;{масштаб по Х}
my:=(y0-20)/60;
line(x0,y0,getmaxX,y0);{оси}
line(x0,0,x0,getmaxY);
{разбиыка оси Y}
for i:=1 to 6 do{максимальное количество засечек в одну сторону}
 begin
  line(x0-3,y0+round(10*i*my),x0+3,y0+round(10*i*my));
  line(x0-3,y0-round(10*i*my),x0+3,y0-round(10*i*my));
  str(i*10,s);
  outtextXY(x0-35,y0+round(10*i*my),'-'+s);
  outtextXY(x0-35,y0-round(10*i*my),s);
 end;
{разбиыка оси Y}
for i:=1 to 8 do
 begin
  line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3);
  if i mod 2=0 then
   begin
    k:=i div 2;
    str(k,s);
    if i=2 then outtextXY(x0+round(i*pi*mx/2),y0+10,'pi')
    else outtextXY(x0+round(i*pi*mx/2),y0+10,s+'pi');
   end;
 end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
{график}
x:=xn;
dx:=0.0001;
while x<=xk do
 begin
  if x>0 then putpixel(x0+round(x*mx),y0-round(F(x)*my),12);
  x:=x+dx; {наращиваем х}
 end;
readln
end.


Вернуться к обсуждению:
Вывести график ctg(x^2)/sqrt(x) Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2014, 16:02
Готовые ответы и решения:

Вывести график ctg(x^2)/sqrt(x) , добавить функцию с ответа.
program funk; uses crt,graph; function F(x:real):real; begin F:=cos(x)/sin(x)/sqrt(x); end;...

Построение графика функций y=tg(x) y=ctg(x) y=x*3, y=sqrt(x)
Добрый день,товарищи. помогите пожалуйста решит задачу построение графика функций y=tg(x) y=ctg(x)...

Даны натуральные числа n и k. Вычислить: sqrt(k+sqrt(2k+...+sqrt(k(n-1)+sqrt(kn))))
Даны натуральные числа n и k. Вычислить: sqrt(k+sqrt(2k+...+sqrt(k(n-1)+sqrt(kn))))

Дано целое положительное число n. Найти sqrt(n+ sqrt (n-1) + sqrt (n-2)+. sqrt (1)
Дано целое положительное число n. Найти sqrt(n+ sqrt ((n-1) + sqrt ((n-2)+... sqrt (1))))

2
08.05.2014, 16:02
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.05.2014, 16:02
Помогаю со студенческими работами здесь

Вывести таблицу значений функций sqrt(x^2+1) и sqrt(x^2-1) с шагом h
Напишите функции в виде методов. Напишите тестирующую программу с выдачей результатов на экран. ...

Дано натуральное число n. Вычислить: sqrt(3+sqrt(6+.+sqrt(3*(n-1)+sqrt(3*n)
Что я делаю не так, подскажите пожалуйста. #include &lt;stdio.h&gt; #include &lt;math.h&gt; #include...

Вычислить значение выражения: sqrt(3+sqrt(6+.+sqrt(96+sqrt(99)
Пытаюсь решить данное выражение, но ответ выходит слишком большим, вот наработка: #include...

Цикл: Для числа N вычислить значение следующего выражения: sqrt((1) + sqrt((2) + ... + sqrt(2 * N)))
Как это решить? sqrt((1)+sqrt((2)+..+sqrt(2n)))

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru