0 / 0 / 0
Регистрация: 22.11.2016
Сообщений: 9
1

График функции

08.12.2016, 05:54. Показов 1009. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
PascalABC
Цель работы - изобразить функцию Крест "Cruciform" P=2a/sin(2φ). Для этого выбрать три характерных варианта графика. Вывод графика осуществлять в созданном на экране окне. У пользователя программа запрашивает параметры графика (A,B и т.д.) и цвет в который будет окрашен график.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.12.2016, 05:54
Ответы с готовыми решениями:

Составить график функции. Дана функция нужно построить график по полученным точкам
Помогите составить график функции. Дана функция нужно построить график по полученным точкам...

Для функции y=f(x) получить таблицу значений и график этой функции на отрезке
Для функции y=f(x) получить таблицу значений и график этой функции на отрезке. Количество точек на...

Написать блок-схему и программу вычисления функции на заданном промежутке с шагом 0.2 и построить график этой функции
Написать блок-схему и программу вычисления функции на заданном промежутке с шагом 0.2 и построить...

График функции и ошибка "Неверное число параметров функции"
Program aaa; Uses GraphABC; Var x,y:integer; Begin For x:=0 to 360 do Begin Y:=Round(...

1
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
10.12.2016, 08:45 2
Лучший ответ Сообщение было отмечено Tortik10 как решение

Решение

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
uses graphABC;
var x1,y1,x,y:integer;
    s:char;
    cv:Color;
    a,r,f:real;
begin
repeat
writeln('Введите параметр А от 1 до 50 a=');
readln(a);
until(a>=1)and(a<=50);
writeln('Выберите цвет');
writeln('1-синий');
writeln('2-красный');
writeln('3-зеленый');
repeat
readln(s);
until s in ['1'..'3'];
case s of
'1':cv:=clBlue;
'2':cv:=clRed;
'3':cv:=clGreen;
end;
clearwindow;
x1:=windowwidth div 2;
y1:=windowheight div 2;
setpencolor(cv);
f:=0;
while f<=2*pi do
 begin
  if abs(sin(2*f))<>0 then
   begin
    r:=2*a/sin(2*f);
    x:=x1+round(r*cos(f));
    y:=y1+round(r*sin(f));
    if (x>0)and(x<windowwidth)and(y>0)and(y<windowheight) then setpixel(x,y,cv);
   end; 
  f:=f+0.001;
 end;
end.
1
10.12.2016, 08:45
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2016, 08:45
Помогаю со студенческими работами здесь

График функции
Что исправить нужно graphABC; //Подключаем графический модуль const W = 1200; H =...

График функции
Выводит оси координат y=x+2 зеленым золотым цветом как написать код в графабс?

График функции
Написать программу построения графика функции y=1/x для x\epsilon

Построить график функции
Нужно написать программу, которая построит график функции f:=(3*a)-(2/(b*x))-(3/(c*sqr(x))), и где...


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

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

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