IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Программирование условий и циклов, (заголовок изменен)
Lamer Master
сообщение 8.11.2005 23:53
Сообщение #1





Группа: Пользователи
Сообщений: 8
Пол: Мужской
Реальное имя: Лёшка

Репутация: -  0  +


первая задача на (на условия) использовать только програмирование условий.

"Точки в одной полуплоскости"
Даны действительные числа x1,y1,x2,y2,x3,y3,x4,y4.
известно, что точки (х3,у3) и (х4,у4) различны. Известно также, что точки
(х1,у1) и (х2,у2) не лежат на прямой L, проходящей через точки (х3,у3) и (х4,у4). Прямая L разбивает координатную плоскость на две полуплоскости.
Выяснить, верно ли, что точки (х1,у1) и (х2,у2) принадлежат одной и той же полуплоскости.


и вторая задачка (на циклы) использовать только циклы.
"Сумма трёх квадратов"
Дано натуральное число n. Можно ли представить его в виде суммы трёх квадратов натуральных чисел? Если можно, то указать все различные тройки x,y,z таких натуральных чисел, что n=х в квадрате + у в квадрате + z в квадрате .


Вот собственно и всё..
помогите разобратся плиз !!

ведь не страшно быть ламером, а страшно им остатся !
а я тока учусь..

М
Lamer Master, я изменил название темы... В следующий раз давай более подходяший заголовок !!!
volvo

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 5)
Altair
сообщение 8.11.2005 23:57
Сообщение #2


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


1. лежат ли 2 точки с одной стороны прямой.

2. попробуй для начала перебором.

название темы редактируй.
правила фоурма читай.


p.s.
2

{Дано натуральное число n. Можно ли представить его в виде суммы трёх
квадратов натуральных чисел. Если можно, то укaзать числа X,Y,Z такие что
N=X*X+Y*Y+Z*Z
}
var
n: byte; {Входной параметр}
i,j,k: byte; {Счётчики циклов}
begin
{Вводим n}
write('Введите параметр n: ');
readln(n);
{Подсчитываем варианты}
writeln('Варианты:');
for i:=0 to n do
for j:=0 to n do
for k:=0 to n do
if i*i+j*j+k*k = n then
writeln('X=',i,' Y=':5,j,' Z=':5,k,' ':5,i,'*',i,'+',j,'*',j,'+',
k,'*',k,'=',n)
end.


Сообщение отредактировано: Altair - 9.11.2005 0:04


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 10.11.2005 19:22
Сообщение #3


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Похожая задача, думаю можно переделать для 3-х слагаемых

4-й пост Volvo


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lamer Master
сообщение 11.11.2005 14:11
Сообщение #4





Группа: Пользователи
Сообщений: 8
Пол: Мужской
Реальное имя: Лёшка

Репутация: -  0  +


а это можно реализовать без использования функции ?
только одними условиями, их перебором например..

мне необходимо всё только условиями сделать wacko.gif

Сообщение отредактировано: Lamer Master - 11.11.2005 14:34
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 11.11.2005 15:08
Сообщение #5


Гость






Цитата
а это можно реализовать без использования функции ?

Можно, конечно... В чем проблема? Просто избавляемся от функции:
var
x1, x2, x3, x4: real;
y1, y2, y3, y4: real;

begin
(*
Так точки №3 и №4 лежат по одну сторону от прямой,
проведенной через точки №1 и №2:
*)
{
x1 := 0; x2 := 5; x3 := 2; x4 := 3;
y1 := 0; y2 := 5; y3 := 4; y4 := 8;
}

(*
А вот так - №3 и №4 лежат по разную сторону от прямой ...
*)
x1 := 0; x2 := 5; x3 := 2; x4 := 10;
y1 := 0; y2 := 5; y3 := 4; y4 := 2;

if x1 <> x2 then begin
if (y3-y1+(y1-y2)*(x3-x1)/(x2-x1))*(y4-y1+(y1-y2)*(x4-x1)/(x2-x1)) > 0
then writeln('По одну сторону') else writeln('По разные стороны')
end

else begin
if (x3-x1)*(x4-x2) > 0 then writeln('По одну сторону')
else writeln('По разные стороны')
end

end.
 К началу страницы 
+ Ответить 
Lamer Master
сообщение 11.11.2005 15:17
Сообщение #6





Группа: Пользователи
Сообщений: 8
Пол: Мужской
Реальное имя: Лёшка

Репутация: -  0  +


Спасибо !! а то мне ещё всё не очень понятно..
так как програмированием раньше не занимался smile.gif
у меня просто необходимость стоит выполнять или условиями или циклами и ни как иначе!

З.Ы.
give_rose.gif пасибо smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 2:41
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"