Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Letya
0 / 0 / 0
Регистрация: 14.01.2016
Сообщений: 5
1

Построить график функции корень квадратный из x

14.01.2016, 15:49. Просмотров 974. Ответов 5
Метки нет (Все метки)

Помогите составить график функции корень квадратний из x
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.01.2016, 15:49
Ответы с готовыми решениями:

Построить график функции корень кубический из x
Помогите сделать график функции корень кубический из x

Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень квадратный из заданного числа
Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень...

Построить график функции. вычислить и построить все асимптоты для этой функции
Помогите пожалуйста... Устал с ней возиться... Задание: Построить график...

Из большего числа извлечь квадратный корень
Даны 2 числа, из большего числа извлечь квадратный корень, если квадратный...

Вычислить квадратный корень из числа А с заданной точностью
Вычислить квадратный корень из числа А с заданной точностью. A - ...

5
Puporev
Модератор
55411 / 42542 / 29396
Регистрация: 18.05.2008
Сообщений: 100,644
14.01.2016, 16:15 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
55
uses graph;
function F(x:real):real;
begin
F:=sqrt(x);
end;
var xn,xk,x,y1,y2,mx,my,dx:real;
    x0,y0,i,px,py1,py2:integer;
    s:string;
begin
x0:=0;
initgraph(x0,y0,'');
x0:=30;{правый край экрана}
y0:=getmaxY div 2;{центр}
xn:=0;xk:=25;{интервал по Х}
mx:=(getmaxX-2*x0)/(xk-xn);{масштаб по Х}
my:=(y0-20)/(F(xk));{по У}
setbkcolor(15);{цвет фона}
setcolor(8);{цвет линий}
line(0,y0,getmaxX,y0);{оси}
line(x0,0,X0,getmaxY);
for i:=1 to round(xk)+1 do{максимальное количество засечек в одну сторону}
  begin
    line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));{засечки на оси У}
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); {засечки на оси Х}
    line(x0-round(i*mx),y0-3,x0-round(i*mx),Y0+3);
    str(i,s);
    {подпись оси У}
    outtextXY(x0-15,y0+round(i*my),'-'+s);{соответственно засечкам}
    outtextXY(x0-15,y0-round(i*my),s);
    {подпись оси Х}
    outtextXY(x0+round(i*mx),y0+10,s);
    outtextXY(x0-round(i*mx),y0+10,'-'+s);
  end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
setcolor(8);
{график}
x:=xn;
dx:=0.001;
while x<=xk do
   begin
     x:=x+dx; {наращиваем х}
     px:=x0+round(x*mx); {изменение по оси Х}
     y1:=F(x); {график в реальных координатах}
     py1:=y0-round(y1*my);{в экранных}
     putpixel(px,py1,8);
     y2:=-F(x);
     py2:=y0-round(y2*my);
     putpixel(px,py2,8);
   end;
readln
end.
0
Letya
0 / 0 / 0
Регистрация: 14.01.2016
Сообщений: 5
14.01.2016, 20:18  [ТС] 3
А можешь кинуть виде файлов user.BAK и текстовый документ user?
0
Puporev
Модератор
55411 / 42542 / 29396
Регистрация: 18.05.2008
Сообщений: 100,644
14.01.2016, 20:24 4
У меня таких файлов нет.
0
Letya
0 / 0 / 0
Регистрация: 14.01.2016
Сообщений: 5
15.01.2016, 00:21  [ТС] 5
они находятся в папки TP7/TP/BIN.
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4207 / 3060 / 3784
Регистрация: 05.06.2014
Сообщений: 15,363
15.01.2016, 09:41 6
Цитата Сообщение от Letya Посмотреть сообщение
они находятся в папки TP7/TP/BIN
Что?

Если вам нужно с форума взять программу, то выделите ее, скопируйте в буфер обмена, далее вставьте в текстовый документ (в Блокноте). Сохраните под названием user.pas (или каким-то еще названием) и положите это файл туда, куда вам нужно.
0
15.01.2016, 09:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2016, 09:41

Каждый элемент, больший 10, заменить на его квадратный корень
дан массив вещественных чисел.Каждый элемент, больший 10, заменить на его...

Заменить каждый элемент массива на квадратный корень данного элемента
Заменить каждый элемент массива на корень квадратный данного элемента. (если...

Построить график функции
Привет :) Не поможете с задачей? А то с паскалем плохо :( Нужно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru