Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Basic > Форум QBasic
Восстановить пароль Регистрация

Ответ Создать новую тему
 
04.04.2011, 10:35   #1
Zaaza
Форумчанин
Регистрация: 04.04.2011
Сообщений: 57
Репутация: 1 (1)
Площадь треугольника по 3 сторонам / QBasic

Помогите пожалуйста выполнить задание на QBasic
Задание вот: http://s46.***********/i112/1104/bc/61e66d868587.png
04.04.2011, 10:35
AdAgent
Объявления
04.04.2011, 14:42   #2
-immortal-
Форумчанин
Регистрация: 31.01.2011
Сообщений: 105
Репутация: 60 (60)
Лучшие ответы: 3
Площадь треугольника по 3 сторонам / QBasic

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
насчет первого задания не уверен что все верно...
Другие темы раздела
QBasic Найти сумму элементов массива, больших квадрата первого элемента
Найти сумму элементов массива, больших квадрата первого элемента этого массива. Если таких элементов нет, выдать сообщение о неудачности поиска.
QBasic Определить , может ли шахматный король одним ходом перейти с одного заданного поля на другое
Здравствуйте. Пожалуйста помогите с решением следующих программ: 1)Даны действительные числа x,y,z. Вычислить значение min(2(x+y+z),xyz,(x+y)z)+1. 2)Даны координаты двух полей шахматной доски( в виде двух пар чисел от 1 до 8). Определить , может ли шахматный король одним ходом перейти с одного...
04.04.2011, 14:42
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Basic: Как найти площадь треугольника по трём сторонам и площадь круга по по его радиусу
Найдите площадь триугольника по трём сторонам и площадь круга по по его радиусу а-2,8см, b-3,6см c-4,1cм r-8,2см.
Basic Grenny 02.06.2013 22:35
Visual Basic: Найти площадь треугольника по 3 сторонам
Найти площадь треугольника по 3 сторонам. Если можно написать математическую модель и алгоритм и код программы
Visual Basic nikita7991 16.04.2013 20:30
JavaScript: Надо площадь треугольника по его сторонам a, b, c
Уважаемые знающие люди, помогите пожалуйста. задали по веб-программингу вот. Надо площадь треугольника по его сторонам a, b, c. вот собственно и всё. надо сделать в виде окошка, ну примерно вот такого если нужно вот пример похожей задачи заранее прощу прощения если такая тема уже была......
JavaScript Sashok1992 25.05.2012 23:18
Turbo Pascal: По сторонам треугольника найти площадь и периметр
По сторонам прямоугольного треугольника а,в,с найти площадь, затем периметр (если это возможно)
Turbo Pascal DJ Дина 14.01.2012 21:02
Pascal: Найти площадь треугольника по трем сторонам
найти площадь треугольника, если известны 3 стороны а,в,с нужно сначала проверить существует ли треугольник я написал: program q; var p,a,b,c:integer; s:real; begin p:=a+b+c;
Pascal (Паскаль) Ромус 20.09.2011 20:46
Опции темы

Текущее время: 19:32. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.