Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Graph. Секторная диаграмма Доброго времени суток дорогие форумчане. Нужна помощь в написании программы: Секторная Диаграмма - это круг, площади секторов которого пропорцианальны соответсвтующим числовым величинам, взятым из некоторой совокупности. Даны семь действительных положительных чисел. Построить секторную диаграмму для этих значений. Для большей наглядности секторы диаграммы закрасьте в разные цвета. https://www.cyberforum.ru/ pascal/ thread184980.html	Pascal оператор выбора написать программу которая по введенному номеру года выводят название по японскому календарю(крыса,змея,лошадь,овца,обезьяна,корова,свинья) использовать надо оператор выбора. помогите кто сможет пожалуйста
Pascal Определить максимальный элемент матрицы в заштрихованной области Напишите функцию определяющую максимальный элемент матрицы в заштрихованной области x x x x x x x x x x x x https://www.cyberforum.ru/ pascal/ thread184970.html	Pascal Дана матрица целых чисел размером 4х4. Дана матрица целых чисел размером 4х4. Увеличить все четные элементы на 16, а нечетные элементы увеличить втрое. Вывести на экран содержимое обратной матрицы. https://www.cyberforum.ru/ pascal/ thread184962.html
Pascal Псевдографика)) как сделать с помощью псевдографики домик в котором когда вводишь "1" загорается свет, еще раз "1" свет гаснет(с этим разобрался) нажимаешь "3" идет дым(анимацией) из трубы.program belgraf; uses crt; label m1,m2,m3; var a,b,c,d,e,f,g:integer; begin m1: textbackground(1); clrscr; gotoxy(10,40);textcolor(8);writeln(' ');...	Pascal Упорядочить по алфавиту записи из файла https://www.cyberforum.ru/ pascal/ thread184945.html Здравствуйте! При помощи ниже приведенной программы считываются данные из файла и выводятся на экран. Но нужно список упорядочить по полю с именем (по алфавиту). program zanucb; uses crt; type jobs = record num:byte;
Pascal Произведение ряда. 10 ∏(x/k!+1-cos(v stepeni k)\|x+k\|) k=10 Я не могу усвоить эти вычисления:( https://www.cyberforum.ru/ pascal/ thread184938.html	Строки Pascal Помогите пожалуйста решить: Дано слово. Вывести на экран его средний символ. Получите слово НИВА из слова ВАНИЛИН. Определить каких знаков препинания в тексте больше: «:» или «;».
Pascal Правда ли что…Первое число является суммой остальных? Имеется четыре произвольных числа a, b, c, d, которые вводятся с клавиатуры. Программа должна давать ответ на вопрос: «Правда ли что…Первое число является суммой остальных? . Ответ выводится в виде текста. Нужно решить с помощью цикла с предусловием и постусл. На паскале:-)))! https://www.cyberforum.ru/ pascal/ thread184898.html	Pascal Изображение фигур заданного цвета. https://www.cyberforum.ru/ pascal/ thread184889.html Составить программу, которая выводит на экран изображение двух геометрических фигур заданного цвета до индивидуального задания приведенном в таблице: Вот у меня имеется выполненная программа для 10 варианта, помогите её переделать для 19 варианта, приведенного во вложении. К сожалению я проверить её не могу, пользуюсь старой версией паскаль. Помогите, спасибо) Program zadacha26; uses...
матрица с неповторяющимися числами Pascal привет. прошу проверить правильность написания задачи,если есть ошибки или недочеты,прошу скажите... задача: вывести матрицу 10*10 с неповтояющимися числами(с помощью Randomize и Random). program matrica; uses crt; const n=10; m=10; type a:array of integer; b:array of integer; var	Pascal Одинаковые строки в матрице Задача такова: дана целочисленная матрица, есть ли в ней одинаковые строки? Прошу помочь. Сам уже запутался.%-) https://www.cyberforum.ru/ pascal/ thread184878.html

кот Бегемот

Платежеспособный зверь

8946 / 4373 / 1647

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

Сообщений: 11,597

02.11.2010, 01:56

Работа со Строками - Pascal - Ответ 1077205

02.11.2010, 01:56. Показов 1110. Ответов 1

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

Сообщение было отмечено beka91 как решение

Решение

Pascal

var
s:string;
a:array[1..100]of string;
i,f,t,j,k:integer;
begin
readln(s);
s:=' '+s;
for i:=1 to length(s) do
if s[i]<>' 'then a[k]:=a[k]+s[i] else if s[i+1]<>' 'then inc(k);
for i:=1 to k-1 do
if a[i]<>a[k] then
begin
f:=0;
t:=0;
 for j:=1 to (length(a[i]) div 2) do
 if a[i][j]<>a[i][length(a[i])-j+1]then f:=1;
if f=0 then
for j:=2 to length(a[i])do
if a[i][j]=a[i][1]then inc(t);
if (f=0)and(t=1)then writeln(a[i]);
end;
readln;
end.

Под фразой

б)Первая буква слова входит в него ещё раз

подразумевается, что первая буква входит в слово ещё ровно 1 раз, в противном случае это условие вообще излишне - в симметричных словах первая буква обязательно повторяется

Вернуться к обсуждению:
Работа со Строками Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

02.11.2010, 01:56

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

Работа со строками...
Напишите как это будет выглядеть пожалуйста.

работа со строками
Помогите. Задача Ввести строку, содержащую только символы латинского алфавита.Построить...

работа со строками
Помогите разобраться в программе! Создать файл, содержащий текст, длина которого не превышает 700...

Работа со строками
всем привет! задачка такая: Дана строка символов, среди которых есть одна открывающаяся и одна...

	02.11.2010, 01:56

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

02.11.2010, 01:56

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

Работа со строками
Данный рядок символов S. Посчитать: 1) сколько раз среди данных символов встречается + и сколько...

Работа со строками
Помогите пожалуйста написать программу. Дана последовательность, содержащая от 2 до 50 слов в...

Работа со строками
ввести строку, представляющую собой запись числа в шестнадцатеричной системе счисления. Перевести...

Работа со строками
Застрял на 3х небольших заданиях : 1)Во введенной строке каждую цифру заменить заменить на...

Наверх