Нужна помощь в решении нескольких задач

[KpeHDeJIb]

Для человека хорошо разбирающегося в программировании с такими задачами проблем не возникнет. Итак:

1)Обнулить столбцы матрицы, в которых находятся максимальный и минимальный элементы. (Задача предусматривает решение двумерными массивами)
2)Даны 2 текста, найти одно из общих слов, встречающихся в текстах. (Задача строкового типа)
3)Задача с графикой: необходимо нарисовать Задача.jpg в трех видах, как показано на примерах 1, 2, 3
---
Данные задачи надо решить в Borland Pascal или Delphi
---
Заранее благодарен.

[Olympian]

Ну наработки давай свои. Иначе говори, сколько платишь.

[KpeHDeJIb]

Вот немного похожая на 1ую задача, только в ней надо вычислить, в какой строке матрицы сумма элементов максимальная, а в какой – минимальная, а мне надо обнулить столбцы матрицы, в которых находятся максимальный и минимальный элементы.
---
program Project2;
uses crt;
const
N = 9;
type Mas = array[1..N,1..N] of integer;
var
M: Mas;
i,j: integer;
min,max,jmin,imax: integer;
Begin
Writeln;
Randomize;
for i:=1 to N do begin
for j:=1 to N do begin
M[i,j]:=Random(10);
Write(' ',M[i,j]:3);
end;
Writeln;
end;
max:=M[1,1];imax:=1;
min:=M[1,1];jmin:=1;

for i:=1 to N do begin
for j:=1 to N do begin
if M[i,j] > max then begin
max:=M[i,j];imax:=i;
end;
if M[i,j] < min then begin
min:=M[i,j];jmin:=i;
end;
end;
end;
Writeln;
Writeln('max= ',max,' stroka # ',imax);
Writeln('min= ',min,' stroka # ',jmin);
Writeln;
Readln;
End.

[KpeHDeJIb]

Вот решенное задание 3, но здесь только 1ый вариант, а как делать остальные я незнаю:
program risynko;
uses
graph, crt;
var
driver, mode: integer;
begin
clrscr;
driver:=detect;
initgraph (driver,mode,'c:\bp\bgi'); {директория графического модуля для паскаля}
repeat
setcolor (2);
circle (200,200,30);
setcolor (3);
circle (250,200,30);
setcolor (4);
circle (300,200,30);
setcolor (5);
circle (225,235,30);
setcolor (6);
circle (275,235,30)
until keypressed;
closegraph;
end.

[KpeHDeJIb]

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

[Virtson]

наработки твоих знакомых - не твои ..

[KpeHDeJIb]

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

наработки твоих знакомых - не твои ..

1ая задача я и не сказал что моя, она подобна моей. А вот 3я относится к моему заданию.

[-=<[Evklidd]>=-]

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

2)Даны 2 текста, найти одно из общих слов, встречающихся в текстах. (Задача строкового типа)

В каком виде задан текст? Массив строк, вводящийся с клавиатура, или внешний файл, в каком?

[KpeHDeJIb]

Сообщение от -=<[Evklidd]>=-

В каком виде задан текст? Массив строк, вводящийся с клавиатура, или внешний файл, в каком?

два текста вводятся с клавиатуры

[motaro]

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

3)Задача с графикой: необходимо нарисовать Задача.jpg в трех видах, как показано на примерах 1, 2, 3
Заранее благодарен.

вот как-то так