Страница 1 из 2
[Turbo Pascal] Задание
Добавлено: 18 янв 2007, 21:48
Nook
Помогите 15. Написать программу для форматированного вывода на монитор комплексного числа в алгебраической и в показательной форме
Re: [Turbo Pascal] Задание
Добавлено: 19 янв 2007, 08:31
isms.ru
Интересно, к программированию в целом и к дельфям в частности как это относится?
И какие формы числа алгебраическое и показательное :-)
Re: [Turbo Pascal] Задание
Добавлено: 28 фев 2007, 23:32
KэF
Вообщем нестал создавать нов тему, решил в этой написать.
Задание на множества.
Дана строка текста. Определить какие гласные буквы встречаються в тексте и вывести их без повторений.
Если впадлу писать решение целиком хоть напешить как определить гласные и как их вывести на экран.
Но лучьше конечно полность написать решение)
Re: [Turbo Pascal] Задание
Добавлено: 28 фев 2007, 23:44
Хыиуду
if pos('a',s)<>0 then write('a');
if pos('o',s)<>0 then write('o');
if pos('e',s)<>0 then write('e');
продолжать?
Re: [Turbo Pascal] Задание
Добавлено: 01 мар 2007, 14:51
KэF
уууууууууу.........не ненадо, понял.
и это так с каждай буквай, как я понял.....да?
Re: [Turbo Pascal] Задание
Добавлено: 01 мар 2007, 16:23
somewhere
Создай строку из гласных букв A и ищи каждую букву A из строки в тексте TEXT с помощью POS.
Text := 'съешь еще этих мягких булочек';
A := 'аеиоуэяыёю';
For i := 1 to 10 do if pos(a, text)>0 then write(a);
Re: [Turbo Pascal] Задание
Добавлено: 01 мар 2007, 20:23
KэF
Действительно, чего меня сразу недопёрло до этого=)).....чувак ты супеР.
Re: [Turbo Pascal] Задание
Добавлено: 02 мар 2007, 10:04
Хыиуду
Так хотелось кому-нибудь подсказать до предела простую, тупую и неоптимизированную программу!
Re: [Turbo Pascal] Задание
Добавлено: 02 мар 2007, 10:15
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) учесть вохможность наличия в строке как строчных, так и прописных букв
Re: [Turbo Pascal] Задание
Добавлено: 02 мар 2007, 16:49
KэF
Всё с множествами разобрался)) счас другая проблема. Нужно нарисовать медведа который открывает и закрывает рот)). Медведа я нарисавол с открытым и закрытым ртом, как мне зделать чтоб они менялись или как сделать чтоб рот открывался.