| Автор | Современные информационные технологии. Оновы программировани |
|---|
Народ, кто может, помогите.
Проболел долгое время, пропустил пару семинаров.Теперь от меня требуют срочно сдать 7 работ до конца недели или с заявлением в деканат.
Не решены ещё 3 задачи.Не могу понять , как их делать
1)a и b катеты прямоугольного треугольника.Найти с ( гипотенуза ) и Р ( периметр )
2)Система
y=3*a*a ( x<0 )
y=4*a*x-1 (x>=0 )
3)Даны два целых числа A и B ( A<B ).Вынести в порядке убывания все целые числа, расположенные между A и B
( не включая A и B ), а также кол-во N этих чисел.
P/S работа в Borland Delphi 7
Заранее благодарю. |
а в универе у кого-то спросить не судьба?
сделали форум для дз |
| Если бы, но для каждого созданы варианты с различными заданиями.Всех обошел, нет ни у кого аналогичных задач |
| Вам в раздел ДЗ.Нет-нет,тут такого нету. |
| Сначала реши математически, потом уже легче будет. |
1) матмодель: с = корень(a*a + b*b), P = a*b/2;
2) не понял. Различное вычисление по логическому условию?;
3) цикл от B до A, не включительно, выводить счётчик цикла. При каждой итерации прибавлять единичку к изначально нулевой переменной N, потом вывести её значение как количество. |
| Пиши заявление - и в деканат. |
1)a и b катеты прямоугольного треугольника.Найти с ( гипотенуза ) и Р ( периметр )
с=sqrt(a*a+b*b)
P=a+b+c
прогу надеюсь сам напишешь?
3)Даны два целых числа A и B ( A<B ).Вынести в порядке убывания все целые числа, расположенные между A и B
( не включая A и B ), а также кол-во N этих чисел.
c:=a+2;
n:=0;
for i:=b downto c do
write(b-1);
n:=n+1; |
Гугление проблемы во все времена её решало.
- Obersturmbannfuhrer Maugan Ra |
write(b-1);
тьфу, конечно же (i-1) =) |
P=a+b+c
Действительно, я ошибся. Это S = a*b/2... ну и ещё там был синус угла. |
для Doctor_Kon:
2) Одно вычисление.
Я же говорю система y=3*a*a( x<0 )
=4*a*x-1 (x>=0 ) |
для REWesker:
С(3)разобрался.
Благодарю |
для Артей:
2) Э... тогда как-то так:
readln(x);
if x < 0 then y = 3*a*a; //для вещественных наверно x < 0.0
else y = 4*a*x-1;
writeln (y); |
| *ну и ":=" вместо '='. |
для Doctor_Kon:
Спасибо, со (2) тоже справился :) |
| Borland Delphi 7 современные инофрмационные технологии. да ужжж.... |
