Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Двумерный массив. Определить, есть ли строка, содержащая больше положительных элементов, чем отрицательных https://www.cyberforum.ru/ pascalabc/ thread568003.html
Дан двумерный массив размером n*m заполненный случайными числами.определить есть ли в данном массиве строка,содержащая больше положительных элементов,чем отрицательных Program mn; uses crt; const N=5; M=7; var a:array of integer; x,i,j:integer; Begin randomize(); for i:=1 to N do for j:=1 to M do
Вывести значения функции. Составить процедуру рисования изображения Pascal ABC
2 варианта почти ничем неотличаются мне хотябы 1 и 2 номер зделайте плиз во 2 задании сказано что нужно создать процедуру но мы их еще не проходили сказали зделать в циклах zombine229, Хорош флудить в этой теме, есть новые вопросы, создавай новые темы, еще одно слово в этой теме и накажу.
Pascal ABC Поворот вокруг точки
всем доброго времени суток, целый час ломал голову как сделать поворот вокруг точки, а не вокруг начла координат, чего я только не пробовал, у меня получился поворот лишь вокруг начала координат,... uses graphabc; var x,y,x1,y1,i: integer; f: real; begin SetWindowSize(700,500); lockdrawing; setPenWidth(6); x:=350; y:=250; for i:=1 to 1000 do
Процедуры и функции. Вычислить произведение элементов массива с четными номерами Pascal ABC
В одномерном массиве,состоящем из n целых элементов ,вычислить: а) произведение элементов массива с четными номерами; б) сумму элементов массива ,расположенных между первыми и последним нулевыми...
Pascal ABC Дан массив символов. Вывести на экран сначала все цифры, а затем все остальные символы Пожалуйста, напишите решение (PABC) Дан массив из k символов. Вывести на экран сначала все цифры, входящие в него, а затем все остальные символы, сохраняя при этом взаимное расположение символов в... https://www.cyberforum.ru/ pascalabc/ thread568078.html Pascal ABC Текстовые файлы. Найдитеошибки на правописание чк-чн, нч-нщ https://www.cyberforum.ru/ pascalabc/ thread567874.html
Проанализировав созданный текстовый файл, найдите в нем ошибки на правописание чк-чн, нч-нщ. Создайте текстовый файл слов с ошибками. Исправьте ошибки в исходном файле. Если ошибок в файле нет,...
ГрафАВС Pascal ABC
Ребята)помогите пожалуйста...)помощь оч ваша нужна,т.к сама не могу сделать( Есть такая игра,связанная с бусами,стратегия победы такова:начальное количество бусинок берется кратное 3-м,начинает...
Pascal ABC Текстовые файлы. Вывести строки данного файла, содержащие одинаковые слова
Тема текстовыъ файлов..Решите срочно пожалуйста
Pascal ABC Процедуры и функции. Получить все члены последовательности b,которые входят в последовательность a https://www.cyberforum.ru/ pascalabc/ thread567933.html
даны натуральные числа n и m,целые числа а1,а2,..аn;b1,b2,..bm.среди тех и тех нет повторяющихся.получить все члены последовательности b,которые входят в последовательность a.упорядочить элементы... const n=12; m=5; var a: array of integer; b: array of integer; c: array of integer; i,j,cm: integer; begin randomize; write('A: '); for i:=1 to n do begin...
Pascal ABC Записи и Типизированные файлы. Структура: : название товара, цена, количество... https://www.cyberforum.ru/ pascalabc/ thread567872.html
Файл содержит информацию о наличии товаров: название товара, цена единицы товара, количество, датавыпуска, конечная дата использования. Составить программу вывода на экран
Pascal ABC Двумерные массивы. Заменить все элементы, меньшие суммы элементов первой строки, на эту сумму В двумерном массиве целых чисел заменить все элементы, меньшие суммы элементов первой строки на эту сумму. procedure process(var A : TMatr; n, m : integer); // Процедура заменяет в матрице А, все элементы, меньшие суммы элементов первой строки на эту сумму \0 var i, j : integer; sum : integer;... https://www.cyberforum.ru/ pascalabc/ thread567862.html Pascal ABC Подпрограммы. Найти три тройки квадратов чисел, не имеющих общего делителя https://www.cyberforum.ru/ pascalabc/ thread567881.html
Нетрудно указать тройку квадратов целых чисел, образующих арифметическую прогрессию: 1, 25, 49. Найдите еще три такие тройки (из квадратов чисел, не имеющих общего делителя, т. е. взаимно простых). const max=100; var n,i,i1,i2,i3,f: longint; b: boolean; begin for i1:=1 to max-2 do begin for i2:=i1+1 to max-1 do begin for i3:=i2+1 to max do begin ...
 Аватар для Krot-buterbrod
88 / 88 / 75
Регистрация: 21.08.2011
Сообщений: 151
07.05.2012, 22:18 0

Удалить из текста все слова, которые содержат хотя бы одну латинскую букву - Pascal ABC - Ответ 3002815

07.05.2012, 22:18. Показов 1605. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Kursant_999 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var st,s,t: string;
    i: integer;
    b: boolean;
begin
     readln(st); st:=st+' ';
     repeat
           b:=false;
           for i:=1 to pos(' ',st) do
               if ((st[i]<='z') and (st[i]>='a')) or ((st[i]<='Z') and (st[i]>='A')) then b:=true;
           if b=false then s:=s+copy(st,1,pos(' ',st));
           delete(st,1,pos(' ',st));
     until st='';
     st:=s;
     writeln(st);
end.


Вернуться к обсуждению:
Удалить из текста все слова, которые содержат хотя бы одну латинскую букву Pascal ABC
2
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
07.05.2012, 22:18
Готовые ответы и решения:

Вывести все слова, которые содержат хотя бы одну букву е
Вывести все слова, которые содержат хотя бы одну букву е

Удалить все слова, которые содержат хотя бы одну латинскую букву
Подскажите, почему не работает программа, пожалуйста. :scratch:#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include...

Вывести все слова, которые содержат хотя бы одну букву k
Помогите пожалуйста, начали изучать С# в универе, в первой же лабе есть задание со строками: Дана строка(вводится с клавиатуры). Вывести...

2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
07.05.2012, 22:18
Помогаю со студенческими работами здесь

Дана строка. Вывести на экран все слова, которые содержат хотя бы одну букву k
Дана строка. Вывести на экран все слова, которые содержат хотя бы одну букву k.

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

Указать те слова, которые содержат хотя бы одну букву k
Помогите решить задачу что-бы зачёт получить Дана строка. Указать те слова, которые содержат хотя бы одну букву k.

Указать слова, которые содержат хотя бы одну букву К
Дана строка. Указать те слова, которые содержат хотя бы одну букву К. (паскаль) помогите пожалуйста решить

Указать те слова, которые содержат хотя бы одну букву k
Дана строка. Указать те слова, которые содержат хотя бы одну букву k. import java.util.Scanner; public class E2 { public...

0
Новые блоги и статьи
Рекурсивные типы в Python
stackOverflow 19.02.2025
Рекурсивные типы данных представляют собой особую категорию структур, которые определяются через самих себя или через взаимные ссылки друг на друга. Такие типы играют важнейшую роль при создании. . .
Распознавание улыбки на Python с помощью OpenCV, Keras и TensorFlow
stackOverflow 19.02.2025
Компьютерное зрение и распознавание эмоций становятся все более востребованными технологиями. Они находят применение в самых разных областях - от систем безопасности до пользовательских интерфейсов и. . .
Распознавание капчи на Python с помощью глубокого обучения, Keras и TensorFlow
stackOverflow 19.02.2025
Развитие технологий глубокого обучения и компьютерного зрения создало интересный парадокс - системы, изначально разработанные для защиты от автоматизации, теперь могут быть преодолены с помощью. . .
Анализ тональности на Python
stackOverflow 19.02.2025
Анализ тональности текста (Sentiment Analysis) - одно из наиболее востребованных направлений в обработке естественного языка, которое позволяет автоматически определять эмоциональную окраску. . .
Обнаружение аномалий в машинном обучении на Python
stackOverflow 19.02.2025
Аномалии — это отклонения от ожидаемого поведения системы, которые могут указывать как на потенциальные проблемы, так и на интересные возможности для исследования. В контексте машинного обучения. . .
Введение в представления (views) Django
stackOverflow 19.02.2025
Представления (views) - ключевой элемент веб-фреймворка Django, который отвечает за обработку HTTP-запросов и формирование ответов. Они действуют как посредники между данными приложения и шаблонами,. . .
Что такое шаблоны Django и как с ними работать
stackOverflow 19.02.2025
Шаблоны Django - основополагающий компонент фреймворка Django, который позволяет эффективно разделять логику приложения и его визуальное представление. Это очень важный инструмент для. . .
Какой Python Web-фреймворк лучший: Django, Flask или FastAPI?
stackOverflow 19.02.2025
В разработке под веб Python занимает особое место благодаря своей универсальности и богатой экосистеме. При создании веб-приложений разработчики сталкиваются с важным выбором - какой фреймворк. . .
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией и Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru