Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Pascal: массивы преподаватель задал решить до понедельника задачу у меня ничего не получается: Разработать процедуру для формирования из массива двоичных цифр массива десятичных чисел,каждое из которых равно трехрязрядному двоичному числу исходного массива. Используя Эту процедуру преобразовать каждую строку двоичного массива в десятичный код. https://www.cyberforum.ru/ pascal/ thread49504.html	Одномерный массив Pascal Здравствуйте, помогите построить блок - схему пожалуйста. Задача: Водномерном массиве, состоящая из n вещественных элементов, вычислить: 1. Кол - во элементов массива, меньше С. 2. Произведение только тех чисел, которые больше С. Если нет таких то выдать сообщение об этом. Заранее СПАСИБО!!!
Pascal Сформировать модуль, который сортирует по возрастанию дробные элементы массива https://www.cyberforum.ru/ pascal/ thread49443.html сформировать модуль, который сортирует по фазрастанию ДРОБНЫЕ элементы массива. заранее спасибо за помощь	Pascal График на паскале https://www.cyberforum.ru/ pascal/ thread49423.html Всем привет!!! Помогите пожалуйста! Нужен график к формуле Y=x(в кубе)*6 !!! За ранее благодарю!!!!!
Определить, какое место среди остальных займет новый ученик по росту Pascal Все здрасте, огромная просьба решить задачку,буду премного благодарен. 15 человек в классе, не 1 пара учеников не имеет одинакового роста.Пришел новый, какое место среди остальных он займет (по росту) Условный оператор не использовать.	Pascal работа с txt Удалить из файла самаю короткую строку(сформировать новый файл) https://www.cyberforum.ru/ pascal/ thread49382.html
Pascal Чтение и запись txt https://www.cyberforum.ru/ pascal/ thread49381.html В файле содержится программе на Паскале, каждый оператор записан с новой строки.Определить правильно ли записан оператор цикла с постусловием.	Pascal Кораблик Наверняка у кого то уже есть готовая графика! Домик машина корабль! Выложите пожалуйста
Pascal Отсортировать одномерный массив https://www.cyberforum.ru/ pascal/ thread49303.html Отсортировать одномерный массив по убыванию,используя процедуры перестановки местамизначений двух величин.	Pascal Текстовые файлы Здраствуйте...прошу помочь в проверке алгоритма и написания программы... Задание такое... "Дан текст содержащий слова резделенные знаками препинания. Написать программу которая оставляет в тексте только слова содержащие заданный символ." Вх.д F-файл B- заданный символ S-строка l-Длина строки Вых.д F-файл в котором содержаться слова с заданной буквой... https://www.cyberforum.ru/ pascal/ thread49282.html
Pascal Оказывается не все так просто.. (( Изначально задание выглядит так. Нарисовать координатную ось с графами и вывести на экран график функции. Пример такой y=x(в кубе=))-5. Целую пару потратил чтоб нарисовать этот гребаный график, подхожу счастливый гворю все вот типо нарисовал! А мне давай втирать что я не правильно сделал! Оказывается (как мне пояснил мой учитель) надо сделать так чтобы график вырисовывался сам! После...	Pascal условный оператор Ввести число от 0 до 1000.Определить количество цифр в числе. https://www.cyberforum.ru/ pascal/ thread49198.html

yanyk1n

4342 / 1474 / 680

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

Сообщений: 5,310

06.09.2009, 21:49

Удаление из текста слов - Pascal - Ответ 259797

06.09.2009, 21:49. Показов 3123. Ответов 19

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

Ответ

Pascal

program kkk;
uses crt;
const pp:set of char=[' ','?','!',':',';',',','.','_'];
        gl:set of char=['a','o','e','y','u','i','A','O','E','Y','U','I]';
var count,i,j:integer;
    f:boolean;
    st,buf:string;
    slova:array[1..100]of string;
 
begin
 clrscr;
 write('Stroka -> ');
 readln(st);
 count:=1;
 repeat
  if (st[1] in pp) or (length(st)=0) then while st[1] in pp do delete(st,1,1)
  else
  begin
   while not(st[1] in pp) and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  slova[count]:=buf;
  buf:='';
  inc(count);
  end;
 until (length(st)=0) and (length(buf)=0);
 
  st:='';
  for i:=1 to count-1 do
  if not(slova[i][1] in gl) then st:=st+slova[i]+' ';
  writeln(st);
 readln;
end.

Вернуться к обсуждению:
Удаление из текста слов Pascal

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

06.09.2009, 21:49

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

Из слов заданного текста составить цепочку слов максимальной длины
задача: Из слов заданного текста составить цепочку слов максимальной длины, в которой каждое...

Удаление слов из текста
Безуспешно пытаюсь решить эту задачу, гугл не помогает: Составьте программу вычеркивания из текста...

Удаление первых слов в каждом предложении текста
Совсем не понимаю, как это сделать! Помогите кто-нибудь?

Формирование массива слов и удаление из текста слов, которые встречаются заданное число раз
Доброго времени суток. Помогите, пожалуйста! Задача заключается в том, что нужно из введенного...

	06.09.2009, 21:49

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

06.09.2009, 21:49

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

Удаление слов из текста
Добрый день! есть задачка: Определить самое короткое слово в каждом предложении. Удалить эти слова...

Удаление слов из текста
Можно простой пример как правильно удалять слова из текста при помощи обычных строковых функций? В...

Удаление слов из текста
Дан текст. Из него нужно удалить слова определенные слова. Как реализовать сей код?

Удаление слов из текста...
Удалить слова из данного текстового файла, длина которых превышает задаваемое число n.Помогите...

Наверх