Функция eof принимает значение 1, если конец файла и 0 – в противном случае. Аргументом функции является порядковый номер файла.
22. Задания
Создать программу, которая записывает в файл все простые числа до N , которое задаётся пользователем
Создать программу, которая указывала бы все возможные комбанации получения кроны из центов
50 центов |
20 центов |
10 центов |
5 центов |
0 |
0 |
0 |
20 |
0 |
0 |
1 |
18 |
Чтобы получить колонки, удобно данные поместить в файл так:
PRINT #1, A, B, C, D. Удобно также записать PRINT #1, "50 сентов", "20 сентов», "10 сентов», "5 сентов".
Создать функцию пользователя LOENDA(failinimi$,), которая читала бы из файла failinimi$ частоту появления буквы a$. Файл для чтения должен быть создан в Notepad. Основная программа показывает частоту вхождения разных букв в файл.
С
оздать
графическую программу расположения
на экране точек, удовлетворяющих
условию:
где N – натуральное число.
Создать графическую программу(SCREEN 12)., которая закрашиавает экран разноцветными точками. Цвет выбирается из условия VARV=10 * SIN(50 * x * y), где x и y –переменные (x меняется от 0 до 639, а y от 0 до 479).
Создать программу, которая находила бы все числа, похожие на 3025, для которых верно:
30 + 25 = 55 55^2 = 3025. Использовать функции VAL, STR$, MID$, LTRIM$,LEFT$ ja RIGHT$.
Найти все 4-х значные натуральные числа, которые при чтении в обратном порядке дают число в 4,5 раз большее.
Создать в Excel функцию пользователя LOENDAFAILIST(Failinimi, Taht), которая считала бы частоту вхождения буквы Taht в файл Failinimi. Сохранить это файл 8.xls.
23. Создание функции пользователя в Excel с помощью Visual Basic
Для создания функции пользователя выбираем в меню Tools, Macro, Visual Basic Editor. Затем Insert, Module. Здесь пишем текст программы на Бейсике, например, программу для подсчёта частоты вхождения заданной буквы в текст:
Function LOENDAFAILIST(failinimi$, a$)
Open failinimi$ For Input As #1
Do
Line Input #1, tekst$
For x = 1 To Len(tekst$)
If a$ = Mid$(tekst$, x, 1) Then mitu = mitu + 1
Next
LOENDAFAILIST = mitu
Loop Until EOF(1)
Close #1
End Function
Внутри кнопки fx среди пользовательских функций User defined появляется функция LOENDAFAILIST(failnimi$, a$) с двумя аргументами. В качестве первого аргумента пишем адрес текста, в котором надо подсчитать количество заданных букв, в качестве второго аргумента в кавычках букву, частоту которой в тексте надо подсчитать, например, =LOENDAFAILIST("c:\MyDocu~1\Galina\LOE.txt";"a") и ОК.