Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
Zaaza
Форумчанин
1 / 1 / 0
Регистрация: 04.04.2011
Сообщений: 57
04.04.2011, 10:35     Площадь треугольника по 3 сторонам   #1
Помогите пожалуйста выполнить задание на QBasic
Задание вот: http://s46.***********/i112/1104/bc/61e66d868587.png
AdAgent
Объявления
04.04.2011, 10:35    Площадь треугольника по 3 сторонам
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2011, 10:35    Площадь треугольника по 3 сторонам

Посмотрите здесь:

QBasic определить площадь треугольника

QBasic Построить треугольник по 3 данным сторонам!

QBasic вычисление периметра треугольника и площади

QBasic Построение треугольника

QBasic определить вид треугольника по трем его сторонам

QBasic Найти размеры треугольника

QBasic Вычислить площадь треугольника(по любой из известных формул)

QBasic Вычислите периметр и площадь прямоугольного треугольника по двум катетам

QBasic Нахождения гипотенузы прямоугольного треугольника

QBasic Вычислить периметр и площадь треугольника

-immortal-
Форумчанин
60 / 60 / 3
Регистрация: 31.01.2011
Сообщений: 105
04.04.2011, 14:42     Площадь треугольника по 3 сторонам   #2
2)
Код PureBasic
1
2
3
4
5
6
7
CLS
INPUT "1 storona-"; a
INPUT "2 storona-"; b
INPUT "3 storona-"; c
p = (a + b + c) / 2
s = SQR(p * (p - a) * (p - b) * (p - c))
PRINT "S="; s
Добавлено через 3 минуты
с проверкой условия:
Код PureBasic
1
2
3
4
5
6
7
8
CLS
1 INPUT "1 storona-"; a
INPUT "2 storona-"; b
INPUT "3 storona-"; c
IF a > (b + c) OR b > (c + a) OR c > (a + b) THEN PRINT "Takogo treugolnika net!!!": GOTO 1
p = (a + b + c) / 2
s = SQR(p * (p - a) * (p - b) * (p - c))
PRINT "S="; s
Добавлено через 11 минут
1)
Код PureBasic
1
2
3
4
5
6
7
8
9
10
CLS
DATA 2,4
e = 2.71
FOR i = 1 TO 2
    READ x
    y = (SIN((x - 2) ^ (1 / 5)) + e ^ (2 - x))
    y = y / (2 * (COS(x - 2)) ^ 2 * (x - 2))
    y = y * (4 - x)
    PRINT y
NEXT
или:
Код PureBasic
1
2
3
4
5
6
7
8
9
10
11
CLS
e = 2.71
INPUT "kol-vo X"; n
FOR i = 1 TO n
    PRINT
    INPUT "x-"; x
    y = (SIN((x - 2) ^ (1 / 5)) + e ^ (2 - x))
    y = y / (2 * (COS(x - 2)) ^ 2 * (x - 2))
    y = y * (4 - x)
    PRINT y
NEXT
насчет первого задания не уверен что все верно...
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 09:55. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.