Страница 1 из 2
Pascal.Множественный тип данных
Добавлено: 31 май 2008, 02:03
ромка)
Дан текст из строчных латинских букв и других знаков. Вычеркнуть из текста все гласные буквы.
Помогите.
Re: Pascal.Множественный тип данных
Добавлено: 31 май 2008, 11:47
BHy4ok
[syntax='Pascal']
uses
crt;
var
i: integer;
S:string;
begin
ClrScr;
write('vvedite stroky: ');
readln(S);
for I := 0 to length(S) do
begin
while S in ['A', 'E', 'I', 'O', 'U','a','e','i','o','u'] do
delete(s,i,1);
end;
Writeln;
writeln(s);
readln;
end.
[/syntax]
Re: Pascal.Множественный тип данных
Добавлено: 31 май 2008, 17:49
ромка)
сделайте пожалуйста со множествами.и чтобы в программе использовались процедуры
Re: Pascal.Множественный тип данных
Добавлено: 31 май 2008, 19:22
MOTOCoder
Множество здесь используется, только оно описано не как константа.
Re: Pascal.Множественный тип данных
Добавлено: 31 май 2008, 21:41
Denys
Вот так правильно
Program d;
type
TMnoz = set of Char;
procedure YdalGl(AMnoz: TMnoz; var AStr: String );
var
i, k: Integer;
begin
k := 0;
for i := 1 to length(AStr) do
if AStr in Amnoz then
begin
delete(AStr, i, 1);
i := i - 1;
end;
end;
var
Mnoz: TMnoz;
Str: String;
begin
Mnoz := ['A', 'a', 'E', 'e', 'I', 'i', 'O', 'o', 'U', 'u', 'Y', 'y', 'J', 'j'];
writeln('vvedute stroky');
readln(Str);
YdalGl(Mnoz, Str);
writeln(Str);
readln;
END.
Re: Pascal.Множественный тип данных
Добавлено: 31 май 2008, 22:52
MOTOCoder
" писал(а):Вот так правильно
Во-первых,
J по моему не гласная. Во-вторых, зачем
i := i - 1; и зачем переменная
k?
Предыдущее решение по-моему более правильное.
И еще: если пишете код, используйте теги
[noparse]
[syntax='Delphi']
Код на Pascal/Delphi
[/syntax]
[/noparse]
Re: Pascal.Множественный тип данных
Добавлено: 01 июн 2008, 00:13
Denys
" писал(а):Во-первых, J по моему не гласная. Во-вторых, зачем i := i - 1; и зачем переменная k?
Предыдущее решение по-моему более правильное.
к- просто забил убрать. i := i - 1 - нужно для того Что б вернутся
на 1 букву назад так как удалив например первую на следующей итерации
будет проверятся 3 задаваемой строки хотя надо проверить вторую.
Re: Pascal.Множественный тип данных
Добавлено: 01 июн 2008, 00:58
MOTOCoder
" писал(а): i := i - 1 - нужно для того Что б вернутся
на 1 букву назад так как удалив например первую на следующей итерации
Да, забыл, так в паскале делать можно, просто Delphi, например, не разрешает изменять счетчик в цикле
for.
Re: Pascal.Множественный тип данных
Добавлено: 01 июн 2008, 23:19
ромка)
<Боооольшое спасибо всем!!!!особенно Denys !
Re: Pascal.Множественный тип данных
Добавлено: 02 июн 2008, 17:41
ромка)
а нет.поторопился.она не выводит нечего