Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Файл содержит буквы латинского алфавита. Подсчитать количество букв 'р' в файле. https://www.cyberforum.ru/ pascalabc/ thread513317.html Огромная просьба, помогите, пожалуйста, решить 3 задачи(пожалуйста,если можно, без go to и в Pascal ABC): 1)Разработать программу с реализацией файлов Файл содержит буквы латинского алфавита....	Трехпутевое слияние Pascal ABC Вообщем объясняю суть(зада4а на трехпутевое слияние): Во первых на с4ет самих элементов компьютер спрашивает у пользователя как он будет вводить с клавиатуры или сгенирировать рандомно?Потом...
Pascal ABC Цифровая сортировка Вообщем объясняю суть(цифровая сортировка): Во первых на с4ет самих элементов компьютер спрашивает у пользователя как он будет вводить с клавиатуры или сгенирировать рандомно?Потом спрашивает... https://www.cyberforum.ru/ pascalabc/ thread513266.html	Pascal ABC Вычислить произведение чисел в каждом столбце. N<=10, M<=5 как составить блок-схему? Вычислить произведение чисел в каждом столбце. N<=10, M<=5 как составить блок-схему? %-) https://www.cyberforum.ru/ pascalabc/ thread513188.html
система линейных уравнений методом вращения Pascal ABC ребят помогите чайнику решить систему линейных уравнений методом вращения 3х1+2х2+х3=4 х1+х2-х3=1 х1-2х2+х3=3 Добавлено через 28 минут в VB могу сделать, а в паскале нет (( Пожалуйста...	Pascal ABC Создать файл, содержащий сведения о сотрудниках университета Вот задали контрольную работу на дом, она как допуск к экзамену, не могли бы вы мне помочь сделать ее ? тема записи и их сортировка ! вот условие КР Создать файл, содержащий сведения о... https://www.cyberforum.ru/ pascalabc/ thread513128.html
Pascal ABC Выдать на экран сообщение, попадет ли в круг площадью S(см2) с центром в начале координат точка с координатами (x, y). Всем доброго времени суток. Мне нужна ваша помощь в решении задачь! Я в этом ничего не соображаю. Кому не сложно помогите. Заранее БОЛЬШОЕ СПАСИБО! Вот условие. 2. Выдать на экран сообщение,... https://www.cyberforum.ru/ pascalabc/ thread513088.html	Найти ошибку в программе Pascal ABC (Дана строка. Словом текста считается любая последовательность букв русского алфавита; между соседними словами - не менее одного пробела, за последним словом – точка. Найти и сохранить в строке те...
Pascal ABC В заданом символьном рядке подщитать самую длиную последовательность заданого символа. Вывести слово с этим символом и количество вхожений в него дано https://www.cyberforum.ru/ pascalabc/ thread513069.html В заданом символьном рядке подщитать самую длиную последовательность заданого символа. Вывести слово с этим символом и количество вхожений в него даного елемента.	Pascal ABC Ввести символьный рядок. Сформирировать и вывести рядок елементы которого знаки операций отношения и символы: $ * № https://www.cyberforum.ru/ pascalabc/ thread513067.html Ввести символьный рядок. Сформирировать и вывести рядок елементы которого знаки операций отношения и символы: $ * №
Pascal ABC Задача на строки Задача №1: Ввести символьный рядок. Сформирировать и вывести рядок елементы которого знаки операций отношения и символы: $ * №. Задача №2: В заданом символьном рядке подщитать самую длиную...	Pascal ABC Дана строка. разбить её на две строки, одна должна содержать гласные, другая - согласные https://www.cyberforum.ru/ pascalabc/ thread513037.html Дана строка. разбить её на две строки, одна должна содержать гласные, другая - согласные. Реализовать процедурой

Фаер

792 / 398 / 260

Регистрация: 09.12.2011

Сообщений: 786

Записей в блоге: 29

06.03.2012, 16:17

Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D - Pascal ABC - Ответ 2765241

06.03.2012, 16:17. Показов 3043. Ответов 2

Метки (Все метки)

Сообщение было отмечено log1tec как решение

Решение

Pascal

Var s,p:string[25]; i,j,k:integer;
Begin
Writeln('Input string:'); Readln(s);
For i:=1 to length(s) do
 If not(s[i]=' ') and not (i=length(s)) then p:=p+s[i]
  Else
   Begin
    If i=length(s) then p:=p+s[length(s)];
    For j:=1 to length(p) do If p[j]='D' then inc(k);
    If k=2 then Write(p,' ');
    k:=0; p:='';
   End;
Readln;
End.

Вернуться к обсуждению:
Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D Pascal ABC

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

06.03.2012, 16:17

Готовые ответы и решения:

Строка: Вывести все слова строки, содержащие ровно две буквы d.
(язык программирования Си) ................................................. Здравствуйте!), ...

В предложении найти и вывести на экран все слова, содержащие ровно две буквы “d”
Всем привет! Помогите написать программу! В предложении найти и вывести на экран все слова,...

Дана строка содержащая текст заканчивающийся точкой. Вывести на экран слова содержащие 3 буквы
Дана строка содержащая текст заканчивающийся точкой. Вывести на экран слова содержащие 3 буквы. ...

С++ Дана строка содержащая текст заканчивающийся точкой. Вывести на экран слова содержащие 3 буквы
ребята, буду очень благодарна за программу! и если не сложно, добавьте комментарии. но можно и...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

06.03.2012, 16:17

Помогаю со студенческими работами здесь

Дано предложение, состоящее не менее чем из 5 слов. Напечатать все слова из предложения, содержащие ровно две буквы "d".
Помогите пожайлуста решить лабу: Дано предложение, состоящее не менее чем из 5 слов. ...

Дана строка, заканчивающийся точкой. Вывести на экран через запятую слова, содержащие три буквы
Задание: Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран через запятую...

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три...

Наверх