Rem BASIC-256 cls errors = 0 print "Введите текст > ";
rem Пользователь вводит текст input a$
rem Перебираем все буквы с начала и до предпоследней for i=1 to length(a$)-1
rem Если встречаем букву Ч или Щ if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then
rem Тогда проверяем следующую за ней букву. rem Если это буква я, тогда подсчитываем очередную ошибку if mid(a$, i + 1, 1) = "я" then errors = errors + 1 end if
rem Переходим к следующей букве next i
rem Вывод результата print "Количество ошибок в тексте "; print errors
a, b, c, d = float(input()), float(input()), float(input()), float(input())
array = [a, b, c, d] #Создаём массив, состоящий из 4 действительных чисел
FracPart = [a%1, b%1, c%1, d%1] #Создаём отдельный массив, состоящий из дробных частей исходных чисел
minimal = abs(min(FracPart)) #Переменной minimal присваиваем минимальное абсолютное значение между дробными частями
print('\nThe fractional part with the minimum absolute value is: ', round(minimal, 4))
"""Так как остаток от деления не целое число, то в цикле — переменную minimal мы округлим,
чтобы неточность перевода двоичного
в десятичный была не так уродлива.
"""
for i in range (len(array)):
#Из за этого нужно также округлить array[i], чтобы значения и вправду были друг другу равны, а не примерно
if round(array[i]%1, 4) == round(minimal, 4):
minFrPart = array[i] #В этой переменной хранится число, с минимальной дробной частью
print('The number with the minimum value of the fractional part among others is: ', minFrPart)
break