Вопрос № 113620: День добрый, эксперты!.....нужна помощ по решению 6 задач...вот они...
1) три действительных числа. возвести в квадрат те из них, значение которых неотр. и в четвертую-отриц.
2)две точки А(х1,у1) и В(х2, у2). составит алгоритм, определяющ., к...
Вопрос № 113.620
День добрый, эксперты!.....нужна помощ по решению 6 задач...вот они...
1) три действительных числа. возвести в квадрат те из них, значение которых неотр. и в четвертую-отриц.
2)две точки А(х1,у1) и В(х2, у2). составит алгоритм, определяющ., которая из точек находится ближе к началу координат
3)даны два угла треуг.(градусы) опр. сущ, ли такой треуг. если да, то прямоуг. ли он?
4)действительние числа х и у, не равные друг другу.меньшее из этих двух чисел заменить половинной их суммы, а болшее-их удвоенным произведением
5)на плоскости ХОУ задана своими координатами точка А. Указать где она расположена: на какой оси или в каком координатном угле
6)даны целые числа м,н. если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных,а если равны,то заменить числа нулями
Отправлен: 12.12.2007, 16:28
Вопрос задал: Gurik_12 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: SHERRY
Здравствуйте, Gurik_12!
Вот набросал некоторые задачки. Решения пронумерованы соответственно задачам. Коментрарий, думаю, излишен, т.к. задачи элементарные.
Приложение:
--------- Наши программисты самые программистые программисты!..
Ответ отправил: SHERRY (статус: 5-ый класс)
Ответ отправлен: 12.12.2007, 17:01
Отвечает: Tribak
Здравствуйте, Gurik_12!
2 задача
program www;
var
x1,x2,y1,y2,r1,r2:real;
begin
write('Xa=');readln(x1);
write('Ya=');readln(y1);
write('Xb=');readln(x2);
write('Yb=');readln(y2);
r1:=sqrt(sqr(x1)+sqr(y1));
r2:=sqrt(sqr(x2)+sqr(y2));
if r1 < r2 then write('A blije');
if r2 < r1 then write('B blije');
if r1=r2 then write('ODINAKOVO');
readln;
end.
6 задача
program www;
uses crt;
var
n,m:real;
begin
clrscr;
write('n=');readln(n);
write('m=');readln(m);
if n=m then begin n:=0; m:=0; end;
if n>m then m:=n;
if m>n then n:=m;
writeln(n);
writeln(m);
readln;
end.
Ответ отправил: Tribak (статус: 6-ой класс)
Ответ отправлен: 12.12.2007, 17:53
