 Корень, a*a+b*b=c*c;b=? |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| leone.incognito |
 11.09.2007 14:48
Сообщение
#1
|
|
Пионер  Группа: Пользователи Сообщений: 57 Пол: Мужской Реальное имя: Левон Репутация:  -4   |
Народ помогите!
A*A+B*B=C*C B*B=C*C-A*A B=?????? (если корню из C*C-A*A то как его найти в Паскале?)  Я серьёзно! Вот код: A*A:=r*r-C*C (так"A*A:="нельзя) A:=((r*r)-(C*C))mod A; (и так нельзя) Как бы это смешно не было но я запутался   Сообщение отредактировано: leone.incognito - 11.09.2007 14:57 -------------------- "Непросто тем,кто полагается на истину авторитета,вместо того,чтобы полагаться на авторитет истины"
Джэрольд Мэсси |
   |
 
|
  |
Ответов(1 - 8)
| xds |
11.09.2007 15:22
Сообщение
#2
|
 N337 Группа: Пользователи Сообщений: 737 Пол: Мужской Репутация: 26 |
Ты имел в виду просто нахождение квадратного корня (b := Sqrt(c * c - a * a)) или что-то другое? (смущает mod)
Сообщение отредактировано: xds - 11.09.2007 15:22 -------------------- The idiots are winning.
|
|
|
|
| leone.incognito |
11.09.2007 19:00
Сообщение
#3
|
|
Пионер Группа: Пользователи Сообщений: 57 Пол: Мужской Реальное имя: Левон Репутация: -4 |
Да(Первое).Xds скажи пожалуйста с каким типом переменных его можно узнать(квадратный корень)?А то он мне что-то пишет "Type mismatch" хотя они все Integer.
Сообщение отредактировано: leone.incognito - 11.09.2007 19:02 -------------------- "Непросто тем,кто полагается на истину авторитета,вместо того,чтобы полагаться на авторитет истины"
Джэрольд Мэсси |
|
|
|
| мисс_граффити |
11.09.2007 19:06
Сообщение
#4
|
 просто человек Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
возвращаемый результат - не целое число.
либо округляй, либо пользуйся типом real (или double...) -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
|
|
|
| leone.incognito |
11.09.2007 19:57
Сообщение
#5
|
|
Пионер Группа: Пользователи Сообщений: 57 Пол: Мужской Реальное имя: Левон Репутация: -4 |
Спасибо.А как округлять,Мисс?
 Сообщение отредактировано: leone.incognito - 11.09.2007 20:42 -------------------- "Непросто тем,кто полагается на истину авторитета,вместо того,чтобы полагаться на авторитет истины"
Джэрольд Мэсси |
|
|
|
| klem4 |
11.09.2007 20:46
Сообщение
#6
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
см. Хелп: Round, Trunc
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| leone.incognito |
11.09.2007 21:02
Сообщение
#7
|
|
Пионер Группа: Пользователи Сообщений: 57 Пол: Мужской Реальное имя: Левон Репутация: -4 |
Короче вот прога:
Код program v0_001; uses crt, graph; var centerX, centerY, radius, corner, AandB, A, B, AOC, BAO, x, OAC, OC, AO, Ax, Ay, OACplusBAO, grdr, grmd:integer; begin grdr:=detect; write('center:');write('x=');read (centerX);write('y=');readln (centerY); writeln('radius=');readln (radius); writeln('corner=');readln (corner); InitGraph(grdr,grmd,'C:\Pascalbji'); if corner > 90 then halt else AandB:=180-corner; A:=AandB mod 2;{узнаём угол А} B:=AandB mod 2;{узнаём угол В} OAC:=90-corner;{узнаём угол АОС} BAO:=A-OAC;{узнаём угол ВОА} x:=radius mod A; {x*OAC+x*BAO=radius;} OC:=x*OAC;{узнаём ОС} AO:=((radius*radius)-(OC*OC))mod AO;{a=(cc-bb)mod a} Ax:=centerX-OC;Ay:=centerY+AO;{} Line(Ax,Ay,centerX,centerY); {линия(x1;y1;x2;y2);} Delay(1000);{задержка} halt end. Исправте пожалуйста -------------------- "Непросто тем,кто полагается на истину авторитета,вместо того,чтобы полагаться на авторитет истины"
Джэрольд Мэсси |
|
|
|
| Айра |
11.09.2007 23:32
Сообщение
#8
|
|
Профи Группа: Пользователи Сообщений: 731 Пол: Женский Репутация: 25 |
Если я правильно поняла, то вместо
AO:=((radius*radius)-(OC*OC))mod AO;можно написать: AO:=sqrt(((radius*radius)-(OC*OC))), а чтоб программка не ругалась делаем AO: real, это если не кругляя.. или же AO:=trunc(sqrt(((radius*radius)-(OC*OC))))если округлять.. p.s. а темка-то скорее в задачи идет, чем в математику)) Сообщение отредактировано: Айра - 11.09.2007 23:35 |
|
|
|
| leone.incognito |
12.09.2007 14:08
Сообщение
#9
|
|
Пионер Группа: Пользователи Сообщений: 57 Пол: Мужской Реальное имя: Левон Репутация: -4 |
Спасибо тебе,Айра!
Сообщение отредактировано: leone.incognito - 12.09.2007 14:08 -------------------- "Непросто тем,кто полагается на истину авторитета,вместо того,чтобы полагаться на авторитет истины"
Джэрольд Мэсси |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 18:25 |