Практика

23.01.2011, 17:22. **Показов** 2225. **Ответов** 3

Author24 — интернет-сервис помощи студентам

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

Добавлено через 1 час 37 минут
HELP!!!!!!!!!!!!!!

@Ev[G]eN · 23.01.2011, 23:53

№ 3

Pascal

program EvGeN;
var
 a, S : real;
begin
 readln(a);
 S := (sqr(a));
 writeln(S);
end.

Добавлено через 5 минут
№ 4

Pascal

program EvGeN;
var
 a, b, c, m : real;
begin
 readln(a, b, c);
 m := (sqrt(2 * (sqr(b) + sqr(c)) - sqr(a))/ 2);
 writeln(m);
end.

Добавлено через 4 минуты
№ 5

Pascal

program EvGeN;
var
 S1, S2, H, V : real;
begin
 readln(S1, S2, H);
 V := (S1 + (sqrt(S1 + S2)) + S2) * (H / 3);
 writeln(V);
end.

24.01.2011, 13:31

Спасибо огромное, но это еще не все =)

Добавлено через 16 минут
Мне нужен Лазарус а это Паскаль=((((((((((

Добавлено через 23 минуты
3. Вычислить площадь квадрата
4. Вычислить медианы треугольников если заданны стороны
5. Вычислит объем усеченного конуса
Заранее спасибо!

Добавлено через 1 минуту
Решите пожалуйста!!!
Экзамен не за горами.
Первую и вторую решили:

Добавлено через 39 секунд
1 задача

Delphi

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 задача

Delphi

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;

@Iv_ · 24.01.2011, 13:55

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

А я не шарю в лазарусе

А при чём тут Lazarus? Обычные задания.

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

Мне нужен Лазарус а это Паскаль=((((((((((

Так и должно быть! Lazarus - среда для ООП под FreePascal. Весь код пишется на Pascal. Все принципы работы с Delphi применимы и для работы с Lazarus (есть кое-какие нюансы, но в целом - применимы).
Открывайте Lazarus (если именно в нём надо) создавайте приложение, добавляйте поля ввода (тот же TEdit) и цепляйте предложенный вам код на кнопку.

F L o_O P
		1
	Практика 23.01.2011, 17:22. Показов 2225. Ответов 3 Метки нет (Все метки) Помогите пожалуйста Дали задачи которые будут в билетах на экзамене А я не шарю в лазарусе Вот они: 1. В данной матрице диагональные элементы заменить на 0 2. Найти сумму элементов данной строки заданной матрицы 3. Вычислить площадь квадрата 4. Вычислить медианы треугольников если заданны стороны 5. Вычислит объем усеченного конуса Заранее спасибо! Добавлено через 1 час 37 минут HELP!!!!!!!!!!!!!!

@Iv_ 36 / 36 / 7 Регистрация: 08.01.2011 Сообщений: 137
	24.01.2011, 13:55	4
	Сообщение от F L o_O P А я не шарю в лазарусе А при чём тут Lazarus? Обычные задания. Сообщение от F L o_O P Мне нужен Лазарус а это Паскаль=(((((((((( Так и должно быть! Lazarus - среда для ООП под FreePascal. Весь код пишется на Pascal. Все принципы работы с Delphi применимы и для работы с Lazarus (есть кое-какие нюансы, но в целом - применимы). Открывайте Lazarus (если именно в нём надо) создавайте приложение, добавляйте поля ввода (тот же TEdit) и цепляйте предложенный вам код на кнопку. 0