Lazarus

[F L o_O P]

Помогите пожалуйста
Дали задачи которые будут в билетах на экзамене
А я не шарю в лазарусе
Вот они:
1.вычислить площадь квадрата
2.вычислить медианы треугольников если заданны стороны
3.вычислит объем усеченного конуса
4.найти наибольшее из трех чисел
5.найти сумму первых натуральных чисел
6.вывести на экран числа пренадлежащие отрезку [m,n] и кратные 7
Заранее спасибо!

4.найти наибольшее из трех чисел
5.найти сумму первых натуральных чисел
6.вывести на экран числа пренадлежащие отрезку [m,n] и кратные 7

7.в данном слове заменить букву А на Я
8.определить является ли симметричным данное слово
1,2 и 3 не надо=)
Решите пожалуйста
Экзамен не за горами.

[Alex Cones]

Решите пожалуйста

Либо показываем свои наработки, либо топаем в раздел "фриланс".

[Delphi_ProGer]

Сообщение от F L o_O P

4.найти наибольшее из трех чисел
5.найти сумму первых натуральных чисел
6.вывести на экран числа пренадлежащие отрезку [m,n] и кратные 7

7.в данном слове заменить букву А на Я
8.определить является ли симметричным данное слово
1,2 и 3 не надо=)
Решите пожалуйста
Экзамен не за горами.

Я бы помогог, но как сказали выше - дайте пожалуйста код(если вы что-то делали).

[F L o_O P]

1 задача

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
for i:=0 to 4 do
for j:=0 to 4 do
StringGrid1.Cells[i,j]:=IntToStr(random(10));
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
for i:=0 to 4 do
for j:=0 to 4 do
if i=j then StringGrid1.Cells[i,j]:=IntToStr(0);
end;

2 задача

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
for i:=0 to 4 do
for j:=0 to 4 do
StringGrid1.Cells[i,j]:=IntToStr(random(10));
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
s,k:integer;
begin
k:=StrToInt(Edit1.Text);
s:=0;
for i:=0 to 4 do
for j:=0 to 4 do
if j=k then s:=s+StrToInt(StringGrid1.Cells[i,j]);
Edit2.Text:=IntToStr(s);
end;

1. В данной матрице диагональные элементы заменить на 0
2. Найти сумму элементов данной строки заданной матрицы
Это я сделал по тетрадям, но их не выложил по понятным причинам(потому что сделал=))