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

Ответ Создать новую тему
 
04.04.2011, 10:35   #1
Zaaza
Форумчанин
Регистрация: 04.04.2011
Сообщений: 57
Репутация: 1 (1)
Помогите пожалуйста выполнить задание на 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
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
Опции темы

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

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