Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Работа с данными комбинированного типа (Record) 1. Составить программу согласно варианту индивидуального задания. 2. Записать текст программы в файл с расширением pas. 3. Выполнить редактирование программы и вычисления ней. type sl =array of char; nomtel =1000000..9999999; znak=record bam:ssl; nom:nomtel; end; str=array of znak; https://www.cyberforum.ru/ pascal/ thread715902.html	Множества: вывести сумму мест, на которых в строке стоят согласные буквы Pascal Здравствуйте! Помогите решить задачу с помощью множеств. Условие. Дана строка. Сделать програму которая выводит суму мест, на которых в этом ряде стоят согласные буквы. Есть код, но нету множества...Помогите "долепить" множество. function SumVowelPos (s: string): integer; var i,n: integer; begin n:=0; for i:=1 to Length(s) do if UpCase(s) in then n:=n+i;
Pascal Найти максимальное из чисел, встречающееся в данной матрице более одного раза https://www.cyberforum.ru/ pascal/ thread715827.html Заданна квадратная матрица А размером NxN (N<=10), состоящая из действительных элементов. Найти максимальное из чисел, встречающееся в данной матрице более одного раза.	Pascal Прототипы функций Здравствуйте! Подскажите, пожалуйста, можно ли в Паскале тело функции размещать после основного блока программы, прописывая перед ним прототип функции? https://www.cyberforum.ru/ pascal/ thread715702.html
Процедуры: вычислить произведение элементов на главных диагоналях для каждой из матриц Pascal Здравствуйте!помогите пожалуйста решить задачку: как с помощью процедур ввести в матрицы элементы? Далее вычислить произведение элементов на главных диагоналях для каждой из матриц А(5,5) и В(7,7)	Pascal Напечатать таблицу значений функции y = Sin(x) на отрезке [0,1] с шагом 0.1 Program Example_21; Var i : Real; Begin i:=0; While i<=1 Do Begin Writeln(i:2:1,' ',sin(i):4:3); i:=i+0.1; End; Readln; https://www.cyberforum.ru/ pascal/ thread715538.html
Pascal Циклические вычислительные процессы (последовательности) https://www.cyberforum.ru/ pascal/ thread715531.html Определить n первых членов рекуррентной последовательности.	Задача "Замочная скважина" Pascal Помогите, пожалуйста, решить задачу, называется "Замочная скважина". Даны мозаичные изображения замочной скважины и ключа. Пройдёт ли ключ в скважину? То есть даны матрицы K(m1, n1) и L(m2, n2), m1>m2, n1>n2, матрицы состоят из нулей и единиц. Проверить, можно ли наложить матрицу L на матрицу K, причём разрешается сдвиг, поворот ключа на угол, кратный 90 градусам, а так же разрешено зеркально...
Pascal Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А Условие: Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А Основу программы я написал, но вот не могу понять как произвести замену элемента матрицы на 0. :help::help::help: uses crt; const n=5; m=5; type matr=array of byte; type arr=array of integer; var a:matr; var b:arr; https://www.cyberforum.ru/ pascal/ thread715410.html	Pascal Определить, сколько нулевых элементов содержится в каждом столбце и в каждой строке матрицы https://www.cyberforum.ru/ pascal/ thread715403.html Выполнить обработку элементов прямоугольной матрицы A, имеющей N строк и M столбцов. Определить, сколько нулевых элементов содержится в каждом столбце и в каждой строке матрицы. результат оформить в виде матрицы из N+1 строк и M+1 столбцов.
Pascal Как вывести следующую таблицу Как вывести следующую таблицу: 0 10 210 3210 43210 через двумерный массив с использованием цикла?	Pascal В тексте удалить группы из двух определенных символов Нужна ваша помощь, Помогите пожалуйста. текст вводится с клавиатуры,удалить в нем группы из двух определенных символов. Подсчитать количество изъятий и сумму кодов каждого второго слова. результат вывести на экран в десятичной и шестнадцатиричной системах счисленя системах счисления https://www.cyberforum.ru/ pascal/ thread715306.html

ksusha_kse

0 / 0 / 0

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

Сообщений: 9

Строки. Если в конце строки точка отсутствует, то найти слово, заканчивающееся точкой и перенести его в конец строки. - Pascal - Ответ 3787866

02.12.2012, 12:27. Показов 3005. Ответов 1

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

Author24 — интернет-сервис помощи студентам

Дана строка, состоящая из слов и содержащая одну точку в конце одного из слов. Если в конце строки точка отсутствует, то найти слово, заканчивающееся точкой и перенести его в конец строки.

посмотрите пожалуйста где ошибка

Pascal

Program 7;
Function perenos(Const St:String ; Var b,c:byte):String;
Var res:String; i:byte;
begin
for i:=1 to length(st) do
read(St);
res:='';
for i:=length(St) downto 1 do
b:=i;
for i:=b downto 1 do
if st[i] = ' ' then
c:=i;
for i:=1 to c-1 do
res:=res+st[i];
for i:=b+1 to length(st) do
res:=res+st[i];
for i:=b+1 to c do
res:=res+St[i];
end;
 
begin
perenos(st):=res;
End.

Вернуться к обсуждению:
Строки. Если в конце строки точка отсутствует, то найти слово, заканчивающееся точкой и перенести его в конец строки. Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

02.12.2012, 12:27

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

Удалить из строки предпоследнее слово, а в конце строки добавить точку, если ее не было.
Удалить из строки предпоследнее слово, а в конце строки добавить точку,если ее не было.

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

Выделить в строке второе слово и поместить его в конец другой строки
Составить подпрограмму, которая выделяет в строке второе слово и помешает его в конец другой...

В четных строках перенести первое слово строки в конец строки
Дан какой либо текст. Нужно во всех четных строках перенести первое слово строки в конец строки....

	02.12.2012, 12:27

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

02.12.2012, 12:27

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

Как в чётных строках файла перенести первое слово строки в конец строки?
Народ кто сможет? Задания на контрольную работу по дисциплине «Операционные системы UNIX»...

Перенести часть строки в конец предложения перед точкой
Здравствуйте. Требуется в данном тексте: Если разложить поле на монохроматические...

Если первый элемент строки больше некоторого заданного числа, то его следует поставить в конец строки
В матрице размером m x n для каждой строки матрицы сделать следующие действия: если первый элемент...

Перенести первое слово каждой строки в ее конец
Нужно перенести первое слово каждой строки в ее конец! Вот моя пограмма, но я не могу понять...

Наверх