Задания по ДЕЛФИ (массивы, потом с использованием файлов и строк)

[ramaboss]

Здраствуйте нужна помощь по делфи так как сам особо не шарю.

Массивы (во всех заданиях по массивам, массивы представлять на форме в виде компонента TStringGrid, в которых 0-й столбец и 0-ю строку использовать для отображения индексов массивов)
1. Дан двумерный массив размером N*M, заполненный случайным образом. Удалить все строки, в которых встретится четный отрицательный элемент
2. Подсчитать кол-во одинаковых чисел под главной диагональю матрицы.
3. Дан двумерный массив размером N*M, заполненный случайным образом числами из промежутка [-20,50]. Удалить из него все элементы, в записи которых есть цифра 5
4. Вставить число К после всех элементов, кратных своему номеру
5. Заменить предпоследний элемент массива на максмальный по модулю.
6. Умножить все нечетные элементы массива, кратные 3, на его номер

С использованием строк
7. Дан текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз
8. Дан текст. Сколько слов в тексте? Сколько цифр в тексте.

С использованием файлов (при выполнении индивидуального задания необходимо текст считать из текстового файла. Результат выполнения программы записать в исходный файл).
9. Удалить часть текста, заключенного в скобки (вместе со скобками)
10. Дан текст,содержащий английский текст, найти количество слов, начинающихся с буквы "b"

Буду очень благодарен если сделаете хоть какоенибудь задание

[Sm1Le]

А вы сами начать делать пробывали ? - Попробуй ... а потом выложи то что получилось !!! Вот тогда с удовольствием помогу кодом и советом а решать за тебя - не тебе не мне не полезно =))))

З.Ы.

Additional -> StringGrid (обрашение к ячейке cells[0.0] <- Это Самая верхняя и левая ячейка. Значение ее Это text Тоесть StringGrid.Cells[0,0].text:='Привет!' ; + Знание циклов и первое задание готово =))) Проверка с помощью If then else (оператор выбора)=)))

[ramaboss]

to Sm1Le да дело в том что я напишу только чепуху, проще сделать человеку который знает чем читать мою чепуху

[ramaboss]

ну кто нибудь плиз, вроде задание то легкие, я бы и сам сделал если бы не был таким дубом О_о, последние 4 особенно нужны

[Sm1Le]

именно делфи Это ж(массив) легче на Паскале ?

[ramaboss]

да по задании нужно на Делфи, массивы это второстепенное мне главное со строками и файлами

[ramaboss]

ниче если я тему подниму?

[mutabor]

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

ниче если я тему подниму?

Можно и цену )

[ramaboss]

эх... такую ту задачу за деньги >_<

[ramaboss]

может хотя бы на готовом поможете?
есть два куска кода из них нужно сделать один рабочий
1 кусок (прога ищет сколько слов начинается с данной буквы)

procedure TForm1.Button1Click(Sender: TObject);
var
j,i,n,kol:integer;
s,t:string;
begin
kol:=0;
s:=Trim(Edit1.Text)+' ';
for i:=1 to Length(s) do
begin
for j:=1 to Length(s) do
begin
if s[j]=' ' then
begin
t:=LeftStr(s,j-1);
if t[1]=Edit2.Text then kol:=kol+1;
Break;
end;
end;
if s<>'' then s:=trim(RightStr(s,length(s)-j))
else
break;
end;
label1.caption:= 'сколько слов начинается с буквы' +inttostr(kol);
end;

end.

2 кусок (прога с открываемого .txt ищет колво нужного слова)

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog 1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FindWord('b');
end;

procedure TForm1.FindWord(iWord: string);
var
I, K, LastSpace: integer;
Str: string;
begin
K := 0;
LastSpace := 0;
Str := Memo1.Text;
for I := 0 to Length(Str) do
if Str[i] = ' ' then
begin
if pos(iWord, trim(copy(Str, LastSpace, i - LastSpace))) <> 0 then
inc(K);
LastSpace := I;
end;
ShowMessage('Количество слов "' + iWord + '" в тексте: ' + IntToStr(K));
end;
end.

Так вот нужно к 2 куску из 1 прикрутить поиск по первой букве, а конкретно по букве - 'b', то есть выглядить это будет так: открываешь .тхт, нажымаешь кнопку найти и в всплывающем окне пишется - Количество слов на букву 'b' - такое то. Плиз помогите на вас последняя надежа, ниже прекрепляю куски с формами