Помогите с задачами на TP, помогите с 2 задачами Опции

[InFuz]

1) Определить, находятся ли две точки А(х1, у1) и В(х2, у2) в одном квадранте или находятся в разных квадрантах. Напечатать, в каких квадрантах они находятся.
Даже не знаю как к ней подступиться (IMG:style_emoticons/default/huh.gif)

2) Даны три резистора R1, R2, R3, соединенные параллельно, к которым подключен источник напряжения U. Не сгорят ли они, если максимальная мощность рассеивания каждого резисора составляет W ватт?
Единственное что помню из школы 1/R=(1/R1)+(1/R2)+(1/R3); W=I^2R; Рассеваемая мощность - это мощность, которую резистор может рассеять без повреждения; I=U/R.

Помогите пожалуста!
За ранее спасибо!

[tig81]

Правила форума
Ждем ваших наработок.

[Dimka]

1) легко без проблем. Сами подумайте при каких условиях точки будут лежат в разных и одинаковых квадрантах.

2)
Мощность каждого из резисторов
P1=U^2/R1, если P1>W1, то сгорит, иначе не сгорит
для остальных резисторов аналогично. Теперь это осталось запрограммировать.

[InFuz]

к первой я вот так наковырял
program GPS;
uses crt;
var a,b,x1,x2,y1,y2:integer;
Begin clrscr;
writeln ('zadaite (x,y) dl9 A');
readln (x1,y1);
if (x1>0) and (y1>0) then a:=1;
if (x1>0) and (y1<0) then a:=4;
if (x1<0) and (y1>0) then a:=2;
if (x1<0) and (y1<0) then a:=3;
writeln ('zadaite (x,y) dl9 B');
readln (x2,y2);
if (x2>0) and (y2>0) then b:=1;
if (x2>0) and (y2<0) then b:=4;
if (x2<0) and (y2>0) then b:=2;
if (x2<0) and (y2<0) then b:=3;
if a=b then writeln ('A i B v odnom kvadrante');
if a<>b then writeln ('A i B v raznix kvadrantax');
writeln ('A naxodits9 v ',a,' kvadrante');
writeln ('B naxodits9 v ',b,' kvadrante');
readln;
end.
квадранты это же вроде четверти окружности в системе (х,у) или нет?

[тень]

вы извините я программирую на другом языке. Но учитывая интернациональность if then else по алгоритму Вы правы.
Ну, а в ситаксисе я не судья
Квадранты это не четверти окружности, а области, разделяемые
осями координат (2мерный случай, прямоугольная система координат).
Но как мнемоника сойдут и четверти окружности. Лишь бы результат
был правильный.

[Dimka]

к первой я вот так наковырял
program GPS;
uses crt;
var a,b,x1,x2,y1,y2:integer;
Begin clrscr;
writeln ('zadaite (x,y) dl9 A');
readln (x1,y1);
if (x1>0) and (y1>0) then a:=1;
if (x1>0) and (y1<0) then a:=4;
if (x1<0) and (y1>0) then a:=2;
if (x1<0) and (y1<0) then a:=3;
writeln ('zadaite (x,y) dl9 B');
readln (x2,y2);
if (x2>0) and (y2>0) then b:=1;
if (x2>0) and (y2<0) then b:=4;
if (x2<0) and (y2>0) then b:=2;
if (x2<0) and (y2<0) then b:=3;
if a=b then writeln ('A i B v odnom kvadrante');
if a<>b then writeln ('A i B v raznix kvadrantax');
writeln ('A naxodits9 v ',a,' kvadrante');
writeln ('B naxodits9 v ',b,' kvadrante');
readln;
end.
квадранты это же вроде четверти окружности в системе (х,у) или нет?

теперь это нужно запустить, ввести данные и посмотреть результат.

[InFuz]

ну вроде работает, вот пример результата для одного из случаев
А и Б в разнык квадрантах
А находится в 1 квадранте
Б находится в 3 квадранте

[InFuz]

напомните еще бездарю как число напечатать наоборот,
составил прогу для 3-ого числа, а можно ли чтобы одна программа могла печатать наоборот число из любого количества цифр не выдавая при этом лишние нули

program bl;
uses crt;
var a,b,d,e,z,u:integer;
begin
clrscr;
write('Vvedite chislo (xxx):'); readln(a);
e:=0;
for z:=1 to 3 do
begin
d:=1;
b:=a mod 10;
a:=a div 10;
for u:=z to 2 do
d:=d*10;
e:=e+d*b;
end;
writeln(e);
readkey;
end.

конечно можно эту подгонять, но если ты не знаешь какое число получиться, то неудобно

[Julia]

Используйте условный цикл. Т.к. вы используете целочисленное деление на 10, то количество цифр в числе при каждом проходе цикла уменьшается, отсюда - составьте условие.

[InFuz]

Все все задачи сделал, все сдал.
Всем спасибо!
Если будут новые непонятные проги буду сдесь спрашивать.