Составить программу в Pascal ABC?

Justeeek100500 2 сент. 2020 г., 09:10:15

Var s, w : string ; i, ls, lw, p, n : integer ;

begin Write('Введите текст из трех слов : ') ; Readln(s) ; Write('Введите искомое слово : ') ; Readln(w) ; ls : = Length(s) ; lw : = Length(w) ; n : = 0 ; i : = 1 ; p : = Pos(w, s) ; while p > ; 0 do begin n : = n + 1 ; i : = p + lw + 1 ; s : = Copy(s, i, ls - i + 1) ; ls : = Length(s) ; p : = Pos(w, s) end ; if n = 0 then Writeln('Искомое слово не встречается в тексте') else if n = 1 then Writeln('Искомое слово встречается 1 раз') else Writeln('Искомое слово встречается ', n, ' раза')

end.

Тестовое решение :

Введите текст из трех слов : Мама мыла раму

Введите искомое слово : Папа

Искомое слово не встречается в тексте

Введите текст из трех слов : Мама мыла раму

Введите искомое слово : мыла

Искомое слово встречается 1 раз

Введите текст из трех слов : ааа ббббб ааа

Введите искомое слово : ааа

Искомое слово встречается 2 раза.

Nfd 1 июн. 2020 г., 18:38:57 | 10 - 11 классы

Помогите пожалуйста составить программу на ''Pascal ABC'') Дана строка, содержащая текст на русском языке, и некоторая буква?

Помогите пожалуйста составить программу на ''Pascal ABC'') Дана строка, содержащая текст на русском языке, и некоторая буква.

Подсчитать, сколько слов начинается с указанной буквы.

Ira19791 7 февр. 2020 г., 18:56:34 | 10 - 11 классы

Даны четыре слова одинаковой длины?

Даны четыре слова одинаковой длины.

Напечатать сообщение о наличии или отсутствии одинаковых слов и это слово( в программе pascal).

89671631134vova 21 апр. 2020 г., 18:29:27 | 10 - 11 классы

В заданном тексте перевернуть каждое слово Программу сделать с помощью процедур Текст набить вручную(не больше 10 слов)?

В заданном тексте перевернуть каждое слово Программу сделать с помощью процедур Текст набить вручную(не больше 10 слов).

Pascal.

Massimka 26 авг. 2020 г., 14:18:08 | 10 - 11 классы

Определить сколько слов в заданной строке начинаются на букву "а"?

Определить сколько слов в заданной строке начинаются на букву "а".

Pascal.

Varvaralavrova 25 авг. 2020 г., 20:19:24 | 10 - 11 классы

Помогите составить программу в Pascal?

Помогите составить программу в Pascal!

Задана последовательность слов.

Определить частоту вхождения каждого из слов в последовательность.

Qazxswedc2014 11 июл. 2020 г., 02:56:10 | 10 - 11 классы

Программа в Pascal ABC?

Программа в Pascal ABC.

С клавиатуры вводится два слова.

Надо вывести на экран те буквы, которые есть и в одном и во втором слове (печатать буквы без повторений).

Лапоток 13 авг. 2020 г., 13:28:16 | 1 - 4 классы

Pascal abc помогите ?

Pascal abc помогите .

Составить программу.

Анюффка5 4 мая 2020 г., 05:11:23 | 5 - 9 классы

Напишите программу в pascal, которая в текст перед словом "большой" вставляет слово "очень"?

Напишите программу в pascal, которая в текст перед словом "большой" вставляет слово "очень".

Damnepofig 23 апр. 2020 г., 01:14:13 | 5 - 9 классы

Написать програму в Pascal : Проверить, является ли заданное слово названием времени года ( по программе Pascal)?

Написать програму в Pascal : Проверить, является ли заданное слово названием времени года ( по программе Pascal).

Xtreme999 9 сент. 2020 г., 13:53:39 | 10 - 11 классы

Нужно написать прогу в Pascal ABC?

Нужно написать прогу в Pascal ABC.

В заданном тексте заменить все слова A1 на слова A2 (слова в тексте разделены пробелами слова A1 и A2 вводятся с клавиатуры).