Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Pascal ABC Массив: Определить количество учеников, оценка которых меньше средней оценки по классу 1.В массиве записаны оценки по информатике 22 учеников класса. Определить количество учеников, оценка которых меньше средней оценки по классу, и вывести номера элементов массива, соответствующих таким ученикам. https://www.cyberforum.ru/ pascalabc/ thread444952.html Pascal ABC Сложение двух двоичных чисел - разобрать код
выделленную часть не могу понять программа производит сложение двух двоичных чисел var sr, sf, ss: string; function BinAdd(s1, s2: string): string; var s: string; l, i, d, carry: byte; begin {выравнивание строк по длине}
Pascal ABC Определить является ли заданное число степенью числа 5 https://www.cyberforum.ru/ pascalabc/ thread444927.html
первая задача 1. Даны последовательность вещественных чисел a1,a2,…,a15, упорядоченная по возрастанию, и число, не равное ни одному из чисел последовательности и такое, что a1<n<a15. Вывести все числа последовательности, меньшие n. вторая задача 2. Определить является ли заданное число степенью числа 5.Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов... 		Pascal ABC Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры https://www.cyberforum.ru/ pascalabc/ thread444923.html
1. Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Пример: 1234нет.|1224да. 2. Известны сведения о количестве осадков, выпавших за каждый день мая. Первого мая осадков не было. Определить, в течение какого количества первых дней месяца непрерывно, начиная с первого мая, осадков не было. УСЛОВНЫЙ оператор не использовать. рассмотреть случай, в...
Pascal ABC Перевод из DOS на Pascal. Помощь новичку.
Доброго времени суток товарищи форумчане. Я новичок в этой теме. Но очень хочу научиться программировать. В лицее дали мне задание: перевести древний код DOS на Pascal. Точнее, изменить устаревшие команды на более новые. А также исправление ошибок. Собственно, вот код: program kurs_progect; uses graph,crt; procedure zo(color:integer); 		Pascal ABC НЕ могу найти ошибку.Табулирование https://www.cyberforum.ru/ pascalabc/ thread444797.html
var a,b,h,y,x:real; S1,S2,S3:string; P1,P2,P3:integer; begin write ('Vvedite a:='); readln(S1); write ('Vvedite b:='); readln(S2); write (' Vvedite h:=');
Pascal ABC модель движения ядра выпущенного из пушки Создать модель движения ядра(шара),выпущенного из пушки. https://www.cyberforum.ru/ pascalabc/ thread444790.html Поменять местами второй положительный и последний отрицательный элементы массива Pascal ABC
составить программу, которая в линейной таблице из 10 элементов, заданных случайно на отрезке меняет местами второй положительный и последний отрицательный элементы.
Pascal ABC Построить одну из кривых, заданную в полярных координатах Нужно построить одну из кривых, заданную в полярных координатах. Ответ в виде текста программы. https://www.cyberforum.ru/ pascalabc/ thread444754.html Pascal ABC Найти наибольшее из трех значений Напишите программу, которая считывает три вещественных значения и сооб-щает о том, какое из введенных значений наибольшее. Предусмотреть возмож-ность равенства всех или некоторых введенных значений. Вроде просто, а в чём баг не могу понять. program two_2; uses crt; var a:array of integer; i,max,rav: integer; begin for i:=1 to 3 do begin https://www.cyberforum.ru/ pascalabc/ thread444730.html
Pascal ABC Работа со строковыми переменными.
Задача №1. Дан текст. Удалить в нём третью букву каждого слова. Задача №2. В заданном тексте заменить последовательность символов Х(I) на А(I) и подсчитать число произведённых замен. 		Pascal ABC Если число нечетное и его удвоение не выходит до 32767, то удвоить его Дано натуральное число n, если число нечетное и его удвоение не выходит до 32767, то удвоить его, иначе оставить без изменения. https://www.cyberforum.ru/ pascalabc/ thread444568.html
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
12.02.2012, 16:09 0

Входит ли данное слово в указанный текст, и если да, то сколько раз - Pascal ABC - Ответ 2482866

12.02.2012, 16:09. Показов 6122. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено teac2011 как решение

Решение

Цитата Сообщение от teac2011 Посмотреть сообщение
2. Дана строка, содержащая текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

uses crt;
var s,sl,sc: string;
    i,k: integer;
    p: set of char;
begin
p:=[' ',',','.',':',';','-','!','?'];
write('Строка: ');
readln(s);
write('Слово: ');
read(sl);
s:=' '+s+' ';
for i:=1 to length(s) do
    begin
    sc:=copy(s,i,length(sl));
    if (sl=sc) and (s[i-1] in p) and (s[i+length(sl)] in p)
       then inc(k);
    end;
if k=0 then writeln('слово "',sl,'" не встречается')
   else writeln('слово "',sl,'" встречается ',k,' раз(а)');
end.


Вернуться к обсуждению:
Входит ли данное слово в указанный текст, и если да, то сколько раз Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 12.02.2012, 16:09
Готовые ответы и решения:

Текстовые файлы. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз
Дан файл, подержащий текст на русском &quot;языке.&quot; Выяснить, входит ли данное слово в указанный текст,...

Определить, входит ли заданное слово в указанный текст и если да то сколько раз?
дана строка содержащая текст на русском языке выяснить входит ли данное слово в указанный текст и...

Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз.
Дан файл ,содержащий произвольный текст на русском языке. Выяснить, входит ли данное слово в...

Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз
Public Sub text1() Open &quot;in.txt&quot; For Input As #1 a = InputBox(&quot;Введите слово&quot;) s = 0 Do While...

1
12.02.2012, 16:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 12.02.2012, 16:09
Помогаю со студенческими работами здесь

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

Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз
Дана строка, содержащая текст на русском языке. Выяснить, входит ли данное слово в указанный текст,...

Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз
Задание: Дан файл, содержащий текст. Выяснить, входит ли данное слово в указанный текст, и если да,...

Дана строка содержащая текст. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз
Дана строка содержащая текст. Выяснить, входит ли данное слово в указанный текст, и если да, то...

Дан файл, содержащий текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз
Дан файл, содержащий текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и...

Дан файл, содержащий текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз
...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru