Информатика в задачах, примерах, алгоритмах

11. Файлы. Работа с файлами

Close #1

Debug.Print s 'Возвращаем преобразованный текст 'замена слово Валерий на В.К.Алиев

s1 = “” 'здесь накапливаем преобразованную строку

For i = 1 To Len(s) + 1 'Обход по всем символам строки s

If Mid(s1, nsimb - 4, 4) = “Валерий” Then s1 = Left(s1, nsimb - 6) + “В.К.Алиев” nsimb = Len(s1) 'запоминаем длину s1

chz = chz + 1 'на одну замену больше

End If End If

Next i

'Открыть файл для записи

Open “a:\Contr.txt” For Output As #1

Print #1, s1 'записываем преобразованный текст

MsgBox (“Количество замен в выделенном тексте= ” _ + Str(chz))

End Sub

Sub otl()

'Прога создает отладочный файл на диске А:\Contr.txt 'данные берутся из выделенного фрагмента документа

Dim s As String

s = Selection.Text

'Открыть файл для записи

Open “a:\Contr.txt” For Output As #1 Print #1, s 'записываем текст Debug.Print s 'печатаем текст

Close #1

End Sub

141

Информатика в задачах, примерах, алгоритмах

Задачи

325.Написать программу, которая запрашивает с клавиатуры пять наименований животных и записывает их в файл на диске.

326.Написать программу, которая запрашивает с клавиатуры пять наименований геометрических фигур и записывает их в файл на диске.

327.Написать программу, которая запрашивает с клавиатуры пять десятичных чисел и записывает их в файл на диске в формате “Пять цифр в целой части и две цифры в дробной части”.

328.Написать программу, которая запрашивает с клавиатуры три числа и записывает их в файл на диске в порядке возрастания.

329.Написать программу, которая подсчитывает в текстовом файле число слогов. Слогом считать набор букв не менее двух, в котором есть одна гласная.

12.Разные задачи

330.Двенадцать человек несут 12 хлебов. Каждый мужчина несет по два хлеба, каждая женщина несет по половине хлеба, каждый ребенок несет по четверти хлеба. Сколько было мужчин, женщин и детей?

Ответ: 5 мужчин, 1 женщина и 6 детей.

331.Верно ли, что данное натуральное число начинается и закан- чивается одной и той же цифрой?

332.Верно ли, что каждая следующая цифра натурального трехзначного числа на единицу больше предыдущей?

333.Подсчитать количество всех натуральных чисел, меньших m, квадрат суммы цифр которых равен õ.

Ответ: Ïðè m = 1000 è õ = 400 таких чисел 36.

142

12. Разные задачи

334. Для двух данных чисел (a,b) найти среднее арифметическое кубов (C) этих чисел и среднее арифметическое модулей (D) этих чисел.

Ответ:

335. Используя вспомогательный алгоритм определения количества делителей натурального числа, определить на отрезке [a,b] число Ê с наибольшим количеством делителей. (Делителем натурального числа M называется такое натуральное число 1 <= m <= M, на которое число M делится без остатка)

Ответ:

143