Форум программистов, компьютерный форум CyberForum.ru

QBasic

Войти
Регистрация
Восстановить пароль
 
Beloff9999
0 / 0 / 0
Регистрация: 28.12.2016
Сообщений: 15
#1

Найти площадь равнобедренной трапеции с основаниями А и В (А > В) и углом при большем основании А - QBasic

10.01.2017, 21:19. Просмотров 165. Ответов 1
Метки нет (Все метки)

1) Найти площадь равнобедренной трапеции с основаниями А и В (А > В) и углом  при большем основании А. Исходные данные ввести с клавиатуры или задать с помощью генератора случайных чисел. Вывести на экран изображение трапеции и результат вычислений.

Добавлено через 2 часа 51 минуту
Помогите решить очень срочно)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2017, 21:19     Найти площадь равнобедренной трапеции с основаниями А и В (А > В) и углом при большем основании А
Посмотрите здесь:

Найти площадь трапеции - QBasic
Найти площадь трапеции, в которой одно основание больше другого на 3 см, а высота в 1,5 меньше большего основания.

Определить площадь равнобочной трапеции - QBasic
Задача 1 Определить площадь равнобочной трапеции с основаниями а и b и углом z при большем основании a. Задача 2 Дано число b...

Определить площадь поверхности пирамиды с квадратом в основании; сторона квадрата и высота пирамиды равны b - QBasic
Определить площадь поверхности пирамиды с квадратом в основании; сторона квадрата и высота пирамиды равны b.

Найти площадь сектора - QBasic
Здравствуйте. Помогите решить задачку, оч надо) Найти площадь сектора, радиус которого равен R, а дуга содержит  радиан. Исходные...

Найти площадь треугольника - QBasic
1) Дана сторона равностороннего треугольника. Найти площадь этого треугольника. Длину стороны ввести с клавиатуры или задать с помощью...

Найти площадь трегольника - QBasic
1) Дана сторона равностороннего треугольника. Найти площадь этого треугольника. Длину стороны ввести с клавиатуры или задать с помощью...

Найти периметр и площадь треугольника - QBasic
1) Заданы координаты трех вершин треугольника (x1, y1), (х2, y2), (x3, y3). Найти его периметр и площадь. 2) Написать программу, которая...

Найти гипотенузу и площадь треугольника - QBasic
на рисунке должен быть изображен дождь или снег, дом с окном и дверью, и дерево график-рис 6

Найти площадь квадрата, вписанного в окружность - QBasic
Ребят, помогите с задачкой. Окружность вписана в квадрат заданной площади. Найти площадь квадрата, вписанного в эту окружность. Во сколько...

Найти площадь боковой поверхности куба - QBasic
1) Дана длина ребра куба. Найти площадь боковой поверхности куба. Длину ребра куба ввести с клавиатуры или задать с помощью генератора...

Найти площадь пересечения трёх кружочков - QBasic
Помогите написать программку в QBASIC!!!! Дано три кружочка(они все пересекаються), нужно найти площадь пересечения всех трёх...

Найти периметр и площадь прямоугольного треугольника с катетами a и b - QBasic
Найти периметр и площадь прямоугольного треугольника с катетами a и b.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
11.01.2017, 10:48     Найти площадь равнобедренной трапеции с основаниями А и В (А > В) и углом при большем основании А #2
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
CLS
RANDOMIZE TIMER
CONST pi = 3.141593
 
B = 100 * RND + 50
A = B + 100 * RND
F = 30 + 45 * RND
H = (A - B) / 2 * TAN(pi / 180 * F)
S = (A + B) / 2 * H
 
SCREEN 11
WINDOW (-200, 150)-(200, -150)
 
LINE (-A / 2, -H / 2)-(A / 2, -H / 2)
LINE (-B / 2, H / 2)-(B / 2, H / 2)
LINE (-A / 2, -H / 2)-(-B / 2, H / 2)
LINE (A / 2, -H / 2)-(B / 2, H / 2)
 
PRINT "S ="; S
END
Yandex
Объявления
11.01.2017, 10:48     Найти площадь равнобедренной трапеции с основаниями А и В (А > В) и углом при большем основании А
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru