Площадь равнобедренного треугольника

23.12.2010, 02:45. **Показов** 2683. **Ответов** 4

Студворк — интернет-сервис помощи студентам

помогите пожалуйста решить задачу. пишу код приложения,а он не работает
Разработать информационную технологию, позволяющую исследовать изменение значений площади равнобедренного треугольника при измене-нии основания а от начального значения a0 до конечного значения ak с шагом дельта a и боковой стороны b от начального значения b0 до конечного значения bk с шагом дельта b.Для отладки принять: a0 = 0,2, ak = 2, a = 0,2; b0 = 12, bk = 20, b = 4.
заранее благодарю.

@Vlanib · 23.12.2010, 05:26

Евгения, а давайте ваш код сюда. Посмотрим всем миром, что у вас не выходит.

23.12.2010, 23:40

Private Sub Command1_Click()
Dim a As Single, a0 As Single, ak As Single, da As Single
Dim b As Single, b0 As Single, bk As Single, db As Single
Dim s As Single
a0 = InputBox("Введите начальную длину стороны А")
ak = InputBox("Введите конечную длину стороны А")
da = InputBox("Введите изменение длины А")
b0 = InputBox("Введите начальную длину стороны Б")
bk = InputBox("Введите конечную длину стороны Б")
db = InputBox("Введите изменение длины Б")
Print "a", "b"; Spc(25); "s"
For a = a0 To ak Step da
For b = b0 To bk Step db
s = (a * b) / 2
Print a, b; Spc(25); s
Next b
Next a
End Sub
в ответ программа выдаёт мне окно об ошибке..

@gaw · 23.12.2010, 23:57

попробуйте Val(Replace(InputBox"Введите начальную длину стороны А" , ",","."))
ну и для др.

@Vlanib · 24.12.2010, 05:59

Если вы вводите корректные значения, то программа должна работать без ошибок. По крайней мере у меня никаких ошибок не возникло.

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

Евгения199328

	Площадь равнобедренного треугольника 23.12.2010, 02:45. Показов 2683. Ответов 4 Метки нет (Все метки) помогите пожалуйста решить задачу. пишу код приложения,а он не работает Разработать информационную технологию, позволяющую исследовать изменение значений площади равнобедренного треугольника при измене-нии основания а от начального значения a0 до конечного значения ak с шагом дельта a и боковой стороны b от начального значения b0 до конечного значения bk с шагом дельта b.Для отладки принять: a0 = 0,2, ak = 2, a = 0,2; b0 = 12, bk = 20, b = 4. заранее благодарю.

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	23.12.2010, 05:26
	Евгения, а давайте ваш код сюда. Посмотрим всем миром, что у вас не выходит. 0

Евгения199328
	23.12.2010, 23:40
	Private Sub Command1_Click() Dim a As Single, a0 As Single, ak As Single, da As Single Dim b As Single, b0 As Single, bk As Single, db As Single Dim s As Single a0 = InputBox("Введите начальную длину стороны А") ak = InputBox("Введите конечную длину стороны А") da = InputBox("Введите изменение длины А") b0 = InputBox("Введите начальную длину стороны Б") bk = InputBox("Введите конечную длину стороны Б") db = InputBox("Введите изменение длины Б") Print "a", "b"; Spc(25); "s" For a = a0 To ak Step da For b = b0 To bk Step db s = (a * b) / 2 Print a, b; Spc(25); s Next b Next a End Sub в ответ программа выдаёт мне окно об ошибке..

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	23.12.2010, 23:57
	попробуйте Val(Replace(InputBox"Введите начальную длину стороны А" , ",",".")) ну и для др. 0

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	24.12.2010, 05:59
	Если вы вводите корректные значения, то программа должна работать без ошибок. По крайней мере у меня никаких ошибок не возникло. 0