0 / 0 / 0
Регистрация: 09.02.2013
Сообщений: 3
1

Программа и блок схема

09.02.2013, 01:18. Показов 2575. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Составить блок-схему и программу алгоритма для решения задачи, включающей ввод исходных данных, организацию цикла и выбора по заданному условию.
Изображения
Помогите!!!!! Очень нужно.... я пыталась что то написать, но как то не идет программа, вот что у меня получилось...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Dim x As Single, y As Single, m As string
Private Sub Command1_Click()
m = inputBox (''Введите число от 0.1 до 1.5'')
For x = 0.1 To 1.5 Step 0.1
  If x > 0.8 Then
    y = (x ^ 2) + 9 * (x ^ 2) * 16 * (Tan(x)) ^ 2
  ElseIf x <= 0.8 Then
    y = Tan(x) + Sin(16 / 2)
    Print y
  End If
Next
End Sub
Миниатюры
Программа и блок схема  
0
09.02.2013, 01:18
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
09.02.2013, 01:18
Ответы с готовыми решениями:

программа и блок схема
составить блок схему и программу в паскале. Тех процесс состоит из 4х операций. Их продолжительность 5, 10, 15. 5 минут. контрольная...

Блок-схема и программа на С
Блок-схема и программа на С. Помогите составить блок-схему и программу на С. Даны натуральные числа i, j, действительная матрица 18х24...

Программа и блок схема
Составить адресный список на языке С

6
 Аватар для Апострофф
9883 / 3893 / 737
Регистрация: 11.10.2011
Сообщений: 5,868
09.02.2013, 07:05 2
Расставил теги и отступы (у Вас тоже) и все стало ясно
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Dim x As Single, y As Single ', m As string
Private Sub Command1_Click()
'm = inputBox (''Введите число от 0.1 до 1.5'') - ЭТО ЗАЧЕМ?
For x = 0.1 To 1.5 Step 0.1
  If x > 0.8 Then
'   y = (x ^ 2) + 9 * (x ^ 2) * 16 * (Tan(x)) ^ 2
    y = (x ^ 2) + 9 * (x ^ 2)  * Tan(x^ 2) 
  Else 'If x <= 0.8 Then - можно и не сравнивать.
    y = Tan(x) + Sin(16 / 2)
    'Print y - почему только здесь?
  End If
  PRINT "X = " & X, "Y = " & Y
Next
End Sub
1
0 / 0 / 0
Регистрация: 09.02.2013
Сообщений: 3
09.02.2013, 18:42  [ТС] 3
Спасибо огромное!!!! только у меня вопрос как пользователь будет вводить число, ведь это необходимо для того чтобы сработало условие
0
 Аватар для Апострофф
9883 / 3893 / 737
Регистрация: 11.10.2011
Сообщений: 5,868
09.02.2013, 18:56 4
Какое число? На Вашей картинке всё предопределено...
0
0 / 0 / 0
Регистрация: 09.02.2013
Сообщений: 3
09.02.2013, 19:03  [ТС] 5
Составить блок-схему и программу алгоритма для решения задачи, включающей ввод исходных данных, организацию цикла и выбора по заданному условию. разве не нужно ввести х?
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18021 / 7722 / 892
Регистрация: 25.12.2011
Сообщений: 11,500
Записей в блоге: 16
09.02.2013, 23:09 6
anna250, может они с данными перестарались.
Попробуйте вводить A и B вручную.
И на будущее: строковые данные обрамляются двойными обычными кавычками, а не удвоенными одинарными.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Private Sub Command1_Click()
  Dim x As Single, y As Single, a As single, b as single
  a = val(inputBox ("Введите число a"))
  b = val(inputBox ("Введите число b"))
  For x = 0.1 To 1.5 Step 0.1
    If x > 0.8 Then
      y = x ^ 2 + a * x ^ 2  * Tan(x^2) 
    Else
      y = Tan(x) + Sin(b / 2)
    End If
    PRINT "X = " & X, "Y = " & Y
  Next
end sub
0
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
10.02.2013, 02:10 7
Тут есть засада. Попробуйте
Visual Basic
1
2
3
4
5
6
Sub bb()
Dim x As Single
For x = 0.1 To 1.5 Step 0.1
    Debug.Print x, x > 0.8
Next
End Sub
Результат
Код
 0,1          False
 0,2          False
 0,3          False
 0,4          False
 0,5          False
 0,6          False
 0,7          False
 0,8000001    True
 0,9000001    True
 1            True
 1,1          True
 1,2          True
 1,3          True
 1,4          True
Как видите, и при 0,8 неверно, и до 1,5 цикл не доходит
Тип Double не помогает, Currency - помогает:
Visual Basic
1
2
3
4
5
6
Sub bb()
Dim x As Currency
For x = 0.1 To 1.5 Step 0.1
    Debug.Print x, x > 0.8@
Next
End Sub
результат
Код
 0,1          False
 0,2          False
 0,3          False
 0,4          False
 0,5          False
 0,6          False
 0,7          False
 0,8          False
 0,9          True
 1            True
 1,1          True
 1,2          True
 1,3          True
 1,4          True
 1,5          True
Добавлено через 4 минуты
Недавно было: 1,8 + 0,1 не равняется 1,9
1
10.02.2013, 02:10
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
10.02.2013, 02:10
Помогаю со студенческими работами здесь

Блок схема и программа
1. Составьте блок-схему и программу вычисления значения функции: http://www.klyaksa.net/htm/kopilka/did_mat_kotenok/images/image006.gif ...

Программа и блок-схема
Составить блок-схему и программу, x ввести с клавиатуры, вывод сделать в виде x=0.178: F(0.178) =1.234 Вывести с точностью до тысячных

Блок-схема и программа
Привет всем! Мне нужно решить задачку (карточка №10, номер 1), но у меня появляются некоторые проблемы в составлении блок-схемы и...

Программа и блок схема
Составить программу и блок схему

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


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Ошибка "Cleartext HTTP traffic not permitted" в Android
hw_wired 13.02.2025
При разработке Android-приложений можно столнуться с неприятной ошибкой "Cleartext HTTP traffic not permitted", которая может серьезно затруднить отладку и тестирование. Эта проблема особенно. . .
Изменение версии по умолчанию в NVM
hw_wired 13.02.2025
Node Version Manager, или коротко NVM - незаменимый инструмент для разработчиков, использующих Node. js. Многие сталкивались с ситуацией, когда разные проекты требуют различных версий Node. js,. . .
Переименование коммита в Git (локального и удаленного)
hw_wired 13.02.2025
Git как система контроля версий предоставляет разработчикам множество средств для управления этой историей, и одним из таких важных средств является возможность изменения сообщений коммитов. Но зачем. . .
Отличия Promise и Observable в Angular
hw_wired 13.02.2025
В веб-разработки асинхронные операции стали неотъемлимой частью почти каждого приложения. Ведь согласитесь, было бы странно, если бы при каждом запросе к серверу или при обработке больших объемов. . .
Сравнение NPM, Gulp, Webpack, Bower, Grunt и Browserify
hw_wired 13.02.2025
В современной веб-разработке существует множество средств сборки и управления зависимостями проектов, каждое из которых решает определенные задачи и имеет свои особенности. Когда я начинаю новый. . .
Отличия AddTransient, AddScoped и AddSingleton в ASP.Net Core DI
hw_wired 13.02.2025
В современной разработке веб-приложений на платформе ASP. NET Core правильное управление зависимостями играет ключевую роль в создании надежного и производительного кода. Фреймворк предоставляет три. . .
Отличия между venv, pyenv, pyvenv, virtualenv, pipenv, conda, virtualenvwrapp­­er, poetry и другими в Python
hw_wired 13.02.2025
В Python существует множество средств для управления зависимостями и виртуальными окружениями, что порой вызывает замешательство даже у опытных разработчиков. Каждый инструмент создавался для решения. . .
Навигация с помощью React Router
hw_wired 13.02.2025
React Router - это наиболее распространенное средство для создания навигации в React-приложениях, без которого сложно представить современную веб-разработку. Когда мы разрабатываем сложное. . .
Ошибка "error:0308010C­­:dig­ital envelope routines::unsup­­ported"
hw_wired 13.02.2025
Если вы сталкиваетесь с ошибкой "error:0308010C:digital envelope routines::unsupported" при разработке Node. js приложений, то наверняка уже успели поломать голову над её решением. Эта коварная ошибка. . .
Подключение к контейнеру Docker и работа с его содержимым
hw_wired 13.02.2025
В мире современной разработки контейнеры Docker изменили подход к созданию, развертыванию и масштабированию приложений. Эта технология позволяет упаковать приложение со всеми его зависимостями в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru