[Turbo Pascal] Задание

[Nook]

Помогите 15. Написать программу для форматированного вывода на монитор комплексного числа в алгебраической и в показательной форме

[isms.ru]

Интересно, к программированию в целом и к дельфям в частности как это относится?
И какие формы числа алгебраическое и показательное :-)

[KэF]

Вообщем нестал создавать нов тему, решил в этой написать.
Задание на множества.
Дана строка текста. Определить какие гласные буквы встречаються в тексте и вывести их без повторений.
Если впадлу писать решение целиком хоть напешить как определить гласные и как их вывести на экран.
Но лучьше конечно полность написать решение)

[Хыиуду]

if pos('a',s)<>0 then write('a');
if pos('o',s)<>0 then write('o');
if pos('e',s)<>0 then write('e');
продолжать?

[KэF]

уууууууууу.........не ненадо, понял.
и это так с каждай буквай, как я понял.....да?

[somewhere]

Создай строку из гласных букв A и ищи каждую букву A из строки в тексте TEXT с помощью POS.

Text := 'съешь еще этих мягких булочек';
A := 'аеиоуэяыёю';
For i := 1 to 10 do if pos(a, text)>0 then write(a);

[KэF]

Действительно, чего меня сразу недопёрло до этого=)).....чувак ты супеР.

[Хыиуду]

Так хотелось кому-нибудь подсказать до предела простую, тупую и неоптимизированную программу!

[BBB]

Если задача на множества, то, возможно, подразумевается что-нибудь вроде этого:

Код: Выделить всё

const achVseGlasnye : set of char = ['а','е','ё','и','о','у','ы','э','ю','я'];
var achVStroke : set of char;
      i : integer;
begin
  achVStroke := [];
  for i:= 1 to Length (St) do   // St - тестируемая строка
    begin
       if (St[i] in achVseGlasnye) then
          achVStroke := achVStroke + [St[i]];
    end;
end.

Правда, теперь надо:
1) как-то перебрать элементы achVStroke и вывести их на печать
2) учесть вохможность наличия в строке как строчных, так и прописных букв

[KэF]

Всё с множествами разобрался)) счас другая проблема. Нужно нарисовать медведа который открывает и закрывает рот)). Медведа я нарисавол с открытым и закрытым ртом, как мне зделать чтоб они менялись или как сделать чтоб рот открывался.