[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#10

24.11.2009, 23:38

P.A.U.L

Познающий

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

Сообщений: 32

Провел на форуме:
482943

Репутация: 0

Отправить сообщение для P.A.U.L с помощью ICQ

[Pascal]И еще вот эту помогите доработать чутка...

Вот так звучит задача: Дана строка символов, удалить из нее все строчные латинские символы)

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

Цитата:

uses crt;
var s:string;
i,l:integer;
begin
clrscr;
write('stroka: '); readln(s);
l:=length(s);

for i:=1 to l do begin
if (s[i]=(chr(97))) or (s[i]=(chr(98))) or (s[i]=(chr(99))) or (s[i]=(chr(100)))or
(s[i]=(chr(101)))or(s[i]=(chr(102)))or(s[i]=(chr(103)))or(s[i]=(chr(104)))or
(s[i]=(chr(105)))or(s[i]=(chr(106)))or(s[i]=(chr(107)))or(s[i]=(chr(108)))or
(s[i]=(chr(109)))or(s[i]=(chr(110)))or(s[i]=(chr(111)))or
(s[i]=(chr(112)))or(s[i]=(chr(113)))or(s[i]=(chr(114)))or(s[i]=(chr(115)))or
(s[i]=(chr(116)))or(s[i]=(chr(117)))or(s[i]=(chr(118)))or
(s[i]=(chr(119)))or(s[i]=(chr(120)))or(s[i]=(chr(121))) or
(s[i]=(chr(122)))or(s[i]=(chr(123)))or(s[i]=(chr(124)))

then delete(s,i,1)
end;
writeln(s);
readln;
end.