Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Заданы размеры прямоугольного отверстия и размеры кирпича. Определить, пройдет ли кирпич в отверстие https://www.cyberforum.ru/ pascalabc/ thread551245.html Заданы размеры прямоугольного отверстия A,B и размеры кирпича X,Y,Z. Определить, пройдет ли кирпич в отверстие. Замечание: задачу решать в предположении, что A>B, X>Y>Z.	Pascal ABC Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел.ПОЖАЛУЙСТА РАСПИСЫВАЙТЕ ПОЛНОСТЬЮ!!!
Pascal ABC Поместятся ли две одинаковые книги в кейс размерами X< Y <Z? https://www.cyberforum.ru/ pascalabc/ thread551241.html Поместятся ли две одинаковые книги в кейс размерами X< Y <Z? ( Размеры книги задавать в порядке возрастания.)	Pascal ABC Двумерный массив. Определить общее число учеников в школе https://www.cyberforum.ru/ pascalabc/ thread551167.html В двумерном массиве хранится информация о количестве учеников в каждом классе каждой параллели школы с первой по одиннадцатую (в первом столбце - информация о классах первой параллели, во втором - второй параллели и т.д.). В каждой параллели школы имеются 5 классов. Определить общее число учеников в школе.
Pascal ABC Массив. Переписать положительные элементы во второй массив, а остальные — в третий 1) Дан массив. Переписать его положительные элементы во второй массив, а остальные — в третий. Во втором и третьем массивах значения элементов первого массива должны быть записаны подряд с начала массива. 2)Определить, является ли массив упорядоченным по возрастанию. В случае отрицательного ответа определить номер первого элемента, нарушающего такую упорядоченность. 3)Дан двухмерный массив...	Pascal ABC Создать программу записи и чтения типизтрованного файла типа стринг? Создать программу записи и чтения типизтрованного файла типа стринг? https://www.cyberforum.ru/ pascalabc/ thread551112.html
Pascal ABC дана квадратная матрица А порядка n. Получить матрицу АВ элементы матрицы В вычисляются по формуле дана квадратная матрица А порядка n. Получить матрицу АВ элементы матрицы В вычисляются по формуле: если i<=j то 1/i+j-1 в противном случае 1/i+j+1 вот код проги как переделать с помощью процедуры var Mat,B,C:array of Real; i,j,k,n,Top:Integer; Max:Integer; begin ClrScr; Write('Введите размер матрицы n => ');ReadLn(n); https://www.cyberforum.ru/ pascalabc/ thread551090.html	Опишите, используя структуру данных запись, школьный класс Pascal ABC Дана задача:Опишите, используя структуру данных запись, школьный класс (фамилия и инициалы, дата рождения, месяц рождения, год рождения). Составьте программу, выдающую "День рождения класса" (среднее арифметическое дат и месяцев). Нужно написать эту задачу при помощи типизированного файла. Саму задачу я решила, а вот при помощи фала не знаю как.:wall: Help me, пожалуйста! program school;...
Pascal ABC Массив. Определить среднее арифметическое положительных элементов https://www.cyberforum.ru/ pascalabc/ thread551041.html Дан массив R(M,N). Определить среднее арифметическое его положительных элементов. Заменить отрицательные элементы массива R(M,N) на найденное среднее.	Pascal ABC Массивы. Образовать новый массив путем умножения элементов массива А на минимальный элемент массива B Даны массивы A(N) и B(N). Образовать новый массив C(N) путем умножения элементов массива A(N) на минимальный элемент массива B(N). В новом массиве C(N) определить количество отрицательных элементов. Кто умеет помогите https://www.cyberforum.ru/ pascalabc/ thread551036.html
Типизированный файл, исправить ошибку Pascal ABC 1Опишите, используя структуру данных запись, таблицу некоторых дат и событий русской истории. Составьте программу, выдающую список событий, относящихся только к XIX в. 2 Написать программы с использованием структуры данных файл (типизированный файл). Помогите найти в чем ошибка вылизиет ошибка ввода/вывода. Программа Основная Uses Program1, Program3; var dan:myarray;	Pascal ABC Запросить числа, преобразовать в строки, произвести сцепление в разных сочетаниях https://www.cyberforum.ru/ pascalabc/ thread551009.html Запросите у пользователя числа, преобразуйте их в строки, произведите их сцепление в разных сочетаниях и вывод на экран. Не забудьте поставить между строками пробел, в конце точку и начать с заглавной буквы.

КонецСвета

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

7966 / 3937 / 2464

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

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

15.05.2012, 20:19

Заменить в третьем по счёту слове первую букву на последнюю букву этого же слова - Pascal ABC - Ответ 3035978

15.05.2012, 20:19. Показов 1254. Ответов 6

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

Ответ

Pascal

uses crt;
var s: string;
    c: char;
    i,k,p1,p2: byte;
begin
write('s='); readln(s); s:=s+' ';
for i:=1 to length(s) do
    if s[i]=' ' then
       begin
       inc(k);
       if k=2 then p1:=i+1;
       if k=3 then p2:=i-1;
       end;
if (p1=0) or (p2=0) then writeln('В предложении меньше чем 3 слова')
   else
   begin
   c:=s[p1];
   s[p1]:=s[p2];
   s[p2]:=c;
   write('s=',s);
   end;
end.

Вернуться к обсуждению:
Заменить в третьем по счёту слове первую букву на последнюю букву этого же слова Pascal ABC

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.05.2012, 20:19

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

Заменить в третьем по счёту слове первую букву на последнюю букву Заменить в третьем по счёту слове первую букву на последнюю букву этого же слова.
Заменить в третьем по счёту слове первую букву на последнюю букву этого же слова.

Заменить в каждом слове первую букву на последнюю букву в этом слове
Подскажите пожалуйста :cry: Задание звучит так: Вывести на экран все слова, преобразовав их...

Первую букву каждого слова заменить на последнюю букву последнего слова
Слова в строке отделены одним пробелом, в конце ставится точка. Первую букву каждого слова заменить...

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

	15.05.2012, 20:19

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

15.05.2012, 20:19

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

Замена цифр в слове на первую букву этого слова.
Доброго времени суток. Помогите доделать программу. Условие: Напишите процедуру/функцию, которая...

Заменить в каждом слове длиной М букв первую букву на букву, задаваемую пользователем
Дан текст, состоящий из нескольких слов. Заменить в каждом слове длиной М букв первую букву на...

Перенести первую букву в конец слова, последнюю букву в начало слова
Дан текст, содержащий от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между...

Во всех словах заменить первую букву на последнюю, а последнюю на первую. Как считывать каждое слово?
Ребята, написал программу, выполняла свое предназначение, но меня преподаватель попросил записать в...

Наверх