Тема: Строки

[Ирина93]

Вывести на экран все согласные первой строки и гласные второй строки

(помогите плиз!) сегодня решается моя судьба

[Hacker19_90]

Используйте множества!Процедуру Delete!

[Luuzuk]

program aaa;
uses crt;
var a,b: string;
    i: integer;
const	glasnye: set of char = ['A','E','I','O','U','Y', 'a','e','i','o','u','y'];
begin	
  writeln('Vvedite stroku 1');
  readln(a);
  writeln('Vvedite stroku 2');
  readln(b);
    
  for i:=1 to length(a) do
    if not (a[i] in glasnye) then write(a[i]);
  writeln;	
  
  for i:=1 to length(b) do
    if b[i] in glasnye then write(b[i]);	
  
  repeat until keypressed;
end.

Используйте множества!Процедуру Delete!

Множества - да. Процедура Delete - ненужная роскошь

[Ирина93]

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

program aaa;
uses crt;
var a,b: string;
    i: integer;
const	glasnye: set of char = ['A','E','I','O','U','Y', 'a','e','i','o','u','y'];
begin	
  writeln('Vvedite stroku 1');
  readln(a);
  writeln('Vvedite stroku 2');
  readln(b);
    
  for i:=1 to length(a) do
    if not (a[i] in glasnye) then write(a[i]);
  writeln;	
  
  for i:=1 to length(b) do
    if b[i] in glasnye then write(b[i]);	
  
  repeat until keypressed;
end.

Множества - да. Процедура Delete - ненужная роскошь

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

[Luuzuk]

Проверено в TurboPascal 7, FreePascal, PascalABC.NET
Всё работает. Работает, как вы понимаете, со строками на английском.
Если нужен русский язык, то вместо английских гласных напишите русские гласные во в этой строке:

const	glasnye: set of char = ['A','E','I','O','U','Y', 'a','e','i','o','u','y'];

P.S. пробелы, цифры и прочие знаки препинания корректно не обрабатываются (будут выведены как гласные). Если это необходимо учитывать - добавьте соотв. условия к

not (a[i] in glasnye)

[Ирина93]

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

program aaa;
uses crt;
var a,b: string;
    i: integer;
const	glasnye: set of char = ['A','E','I','O','U','Y', 'a','e','i','o','u','y'];
begin	
  writeln('Vvedite stroku 1');
  readln(a);
  writeln('Vvedite stroku 2');
  readln(b);
    
  for i:=1 to length(a) do
    if not (a[i] in glasnye) then write(a[i]);
  writeln;	
  
  for i:=1 to length(b) do
    if b[i] in glasnye then write(b[i]);	
  
  repeat until keypressed;
end.

Множества - да. Процедура Delete - ненужная роскошь

всё! уррра!!!!)))) спасибо огромное вам!!!!