Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Отсортировать 3-ий столбец матрицы (4х2) по убыванию https://www.cyberforum.ru/ turbo-pascal/ thread2450233.html Отсортировать 3-ий столбец матрицы по убыванию методом пузырька	Turbo Pascal Нарисовать рисунок нарисовать рисунок в графическом режиме
Turbo Pascal Нарисовать рисунок Нарисовать рисунок как на картинке https://www.cyberforum.ru/ turbo-pascal/ thread2449906.html	Turbo Pascal Составить программу, которая имитирует блуждающие звезды https://www.cyberforum.ru/ turbo-pascal/ thread2449785.html Составить программу, которая имитирует: а) блуждающие звезды (звезды появляются на некоторое время в выбранном случайным образом месте экрана и исчезают) б) падение звезд (на фоне звездного неба...
На экране изображен прямоугольник. Необходимо предоставить возможность управления его размерами и положением Turbo Pascal На экране изображена прямоугольник. Необходимо предоставить возможность управления его размерами и положением: клавиша ">" увеличивает ширину на 5 точек; клавиша "<" уменьшает ширину на 5 точек;...	Turbo Pascal Определить, принадлежит ли точка внутренней области квадрата https://www.cyberforum.ru/ turbo-pascal/ thread2449279.html Определить, принадлежит ли точка внутренней области квадрата с правой верхней вершиной в точке с координатами (a, b) и со стороной С. Вывести на экран и записать в файл «output.txt» координаты...
Turbo Pascal Переименовать село или нет? Составить позволяющую объективно оценить на основании вопроса: переименовать село Ваденск в Керенск или нет? Опросить 10 человек. (Задача на массивы). Если голосов за переименования села в Керенск... https://www.cyberforum.ru/ turbo-pascal/ thread2449158.html	Turbo Pascal Найти количество слов содержащих букву й (massiv) дана строка нужно найти сколько слов содержит букву й
Turbo Pascal Перевод с Pascal на C++ program Project1; uses crt; const n=5; var i, j, start: integer; visited: array of boolean; const graph: array of byte = ((0, 0, 0, 0, 1), (1, 0, 0, 0, 0), https://www.cyberforum.ru/ turbo-pascal/ thread2449048.html	Turbo Pascal Проверить упорядочены ли элементы столбцов матрицы. Если нет, то упорядочить их в порядке убывания методом стандартного https://www.cyberforum.ru/ turbo-pascal/ thread2448817.html Дана действительная матрица размерности (nхn) Проверить упорядочены ли элементы столбцов матрицы. Если нет, то упорядочить их впорядке убывания методом стандартного обмена.
Найти минимальное из чисел, встречающихся в матрице более двух раз Turbo Pascal Дана действительная матрица размерности (nхn). Найти минимальное из чисел, встречающихся в матрице более двух раза.	Turbo Pascal Заменить все отрицательные элементы матрицы их квадратами, положительные - их кубами, нулевые элементы заменить на -1 https://www.cyberforum.ru/ turbo-pascal/ thread2448813.html Дана действительная матрица размерности (nхn). Заменить все отрицательные элементы массива их квадратами, положительные - их кубами, нулевые элементы заменить на -1.

Puporev

Почетный модератор

64275 / 47574 / 32739

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

Сообщений: 115,182

10.05.2019, 08:57

Ввести с клавиатуры строку S1 длиной до семидесяти символов. В строку S2 перенести все слова которые имеют удвоение бук - Turbo Pascal - Ответ 13557763

10.05.2019, 08:57. Показов 1435. Ответов 3

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

Ответ

Pascal

uses crt;
var s,s1:string;
    i,j,q:integer;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
s:=' '+s; {добавим пробел в начало для удобства}
i:=1;
q:=0;
writeln('Слова с удвоенными буквами');
while i<length(s) do{идем по строке}
if (s[i]<>' ')and(s[i-1]=' ') then {если не пробел, а перед ним пробел, новое слово}
 begin
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do {составим его}
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  j:=1;
  while(j<length(s1))and(s1[j]<>s1[j+1])do inc(j);
  if j<length(s1) then
   begin
    q:=1;
    write(s1,' ');
   end;
  i:=i+length(s1);{перешагнем через слово}
 end
else i:=i+1; {пропускаем пробелы}
if q=0 then write('Таких слов нет');
readln
end.

Вернуться к обсуждению:
Ввести с клавиатуры строку S1 длиной до семидесяти символов. В строку S2 перенести все слова которые имеют удвоение бук Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

10.05.2019, 08:57

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

ввести строку длиной 70 символов, а в другую строку перенести все слова из этой строки, которые имеют удвоение букв.
помогите сделать .!!!!! нужно ввести строку длиной 70 символов, а в другую строку перенести все...

Ввести строку длиной до 70 символов. Определить, сколько слов из четырех букв входящих в эту строку
Ввести строку длиной до 70 символов. Определить, сколько слов из четырех букв входящих в эту строку

Ввести строку. Выдать все слова, которые имеют длину больше, чем длина последнего слова строки
ввести строку. на печать, выдать все слова, которые имеют длину больше, чем длина последнего слова...

Сформировать новую строку, в которую включить все слова, длиной не более 4 символов
Дана строка, состоящая из слов, разделенных пробелами. Сформировать новую строку, в которую...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

10.05.2019, 08:57

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

Ввести с клавиатуры строку символов.....если длина кратна 2 то удалаются числа которые делятся на 2
Ввести с клавиатуры строку символов.Признак окончания строки-нажатие клавиши ввод.программа должна...

Ввести с клавиатуры строку символов,удалить все гласные буквы из строки
Помогите со строками... Ввести с клавиатуры строку символов,удалить все гласные буквы из строки....

Ввести с клавиатуры строку. Выдать на экран все слова из этой строки ...
Помогите сделать 2 задачи на С 1 Ввести с клавиатуры строку. Выдать на экран все слова из...

Ввести строку и определить, содержат ли все слова заданную с клавиатуры букву
Может кто-нибудь помочь с задачей?Хотя бы алгоритм решения,необязательно код прописывать

Наверх