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

улитка Паскаля

28.05.2010, 23:46. Показов 4835. Ответов 1
Метки нет (Все метки)

1) Кривая улитка Паскаля определяется следующим уравнением в полярных координатах: p=acos(f)+L
где L-постоянная величина, а угол f меняется от какого либо значения f0 до f0+2п. Напишите программу которая выводит эту кривую и закрашивает внутренюю часть ее петли узором по вашему выбору.
2) Палидром-такое сочетание цифр, которое читается одинакова слева направо и справо налево. Напимер 123,55,4884.
Найти все палидромы для которых их квадраты также палидромы(в заданном интервале от a до b).
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.05.2010, 23:46
Ответы с готовыми решениями:

Графика, улитка Паскаля.
Помогите Решить задачу, Пожалуйста ! :( Построить кривые по заданному параметрическому...

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

Как сделать так что массив поворачивался как улитка
Дана задача "Улитка". Ввести число n и заполнить двумерный массив размера 5 х 5 числами 1,2, 3,...

Улитка паскаля
Написать программу построения улитки Паскаля. Улитка Паскаля, задана параметрически

1
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
29.05.2010, 17:38 2
Лучший ответ Сообщение было отмечено Gp200 как решение

Решение

1.
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
uses crt,graph;
var a,l,gd,gm,xc,yc,x,y,k,i,n:integer;
    r,hl,hr,t:real;
begin
clrscr;
repeat
write('a [20..250] a=');readln(a);
until a in [20..250];
repeat
write('L< ',a,' L=');readln(l);
until l<a;
gd:=0;
initgraph(gd,gm,'');
xc:=getmaxx div 3;
yc:=getmaxY div 2;
t:=0;
while t<=2*pi do
 begin
  r:=a*cos(t)+l;
  x:=round(xc+r*cos(t));
  y:=round(yc-r*sin(t));
  putpixel(x,y,14);
  t:=t+0.001;
 end;
setfillstyle(8,14);
floodfill(xc+2,yc,14);
readln
end.
Добавлено через 2 часа 54 минуты
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
uses crt;
function Palindrom(n:longint):boolean;
var m,p:longint;
    i,k:integer;
begin
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
if p=n then Palindrom:=true
else Palindrom:=false;
end;
var a,b,i:longint;
begin
clrscr;
repeat
writeln('Введите интервал от 1 до 46340 a<b');
readln(a,b);
until(a>0)and(a<b)and(b<=46340);
for i:=a to b do
if Palindrom(i) and Palindrom(i*i) then
writeln(i:5,i*i:10);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.05.2010, 17:38
Помогаю со студенческими работами здесь

Улитка паскаля

Кривая улитка паскаля
Кривая улитка паскаля определяется следующим уравнением в полярных координатах: p=a*cos(f)+L, где L...

Улитка Паскаля(расшифровка)
program Grafik; uses Crt, Graph; const grPath = 'f:\tp7\bgi'; A = 50; B = 70; var...

Построить кривую: Улитка Паскаля
Построить кривую по заданному параметрическому представлению. Улитка Паскаля: x =...

Улитка Паскаля, заданная параметрически,
Написать программу построения изображения, представленного на следующем рисунке. Улитка Паскаля,...

Графика. Шахматная доска. Улитка Паскаля
Напишите программу для создания рисунка. Создать рисунок. Напишите программу для создания рисунка....


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

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

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