Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Построить график функции https://www.cyberforum.ru/ pascalabc/ thread903797.html Построить график функции y=2cos(x)-3, объемную с областями, как в екселе.	Анимация к рисунку Pascal ABC Всем доброго времени суток, мне нужно забабахать к моему рисунку анимацию, ну чтобы просто типо ехал по экрану справа налево всегда uses GraphABC; begin SetPenWidth(5); // голова SetPenColor(clPurple); Circle (250, 130, 50); SetPenWidth(2); // щека SetPenColor(clPurple); Circle (220, 150, 20);
Pascal ABC Вывести минимальный из тех элементов набора, которые больше B, а так же его номер https://www.cyberforum.ru/ pascalabc/ thread903737.html Дано число B>0 и набор из десяти чисел. Вывести минимальный из тех элементов набора, которые больше B, а так же его номер. Если чисел, больших , в наборе нет, то вывести соответствующее сообщение.	Pascal ABC Цикл предусловия: Вывести минимальный из тех элементов набора, которые больше, а так же его номер Звучит так: Дано число и набор из десяти чисел. Вывести минимальный из тех элементов набора, которые больше, а так же его номер. Если чисел, больших , в наборе нет, то вывести соответствующее сообщение. var b,i,x,min,nmin:integer; f:boolean; begin repeat write('vvedite B='); https://www.cyberforum.ru/ pascalabc/ thread903730.html
Pascal ABC Найти и вывести все слова четной длины, начинающиеся и заканчивающиеся на гласную букву Помогите с прогой плиз.... 1. Вводится строка символов. Разделители – <,>.? /';")*( - заданы множеством. Слово – последовательность символов, ограниченная с одной или с двух сторон разделителями. Найти и вывести все слова четной длины, начинающиеся и заканчивающиеся на гласную букву. Паскаль ABC	Pascal ABC Найти сумму всех чисел делящихся на 5 или на 7 Даны массивы 1 до 50. Найти сумму всех чисел делящихся на 5 или на 7; uses crt; var i,sum:integer; begin For i:= 1 to 50 do If (i mod 5=0) or (i mod 7=0) then begin sum:=0; writeln (i,''); https://www.cyberforum.ru/ pascalabc/ thread903618.html
Pascal ABC Напишите программу, позволяющую построить окружности Ребят, в паскале соображаю плохо, поэтому надеюсь на вашу помощь. Нужно написать программу, вот дано: -натуральное число n; -массив натуральных чисел a0,a1,a2,...,a3n-1 Каждая тройка чисел ai, ai+1, ai+2, где i-кратно трем, задает -координаты центра окружности (ai, ai+1) -и ее радиус (ai+2) Напишите программу, позволяющую построить данные окружности. https://www.cyberforum.ru/ pascalabc/ thread903604.html	Pascal ABC Вывести количество листьев дерева, являющихся правыми дочерними вершинами Дан указатель P1 на корень дерева, содержащего, по крайней мере, две вершины. Вывести количество листьев дерева, являющихся правыми дочерними вершинами. Само дерево я описал, но что делать дальше не знаю. uses crt; type PNode = ^Node; Node = record data: integer; left,right: PNode;
Pascal ABC Найти координаты конца ломаной линии Значит, задачка следующего плана: Даны натуральное число n, действительные числа α1, l1, α2, l2, ..., αn, ln (l1, l2, ..., ln ≥ 0). Найти координаты конца ломаной линии, изображенной на рис. 16. Как я понял, здесь в типе назначаем запись и идет работа с массивом... наверно, в общем, как это решить, ума не приложу :) Уважаемые, есть идеи? https://www.cyberforum.ru/ pascalabc/ thread903504.html	Pascal ABC Замена слов в паскале функцией pos() Вот само задание: Дан текст. Каждое встречающееся слово child заменить на слово children Вот что я имею: uses crt; var st,s1,s2:string; k:integer; begin clrscr; write('Исходный текст -> '); readln(st); write('Слово для поиска -> '); https://www.cyberforum.ru/ pascalabc/ thread903500.html
Факториал, где ошибка? Pascal ABC Здравствуйте. Делаю следующее задание: Даны натуральное число n, действительные числа а1,..., an. Вычислить: a1 + 1!, a2 + 2!, ..., an + n!. Помогите найти ошибку, что-то у меня в коде не так... Вот код: program u8; const n=1; var a:array of integer; i,rez:integer; function fact(k:integer):integer; begin	Pascal ABC Выборка элементов матрицы под главной диагональю) Вот прога: uses crt; const m= 100; //кол-во элементов в матрице Var A:array of integer;//массив матрицы b: array of real; //линейный массив p,d,n,i,j:integer; begin clrscr; https://www.cyberforum.ru/ pascalabc/ thread903460.html

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

17.06.2013, 09:21

Написать программу, позволяющую в декартовой системе координат построить астроиду, по заданному параметрическому представлению - Pascal ABC - Ответ 4732108

17.06.2013, 09:21. Показов 2743. Ответов 2

Метки (Все метки)

Сообщение было отмечено cher1ish как решение

Решение

Pascal

uses crt,graphABC;
var xc,yc:integer;
    b,t,x,y:real;
begin
repeat
write('b>0 b=');//радиус внешней окружности
read(b);
until b>0;
hidecursor;
clearwindow;
xc:=windowwidth div 2;//центр
yc:=windowheight div 2;
circle(xc,yc,round(b));
line(0,yc,2*xc,yc);//оси
line(xc,0,xc,2*yc);
t:=0;
while t<=2*pi do
 begin
  x:=b*cos(t)*sqr(cos(t));
  y:=b*sin(t)*sqr(sin(t));
  setpixel(xc+round(x),yc-round(y),clRed);
  t:=t+0.001
 end;
end.

Вернуться к обсуждению:
Написать программу, позволяющую в декартовой системе координат построить астроиду, по заданному параметрическому представлению Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.06.2013, 09:21

Готовые ответы и решения:

Построить кривые по заданному параметрическому представлению
помогите пожалуйста решить две задачи по графике:(желательно на АВСпаскаль) 1. Построить кривые по...

Построить кривые по заданному параметрическому представлению
Построить кривые по заданному параметрическому представлению Кардиоида x = a cos t(1+cost), y = a...

Построить кривые по заданному параметрическому представлению
пожалуйста, помогите решить. я ничего не понимаю Построить кривые по заданному параметрическому...

Построить кривую по заданному параметрическому представлению. Кардиоида
Ребят. помогите плиз, завтра сдаваться=(((

	17.06.2013, 09:21

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.06.2013, 09:21

Помогаю со студенческими работами здесь

Построить кривые по заданному параметрическому представлению или заданному в полярных координатах:
Построить кривые по заданному параметрическому представлению или заданному в полярных координатах:

Построить график функции в декартовой системе координат: y=dctg(kx)
Построить график функции в декартовой системе координат: y=dctg(kx)

Составьте программу построения графика функций в декартовой системе координат
1) y=2x+5 2) y=x+5/3x 3) y=x^3+2 4) y=5+2^x-6 5) y=log(3x-3) по основанию 6 6) y=1/2sin(x+2)...

Построить кривые по заданному параметрическому представлению или заданному в полярных координатах
Построить кривые по заданному параметрическому представлению или заданному в полярных координатах

Наверх