Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Вычислить сумму ряда помогите пожайлуста! https://www.cyberforum.ru/ pascal/ thread85438.html	Pascal Задача про улитку. Каждый солнечный день улитка сидящая на дереве поднимается вверх на 2 см а каждый пасмурный день опускается на 1 см. В начале наблюдения улитка нанодилась в А см от земли на В метровом дереве. Имеется 30-элементный массив содержащий свединия о том был ли соответствующий день наблюдения пасмурным или солнечным. Определить её положение к концу 30-го дня.
Pascal Найти самое короткое слово в строке https://www.cyberforum.ru/ pascal/ thread85433.html Дана строка,слова в которой разделены хотя бы одним пробелом.Найти самое короткое слово в строке и поменять местами первую и последнию буквы в нем.	Pascal Вычислить, используя рекурсию, выражение Вычислить, используя рекурсию, выражение https://www.cyberforum.ru/ pascal/ thread85432.html
Pascal Поменять местами максимальный и последний отрицательный элемент массива В одномерном массиве А размерностью N: поменять местами максимальный и последний отрицательный элемент массива	Pascal В строке между словами вставить вместо пробела запятую и пробел В строке между словами вставить вместо пробела запятую и пробел https://www.cyberforum.ru/ pascal/ thread85414.html
Pascal Вычислить сумму в двойном цикле. https://www.cyberforum.ru/ pascal/ thread85413.html помогите решить вот такую задачку! заранее СПАСИБО БОЛЬШОЕ!	Pascal Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент Здравствуйте помогите ... с лабороторной ... Дана действительна матрица размера n x m, в которой не все злементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент. нужно решить на паскале...
Pascal В восточном календаре принят 60-летний цикл, состоящий из 12-летних подциклов https://www.cyberforum.ru/ pascal/ thread85405.html Помогите напимать программу:) В восточном календаре принят 60-летний цикл, состоящий из 12-летних подциклов, обозначаемых название цвета: зеленый, красный, желтый, белый и черный. В каждом подцикле годы носят название животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, собаки и свиньи. По номеру года определить его, если 1984 год- начало цикла: "года зеленой крысы".	Pascal В матрице поменять местами строку, содержащую минималный элемент, со строкой содержащий максимальный элемент. Помогите пожалуста:):):) вот задание В произвольной матрице A поменять местами строку, содержащую минималным элементам матрицы, со строкой содержащий максимальный элемент. https://www.cyberforum.ru/ pascal/ thread85400.html
Pascal приложение склад Разработайте приложение «Склад». Программа должна обеспечивать ввод и корректировку информации и выдавать информацию по следующим запросам: • имеется ли в наличии указанный товар и в каком количестве; • какова стоимость единицы товара. • какова суммарная стоимость товара на складе в отчетный день	Pascal Max/ Min. Процедуры https://www.cyberforum.ru/ pascal/ thread85381.html program Project1; {$APPTYPE CONSOLE} uses SysUtils; const n=5; Type Matr=array of integer; var x:Matr; i,j:byte;

Puporev

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

64300 / 47595 / 32743

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

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

13.01.2010, 18:36

Напечатать все символы между первой и второй точками - Pascal - Ответ 477072

13.01.2010, 18:36. Показов 1192. Ответов 3

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

Ответ

Можно так.

Pascal

uses crt;
var s:string;
    i,k1,k2:byte;
begin
clrscr;
repeat
writeln('Введите строку, содержащую точки:');
readln(s);
if pos('.',s)=0 then writeln('В строке нет ни одной точки! Повторите ввод.');
until pos('.',s)>0;
k1:=pos('.',s);
if k1=length(s)then write('После первой точки нет симолов!')
else
 begin
  k2:=pos('.',copy(s,k1+1,255));
  if k2=0 then
  for i:=k1+1 to length(s) do write(s[i])
  else if k2=1 then write('Между точками нет символов!')
  else for i:=k1+1 to k1+k2-1 do  write(s[i]);
 end;
readln
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

13.01.2010, 18:36

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

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

Удалить из предложения все символы, расположенные между первой и второй запятыми
1. Удалить из предложения все символы МЕЖДУ первой и второй запятыми. 2. Дано предложение, удалить...

Дана строка. вывести подстроку, распол. между первой и второй точками исходной строки
Дана строка. вывести подстроку, распол. между первой и второй точками исходной строки. если в...

Даны две строки.Выведите на экран все символы которые присутствуют как в первой так и во второй строке
Даны две строки.Выведите на экран все символы которые присутствуют как в первой так и во второй...

	13.01.2010, 18:36

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

13.01.2010, 18:36

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

Записать все символы, расположеныые между первой встретившейся парой a и b строке в обратном порядке
нужно: Ввести к клавиатуры строку S и два символа a и b. Записать все символы, расположеныые...

Удалить из первой строки символы, которые содержатся во второй
Заданы две строки S1 и S2 . Удалить из строки S1 символы, содержащиеся в строке S2 .

Удалить из первой строки символы, не принадлежащие второй строке
Нужна помощь. Составить программу, в результате выполнения которой из первой заданной строки...

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

Наверх