Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
goodpalace
0 / 0 / 0
Регистрация: 09.04.2017
Сообщений: 6
1

Программа free basic

02.05.2017, 14:39. Просмотров 505. Ответов 4
Метки нет (Все метки)

В исходной строке a, состоящей из цифр, определить среднее арифметическое цифр, входящих в строку. Вывести результат.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.05.2017, 14:39
Ответы с готовыми решениями:

Free Basic. Проверить программу
Работаю на Джини, но он, по каким-то неведомым причинам, не компилирует. Free Basic нигде...

нужно написать программу в Free Basic
Написать программу распечатки результатов раздачи игральных карт из колоды (по шесть карт трем...

Найти среднее арифметичесое на Free Basic
В группе n-курсантов. h-рост каждого курсанта. Если рост h<130см, то обходят курсанта стороной, то...

Определить сумму старших цифр числа (Free Basic)
Задача 3. Даны натуральные числа т и п. Определить сумму старших т цифр числа п. Задача 4. Дано...

Нужна программа Basic !
Пожалуйста выложите программу BASIC я хочу научиться программированию!

4
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
02.05.2017, 17:08 2
goodpalace
Здесь форум QBasic. А вам нужно в общий форум Basic.
Но ваша задача простая.
1. Берете цикл
2. В цикле "вынимаете" из строки по одной цифре
3. там же (в цикле) и суммируете их
4. выйдя из цикла, находите среднее арифметическое
...
(я не знаю free basic...)
0
Pro_grammer
02.05.2017, 19:53
  #3

Не по теме:

Цитата Сообщение от echs Посмотреть сообщение
я не знаю free basic
Не скромничайте. Простой код на QBasic прекрасно запускается и на FB, там есть режим совместимости.

0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
02.05.2017, 20:40 4
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
 
DIM S AS STRING
S = "1234567890"
n = LEN(S)
 
FOR i = 1 TO n
   SA = SA + VAL(MID$(S, i, 1))
NEXT
 
PRINT "SREDNEE ARIFMETICHESKOE ="; SA / n
END
0
Замабувараев
349 / 355 / 93
Регистрация: 18.12.2014
Сообщений: 722
Записей в блоге: 1
05.05.2017, 02:37 5
Исходник нужно сохранить в юникоде UTF-16 или UTF-8.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
' Исходная строка
Const StringWithDigits = "0123456789"
' Вспомогательная переменная для обхода строки
Dim w As Wstring Ptr = @StringWithDigits
' Накопительная сумма чисел
Dim Sum As Integer
 
' Счётчик количества цифр в строке
Dim i As Integer
' Обойти все символы в строке до тех пор, пока не встретим нулевой
Do While w[i] <> 0
    ' Получить код символа
    Dim char As Integer = w[i]
    ' Код ноля 48
    ' Если из кода символа вычесть код ноля, то будет нужное число
    ' Считаем сумму
    Sum += char - 48
    i += 1
Loop
 
' Среднее арифметическое
Dim Average As Single = Sum / i
Print "Среднее арифметическое цифр", Average
0
05.05.2017, 02:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.05.2017, 02:37

Разветвляющаяся программа на GW BASIC
Помогите с составлением. 2 Составить программу по следующему сценарию: Умеете ли вы...

программа на Visual Basic 6
сделал программу, все работает Dim A() As Integer Dim n As Integer Private Sub...

Программа в Word на Visual Basic
Помогите с заданием пожалуйста. Нужно составить программу, которая бы на введенные значения X и Y...


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

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

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