Из множества латинских букв выделить множество символов не включающих буквы вашего имени

[DjDeniels-61]

Задачка на записи.
1) Из множества латинских букв выделить множество состоящее из символов не входящих в множество символов состовляющих ваше имя (Денис)
Вывести это множество на экран.

uses crt;
var
s,s1:string;
i:integer;
Begin
clrscr;
writeln('vvodite stroky');
readln(s);
s1:='';
for i:=1 to length(s) do
if not (s[i] in ['D','e','n','i','s']) then s1:=s1+s[i];
writeln(s1);
readln
end.
можете проверить...


Заранее огромное спасибо!!!

[Sazary]

В принципе, правильно. Но я бы сделал так:

uses crt;
var 
s,s1:string; 
i:integer; 
Begin
clrscr;
writeln('vvodite stroky');
readln(s);
s1:='';
for i:=1 to length(s) do 
 if not (UpCase(s[i]) in ['D','E','N','I','S']) then s1:=s1+s[i];
writeln(s1);
readln 
end.

чтобы регистр не учитывался

[DjDeniels-61]

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

[Sazary]

Сообщение от DjDeniels-61

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

В строку "которую выдает" ничего ввести нельзя.
Не понимаю, что вы хотите.
Пример ввода:

vvodite stroky
asdfgh
afgh

[DjDeniels-61]

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

[Sazary]

Начнем с того, что работаете вы не с множеством, а со строкой.
Соответственно и выводите вы строку.

Сообщение от DjDeniels-61

а каким образом она это делает и что выводит??

Что значит каким образом?
Данная программа выводит те символы введенной строки, которых нет в слове "denis".

Хотя если причитать название темы:

Из множества латинских букв выделить множество символов не включающих буквы вашего имени

то вам нужно не это.

[DjDeniels-61]

Спасибо огромно,понял!!!

Уважаемый Sazary Вы дружите с графикой на паскале???

[Sazary]

Дружу, но это уже другая тема.

[DjDeniels-61]

Можешь помочь,я написал,на форуме...