PDA

Просмотр полной версии : Помогите с Delphi



defeat
05.12.2007, 10:27
Здравствуйте! Нужна ваша помощь...решить 2 задачи...очень надо скоро сессия...
АДАНИЕ 1:
ЭТО УСЛОВИЕ : Текст ввести с помощью компонента Memo.
Вывести слова исходного текста в алфавитном порядке.

А ВОТ И САМО ЗАДАНИЕ: Дан текст. Сколько слов в тексте? Сколько цифр в тексте?

ЗАДАНИЕ 2:
Дан двумерный массив размером n*m.

1. Заменить максимальный элемент каждого столбца нулем

2. Вставить после всех строк, содержащих максимальный по модулю элемент, первую строку.

3. Удалить из него строку и столбец, на перекрестье которых находится максимальный по модулю элемент..

4. Поменять местами последний и предпоследний столбцы.
Помогите пожалуйста!!!Заранее благодарю!

Хыиуду
05.12.2007, 10:53
1. Раздел "Алгоритмы", тема "Разбиение строки на слова".
Количество цифр -
for i:=1 to length(s) do
if (s[i]>='0') and (s[i]<='9') then inc(count);
2. Раздел "Алгоритмы", тема "Нахождение максимума".

defeat
05.12.2007, 13:25
ПАсибо большое!!!:D

Oleg_Rus
10.12.2007, 07:56
4. procedure zamena;
var i, j, buff: integer;
begin
For i:=1 to n do
begin
buff:=a[i, m-1];
a[i, m-1]:=a[i, m];
a[i, m]:=buff;
end;
end;
_______________
должна сработать...