Задать вопрос
8 января, 05:16

Разработать фрагмент урока и программу.

Необходимо при чтении файла в Memo1 после всех слов вывести строку с сообщением о количестве прочитанных слов, например:

"Прочитано 10 слов".

При поиске в Memo2 тоже вывести сообщение:

"Найдено 5 слов"

Для вывода этих сообщений необходимо воспользоваться командами перевода целых чисел в символьный вид:

Sk:=inttostr (k) ; - sk - строка, k - целое число.

Кроме того нужно для получения результата сложить отдельные части

результирующей строки, например: s:=s+s1+s2;

Программу можно написать в среде визуального проектирования Lazarus и на языке Паскаль.

+5
Ответы (1)
  1. 8 января, 07:57
    0
    Можно попробовать через функцию Pos (Что ищем (Char), где ищем (строка)). Возвращает позицию символа (больше 0).

    Итак примерный код такой:

    //циклом проверяем наличие пробелов в строке и записываем позицию в переменную.

    var words, position:integer;

    while Pos (" ", text) 0 do

    begin

    position:=Pos (" ", text) ;

    Delete (text, position, 1) ; / / удаляем символы из строки с Позиции, в кол-ве 1 штука

    Words:=words+1;

    end;

    как то так.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Разработать фрагмент урока и программу. Необходимо при чтении файла в Memo1 после всех слов вывести строку с сообщением о количестве ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Устройства ввода сообщений. Устройства вывода сообщений. Устройства ввода и вывода сообщений.
Ответы (2)
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
Задан двумерный массив, имеющий N строк и M столбцов. Определите, является ли строка номер N1 равной строке номер N2. Если ДА - вывести Yes и сумму элементов строки N1. Если НЕТ - вывести No и сумму элементов строки N2.
Ответы (1)
Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", если равно 0 - "Число равно нулю" задача 2 - дано целое число.
Ответы (1)
1) дана строка S определить и напечатать сколько символов * 2) дана строка S вместо каждого символа * записать символы 0 Напечатать полученную строку 3) дана строка S получить и напечатать строку Т образуемую путем прочтения строки S начиная с ее
Ответы (1)