Форум программистов, компьютерный форум CyberForum.ru

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 207, средняя оценка - 4.68
BlackDead
0 / 0 / 0
Регистрация: 15.06.2009
Сообщений: 6
#1

решить строковые задания - Pascal

15.06.2009, 16:29. Просмотров 31572. Ответов 13
Метки нет (Все метки)

6 Дано предложение. Вычислить процент вхождения буквы «о» в данное предложение и получить новое предложение путем увеличения данного, на полученный процент, пробелами.
7 Дана фраза определить сколько в ней предложений.
8 Написать программу, выдающую номер позиции заданной строки, в которой в пятый раз встречается буква "к" и соответствующее сообщение если эта буква встречается менее пяти раз.
9 Дано слово. Сколько букв 'а' в этом слове стоит на четных местах.
10 Дано предложение. Определить, каких букв в нем больше: «м» или «н».
11 Дано предложение напечатать все его символы, предшествующие первой встретившейся запятой.
12 Дано предложение, в котором есть несколько букв «е». Найти порядковый номер первой и последней из них.
13 Дано предложение. Определить есть ли в нем буква «а». Есть таких букв несколько, то определить порядковый номер первой их них.
14 Дана последовательность символов, в начале которой имеется некоторое количество одинаковых символов. Определить это количество.
15 Даны два слова. Определить, сколько начальных букв первого слова совпадают с начальными буквами второго слова.
16 Да последовательность слов. Проверить правильность написания сочетания «ча» и «ща». Исправить ошибки.
17 Дано предложение, в котором имеются буквы «с» и «т». Определить, какая из них встречается позже (при просмотре слова слева направо). Если таких букв несколько, то должны учитываться последние из них.
18 Отредактировать заданное предложение, удаляя из него все слова с нечетными номерами и переворачивая слова с четными номерами.
19 Дана строка, в которой имеется текст в скобках. Написать программу удаления части текста, заключенного в скобки, вместе со скобками. Оставшуюся часть строки отсортировать в алфавитном порядке.
20 Написать программу, которая определяет количество слов заданной строки, длина каждого из которых равна длине первого слова этой строки. Строку отсортировать в алфавитном порядке.
21 Написать программу нахождения самого короткого слова заданной строки.
22 Написать программу подсчета в заданной строке количества букв латинского алфавита.
23 Написать программу подсчета количества букв «д» в последнем слове заданной строки.
24 Дано предложение. Переписать предложение, переставляя слова в нем в обратном порядке.
25 Написать программу нахождения в заданной строке первого слова, которое имеет заданную длину.
26 Проверить, являются ли заданные слова в предложении палиндромами (перевёртышами).
27 Написать программу получения из заданной строки новой строки путем удаления всех символов, не являющихся буквами латинского алфавита
28 Написать программу, которая выводит сообщение «ДЛИНА», если все слова в тексте имеют одинаковую длину.
29 Написать программу, определяющую, сколько слов в заданной строке оканчивается буквой «я», если известно, что слова обязательно стоит либо пробел, либо точка.
30 Вычеркните из заданного слова (русский алфавит) все буквы, совпадающие с последней буквой русского алфавита.
31 В предложения поменять первые символы "М" в словах на символ "П"(Пример. Входная строка: Мама мыла раму. Результат: Папа пыла раму). Если таких замен нет, то вывести об этом сообщение.
32 Написать программу определения слов заданной строки, которые оканчиваются на «ова».
33 Отсортировать некоторое слово в обратном алфавитном порядке.
34 Написать программу подсчета количества слов, имеющих один слог
35 Составьте программу, вычеркивающую. Каждую третью букву из заданного слова.
36 Из слова «вертикаль» путем вырезок и склеек его букв получить слова «тир» и «ветка».
37 Дана квадратная матрица символьного типа. Транспонировать ее.
38 Дано слово. Получить и вывести на экран буквосочетание, состоящее из третьего и последнего символов.
39 Из слова «программа» путем вырезок и склеек его букв получить слова «ром» и «рампа».
40 Дано предложение. Все пробелы в нем заменить на символ «_».
41 Дана квадратная матрица символьного типа. Транспонировать ее. Вывести на экран элементы, расположенные выше главной диагонали.
42 Дано слово. Получить и вывести на экран буквосочетание, состоящее из второго, третьего и четвертого символов.
43 Из слова «трос» путем вырезок и склеек его букв получить слова «сорт», «рост» и «торс»
44 Дано слово, состоящее из четного числа букв. Получить и вывести на экран его первую половину.
45 Дано предложение. Сколько раз и на каких позициях встречается буквосочетание «нн».
46 Из слова «клоун» путем вырезок и склеек его букв получить слова «уклон» и «кулон».
47 Дана квадратная матрица символьного типа. Транспонировать ее. Вывести на экран элементы, расположенные на побочной диагонали.
48 Дано слово. Получить и вывести на экран его часть, образованную идущими подряд буквами, начиная с m – ой n - ой.
49 Из слова «клоун» путем вырезок и склеек его букв получить слова «колун» и «кулон».
50 Дано слово. Перенести три его первые буквы в конец.
51 Из слова «информатика» путем вырезок и склеек его букв получить слова «форма» и «тик».
52 Дано предложение. Заменить в нем все вхождения буквосочетания «ах» на «ух».
53 Дано слово. Поменять местами его половины.
54 Дано предложение. Добавить к нему в конце столько звездочек, сколько букв в этом слове.
55 Из слова «апельсин» путем вырезок и склеек его букв получить слово «спаниель».
56 Дано предложение. Заменить в нем все вхождения буквосочетания «да» на «не».
57 Удалить из текста все незначащие пробелы.
58 Преобразуйте прописные буквы русского алфавита в заглавные.
59 Дан текст. Вывести на экран слова, состоящие из трех букв.
60 Дана строка, содержащая произвольный текст. Выяснить чего в нем больше: русских букв или цифр.
61 Дана строка, содержащая текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз.
62 В предложении некоторые слова записаны подряд несколько раз. Отредактировать этот текст, удаляя из него подряд идущие одинаковые слова.
63 Дана строка, содержащая произвольный текст. Проверить правильно ли в нем расставлены круглые скобки (количество открывающихся должно совпадать с количеством закрывающихся).
64 Дана строка, содержащая текст на русском языке. Составить в алфавитном порядке список всех слов, встречающихся в этом тексте.
65 Дана строка, содержащая текст на русском языке и некоторая буква. Найти слово, содержащее наибольшее количество указанных букв.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.06.2009, 16:29     решить строковые задания
Посмотрите здесь:

решить задания на паскале 7.0 - Pascal
Задействуйте если не трудно решите задание! написать текст и блок схему если можно буду оч благодарен!

Решить олимпиадные задания по Скайпу - Turbo Pascal
Доброго времени суток, Господа. Брат сидит на олимпиаде и просит помочь. А я настолько стар, что уже и не могу integer от boolean'a...

Ребята срочно нужно решить задания на Паскале - Pascal
1.Напишите программу, которая по значениям двух катетов вычисляет гипотенузу и площадь треугольника. 2.Дано натуральное число N....

задания на модули ,нужно решить один из вариантов - Pascal
Здравствуйте."Старые" задания на модули ,нужно решить один из вариантов,помогите пожалуйста наверняка кто-то сталикивался!

решить формулу через оператор for (неясны некоторые моменты задания) - Pascal
дана формула W(k)=m*v^2/2, где m - масса, v - скорость. Составить алгоритм для получения зависимости W(k) от m, если: v изменяется от...

Выручайте! надо 2 задания решить, Выражение с матрицами и Задание с линейным наближением! - Pascal
Добрый день! на завтра очень нужно сделать 2 задания, помогите пожалуйста, буду очень благодарен, так как завтра последний срок здачи ...

Строковые функции - Pascal
дана строка. определить в строке самое длинное слово. если их несколько, вывести все имеющиеся

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Puporev
Модератор
51492 / 39423 / 12978
Регистрация: 18.05.2008
Сообщений: 90,039
15.06.2009, 22:58     решить строковые задания #2
А что так мало задач? Интересно, на что Вы расчитываете?
BlackDead
0 / 0 / 0
Регистрация: 15.06.2009
Сообщений: 6
15.06.2009, 23:00  [ТС]     решить строковые задания #3
Цитата Сообщение от Puporev Посмотреть сообщение
А что так мало задач? Интересно, на что Вы расчитываете?
Я не прошу на все написать, а кто что сможет.
Puporev
Модератор
51492 / 39423 / 12978
Регистрация: 18.05.2008
Сообщений: 90,039
15.06.2009, 23:03     решить строковые задания #4
Да Вы таким количеством просто отгоняете людей от своей темы.
BlackDead
0 / 0 / 0
Регистрация: 15.06.2009
Сообщений: 6
15.06.2009, 23:04  [ТС]     решить строковые задания #5
Цитата Сообщение от Puporev Посмотреть сообщение
Да Вы таким количеством просто отгоняете людей от своей темы.
Ну а что я могу поделать. Не по одному же вопросу задавать.
John_Pa9JIbHuK
Добрый самаритянин
1098 / 614 / 33
Регистрация: 31.03.2009
Сообщений: 2,568
16.06.2009, 10:38     решить строковые задания #6
Эт вы всему учебному заведению шоль помогаете?
BlackDead
0 / 0 / 0
Регистрация: 15.06.2009
Сообщений: 6
16.06.2009, 10:40  [ТС]     решить строковые задания #7
Цитата Сообщение от John_Pa9JIbHuK Посмотреть сообщение
Эт вы всему учебному заведению шоль помогаете?
Эт тока меньшая часть такого что мне надо сделать.
mamedovvms
2916 / 837 / 93
Регистрация: 30.04.2009
Сообщений: 2,624
16.06.2009, 10:42     решить строковые задания #8
Да я видел людей которые десять задач выставляли сразу в надежде что им кто то все решит, но вы просто рекордсмен, вы наверное вообще не пытались ни разу решать эти задачи
John_Pa9JIbHuK
Добрый самаритянин
1098 / 614 / 33
Регистрация: 31.03.2009
Сообщений: 2,568
16.06.2009, 10:45     решить строковые задания #9
пара задач у меня есть из списка

Добавлено через 35 секунд
63)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
s:string;
i,a,b:integer;
begin
readln(s);
for i:=1 to length(s) do
begin
if s[i]='(' then inc(a);
if s[i]=')' then inc(b);
end;
if a=b then
writeln('ÎäèГ*Г*êîâîå êîë-ГўГ®') else
writeln('ГЌГҐГІ');
end.
mamedovvms
2916 / 837 / 93
Регистрация: 30.04.2009
Сообщений: 2,624
16.06.2009, 10:47     решить строковые задания #10
На мой взгляд задачи не требуют каких то глубоких знаний, да еще и подобных много
John_Pa9JIbHuK
Добрый самаритянин
1098 / 614 / 33
Регистрация: 31.03.2009
Сообщений: 2,568
16.06.2009, 11:12     решить строковые задания #11
61)
Код
[PASCAL]var
y,x,v,d,z:integer;
nor1:string;
nor2:string;
begin
writeln('BBeDuTe cTPoky');
readln(nor1);
writeln('BBeDuTe nor2');
readln(nor2);
if nor1 <= nor2 then
begin
d:=1;
y:=Pos(nor1,nor2);
if y=0 then
writeln('HeBcTP')
else
writeln ('BcTpe4aeTc9');
v:=0;
while y>0 do
begin
y:=pos(nor1,nor2);
z:=length(nor1)+y;
Delete(nor2,1,z);
if y>0 then
v:=v+1;
end;
writeln('nePBa9 BcTPe4aeTc9 Bo BtoPou  ',v,'  pa3');
end;
readln;
end.[/PASCAL]
Добавлено через 3 минуты 55 секунд
58)
Pascal
1
2
3
4
5
6
7
8
9
var
s:string;
i:integer;
begin
readln(s);
For i:=1 to length(s) do
s[i]:=upcase(s[i]);
writeln(s);
end.
Добавлено через 4 минуты 55 секунд
54)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
s:string;
i,a:integer;
begin
readln(s);
a:=length(s);
For i:=1 to a do
begin
insert('*',s,length(s)+1);
end;
writeln(s);
end.
Добавлено через 6 минут 12 секунд
9)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
s:string;
i,k:integer;
begin
readln(s);
for i:=1 to length(s) do
begin
if (s[i]='a') and (i mod 2=0) then
inc(k);
end;
writeln(k,' Г°Г*Г§');
end.
Добавлено через 3 минуты 12 секунд
11)
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
begin
if s[i]<>',' then write(s[i]);
if s[i]=','  then break;
end;
end.
Добавлено через 5 минут 19 секунд
10)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
s:string;
i,a,b:integer;
begin
readln(s);
for i:=1 to length(s) do
begin
if s[i]='м' then inc(a);
if s[i]='н' then inc(b);
end;
if a>b then writeln('больше м');
if a<b then writeln('больше н');
if a=b then writeln('равны');
end.
Boddy
0 / 0 / 0
Регистрация: 14.11.2015
Сообщений: 12
15.11.2015, 12:01     решить строковые задания #12
Доброго времени суток! Нужна помощь с кодом из той же оперы что и сверху. "Но только не в таком зверском масштабе как сверху и с другим условием"

Задача
Заданы два текста. Вывести слова первого текста, которые не встречаются во втором.

Условия выполнения: Тексты необходимо набирать не в самом коде а в uses crt;

Пример:
Текст 1:Два баклана бакланили на бакалавр.
Текст 2:Два студента получили квалификацию степени бакалавр.
Не встречается: Баклана, Бакланили, на.
ZX Spectrum-128
15.11.2015, 12:08
  #13
 Комментарий модератора 
Boddy, создайте свою собственную тему!
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.11.2015, 12:43     решить строковые задания
Еще ссылки по теме:

строковые функции - Turbo Pascal
Помогите создать три строковые функции , нужно для библиотеки в Тр... 1.Функция общего назначения ...

Строковые процедуры - Pascal
Написать программу, которая в каждом слове строки, содержащем заданный слог, первое вхождение этого слога переставляет в начало слова.

Строковые величины - PascalABC.NET
ввести любой текст. В даном тексте поменять все слова children на pupil .(ети слова с клавиатуры вводить ненужно)

Строковые переменные - Pascal
Срочно зделайте прогу кто небуть: Дан текст. Найти самую длинную группу цифр, начинающуюся с цифры &quot;9&quot;. и блок схему если можно тож. ,...

строковые переменные - Pascal
Имеется строка,содержащая буквы латинского алфавита и цифры.Вывести на экран количество букв в строке.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
magirus
Супер-модератор
Эксперт по компьютерным сетямЭксперт Windows
26317 / 14619 / 820
Регистрация: 15.09.2009
Сообщений: 63,346
Записей в блоге: 69
15.11.2015, 12:43     решить строковые задания #14
достаточно.
Цитата Сообщение от BlackDead Посмотреть сообщение
Не по одному же вопросу задавать.
именно по одному.
вперед читать правила форума.
Yandex
Объявления
15.11.2015, 12:43     решить строковые задания
Закрытая тема Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru