Удалить из предложения символы псевдографики, и подсчитать разность между длиной исходного и сформированного предложения

@DeKe · Регистрация: 28.12.2009

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

Написать программу обработки строк в соответствии c условием задания. Обработка строк должна быть реализована в подпрограмме. Исходные строки ввести в главной программе. Результат обработки вы-вести в главной программе.

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

символы псевдографики находятся с 176 по 243 элементов в таблице
вроде как начал, но не уверен даже в этом

да и времени уже мало остается, было бы конечно бы постарался, поэтому прошу помочь

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program pr11;
uses crt;
type masstr = array[1..20] of string;
procedure ms(s1: string; var s2: masstr; var count: byte);
var i1, i2: byte;
i, L: byte;
begin
L:= length(s1);
i1:= 1; i2:= 0;
count:= 0;
for i:=1 to L do begin
    for n:=176 to 243 do
    if ord(s1[i])=chr(n)
    then s:=s+s1[i]
    s[i]:=chr(n)
end;
end

как-то так начал но дальше не совсем соображаю

@Twic · 28.12.2009, 14:35

Ну смотри ты уже процедурку!! создал ! Теперь нужно эту процедуру использовать в программе !

@Puporev · 28.12.2009, 14:43

символы псевдографики находятся с 176 по 243 элементов в таблице

Вообще-то эти символы имеют коды от 176 до 223, потом идут строчные русские буквы от р до ё, потом символы, не относящиеся к псевдографике.
Смотрите здесь.
Написать функцию, которая возвращает N правых символов в виде строки

@DeKe · 28.12.2009, 15:03 **[ТС]**

Сообщение от Twic

Ну смотри ты уже процедурку!! создал ! Теперь нужно эту процедуру использовать в программе !

ну это да, я понимаю

, просто я в ней не уверен
ну длину строк легко найти будет, просто сама реализация процедуры правильная?

Сообщение от Puporev

Вообще-то эти символы имеют коды от 176 до 223, потом идут строчные русские буквы от р до ё, потом символы, не относящиеся к псевдографике.
Смотрите здесь.
Написать функцию, которая возвращает N правых символов в виде строки

спасибо

просто в лекциях были те коды, которые я указал

@Puporev · 28.12.2009, 15:29

Pascal
1
2
3
4
5
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
 
program pr11;
uses crt;
const max=20;
procedure ms(var s: string;var r:byte);
var l1,i: byte;
begin
l1:=length(s);
for i:=l1 downto 1 do
if ord(s[i]) in [176..223]
then delete(s,i,1);
r:=l1-length(s);
writeln(s,' разность=',r);
end;
var a:array[1..max] of string;
    n,i,k:byte;
begin
clrscr;
repeat
write('Введите количество предложений, до ',max,' n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' строк, содержащих символы псевдографики');
for i:=1 to n do
readln(a[i]);
writeln;
writeln('Измененные строки:');
for i:=1 to n do
ms(a[i],k);
readln
end.

Если вдруг не знаете, то вводить символы псевдографики так - нажать Alt и набрпть код клавиши, например 205, отпустить Alt.

@DeKe · 28.12.2009, 15:33 **[ТС]**

Если вдруг не знаете, то вводить символы псевдографики так - нажать Alt и набрпть код клавиши, например 205, отпустить Alt.[/QUOTE]

спасибо большое
сам уже упрощу задачу

@Puporev · 28.12.2009, 15:42

сам уже упрощу задачу

Да куда еще проще, все по условию.

@igor_861 · 05.06.2017, 19:55

так ведь не изменяется строка, символы остаются и разность нулевая..

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git

@Twic 18 / 18 / 12 Регистрация: 03.12.2009 Сообщений: 151
	28.12.2009, 14:35
	Ну смотри ты уже процедурку!! создал ! Теперь нужно эту процедуру использовать в программе ! 0

@DeKe 0 / 0 / 0 Регистрация: 28.12.2009 Сообщений: 5
	28.12.2009, 15:33 [ТС]
	Если вдруг не знаете, то вводить символы псевдографики так - нажать Alt и набрпть код клавиши, например 205, отпустить Alt.[/QUOTE] спасибо большое сам уже упрощу задачу 0

@igor_861 0 / 0 / 0 Регистрация: 14.05.2017 Сообщений: 7
	05.06.2017, 19:55
	так ведь не изменяется строка, символы остаются и разность нулевая.. 0