Прямоугольный треугольник, определить сколько единичных квадратиков |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Прямоугольный треугольник, определить сколько единичных квадратиков |
Anya |
Сообщение
#1
|
Гость |
Дано прямоугольный треугольник (его два катета) размером до 2-х миллиардов.
Определить сколько единичных квадратиков может в них поместиться. Спасибо за внимание, Аня |
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Можно так попробоват :
Код {$n+} uses crt; var a,b:longint; s:extended; Begin clrscr; readln(a,b); s:=a*b/2; writeln('s=',s:2:3); readln; end. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
Сообщение
#3
|
Гость |
Цитата(Anya @ 22.02.05 15:08) размером до 2-х миллиардов. Это намек на то, что без длинночисленной арифметики не обойтись? |
Altair |
Сообщение
#4
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
klem4 |
Сообщение
#5
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
хехе чо-то я про 2000000000 не подумал )))
a=1999999999,b=2000000000 все ок. Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Altair |
Сообщение
#6
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
а я тоже не понял сначала, я не вьехал сначала в каких единицах (перерешал зада по физике)
volvo намекнул -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
volvo |
Сообщение
#7
|
Гость |
Цитата(klem4 @ 22.02.05 15:29) a=1999999999,b=2000000000 все ок. Понимаешь, klem4, в задаче спрашивалось, сколько целых единичных квадратов могут поместиться в треугольнике. По твоему методу при a=200000 и b=1 какой ответ будет? А правильный ответ: 0, потому что нельзя засунуть в этот треугольник ни одного единичного квадрата... ;) |
klem4 |
Сообщение
#8
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Да, точно, а у меня просто нахождение площади.
Тогда решение через массив с помощью длинночисленной арифметики. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Altair |
Сообщение
#9
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Какой массив? ;)
-------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
klem4 |
Сообщение
#10
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Уж не знаю что там получится с дл арифметикой,еще с ней не работал, но мне кажется дальше для нахождения максимального числа целых квадратов решить можно через массив,
я так понял, что это будет кол-во элементов находящихся ниже(выше) главной диагонали...например Цитата 10000 01000 00100 00010 00001 Ну по крайней мере если нарисовать на бумаге в клетку так оно и есть )))) Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
klem4 |
Сообщение
#11
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Нет, я опять не прав ((((
Надо подумать еще.. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Михаил Густокашин |
Сообщение
#12
|
Новичок Группа: Пользователи Сообщений: 22 Пол: Мужской Репутация: 0 |
вот. в форуме не писал - все 25 раз проверил. только у меня Паскаля нет.
Код var a, b, i : longint; sum, tmp : extended; begin read(a, b); sum := 0; for i := 1 to a-1 do begin tmp := i; tmp := (tmp/a)*b; sum := sum + trunc(tmp); end; writeln(sum:0:0); end. Сообщение отредактировано: Михаил Густокашин - -------------------- учим школьников программированию (и математике до кучи): информация здесь: Webpage
|
Altair |
Сообщение
#13
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата за баги не пинать - пишу прямо в форуме): А правила приличия вам знакомы? читаем правила форума Цитата 8. Проверяйте программы перед тем, как запостить их!! А вдруг ошибка? -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Altair |
Сообщение
#14
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Михаил, а ваша программа-то не правильная...
рассмотрим случай когда стороны одна N другая 1. в такой треугольник не влезет ни одного единичного квадрата.... а ваша программа дает результат 1.... ;) -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Михаил Густокашин |
Сообщение
#15
|
Новичок Группа: Пользователи Сообщений: 22 Пол: Мужской Репутация: 0 |
Цитата(Oleg_Z @ 22.02.05 18:42) Михаил, а ваша программа-то не правильная... рассмотрим случай когда стороны одна N другая 1. в такой треугольник не влезет ни одного единичного квадрата.... а ваша программа дает результат 1.... ;) спасибо. сейчас исправлю. -------------------- учим школьников программированию (и математике до кучи): информация здесь: Webpage
|
Altair |
Сообщение
#16
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
offtop
ок. пожалуйста, в следующий раз все-таки не нарушайте правила... они для всех одинаковые. -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Altair |
Сообщение
#17
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата только у меня Паскаля нет. а что вы на форуме "Все о Паскале" делаете без Паскаля ? -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Михаил Густокашин |
Сообщение
#18
|
Новичок Группа: Пользователи Сообщений: 22 Пол: Мужской Репутация: 0 |
Цитата(Oleg_Z @ 22.02.05 18:59) а что вы на форуме "Все о Паскале" делаете без Паскаля ? я помогаю решить задачи, которые другие участники форума решить не могут. к сожалению, у вас принята система, что словестное описание решения недопустимо на этом форуме, поэтому приходится излагать мысли на паскале, который не мой родной язык. -------------------- учим школьников программированию (и математике до кучи): информация здесь: Webpage
|
klem4 |
Сообщение
#19
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Кстати ваша программа зависает при a,b=2000000000.(
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
Сообщение
#20
|
Гость |
Цитата(Михаил Густокашин @ 23.02.05 1:27) я помогаю решить задачи, которые другие участники форума решить не могут. Ну и как это понимать? Что же творилось на форуме, пока Вы не сделали нам одолжение и не начали решать задачи... Мы все сидели и ждали, когда же наконец придет Михаил Густокашин из ВМиК МГУ и научит нас, как все-таки задачи-то решать... Тем более на "не родном" языке... Ого, что же Вы тогда можете на _родном_ - то писать, страшно подумать... Только вот... Родной язык, я полагаю, у Вас русский? Извините, но... Цитата(Михаил Густокашин @ 23.02.05 1:27) я помогаю решить задачи, которые другие участники форума решить не могут. к сожалению, у вас принята система, что словестное описание решения недопустимо на этом форуме, поэтому приходится излагать мысли на паскале, который не мой родной язык. ... и это Родной Язык ... |
Текстовая версия | 14.05.2024 11:06 |