Решение задач

[Irusik]

Помогите решить задачи на турбо паскале, сессия на носу, а решить задачи не получается!!!!
1.Написать программу, выводящую на экран значений трех переменных вещественного типа с пятью цифрами целой части и тремя – дробной.
2. Составить программу для определения указанных ниже параметров треугольника. Выполнить программу для конкретных значений аргументов. Результаты выполнения программ проверить по соответствующему чертежу.1) Заданы длины трех сторон треугольника. Найти биссектрисы.
3. В следующей задаче требуется написать программу, использующую одномерные массивы элементов соответствующего типа:
1) Дана последовательность из n вещественных чисел. Упорядочить последовательность по убыванию
2) Выполнить задание в соответствии с вариантом:
Дана действительная матрица размера n * 9. Найти среднее арифметическое элементов каждого столбца.

[Stilet]

1.Написать программу, выводящую на экран значений трех переменных вещественного типа с пятью цифрами целой части и тремя – дробной.

write(q:5:3) - выведет на экран значение вещественной с 5ю знаками до точки и тремя после

айти биссектрисы.

Формулу биссектрисы в студию.

Упорядочить последовательность по убыванию

http://www.programmersforum.ru/showthread.php?t=1688
Выбирай сортировки.

Найти среднее арифметическое элементов каждого столбца.

Покажи как вводишь матрицу

[Irusik]

Я вообще не знаю как решать эти задачи

[Don Karleone]

№ 3.1

const
  n = 10;
var
  mas: array [1..n] of real;
  H: real;
  i, j: integer;

begin
  randomize;
  for i:=1 to n do
    mas[i]:=random(20)+random;
  for i:=1 to n-1 do
    for j:=i to n-1 do
      if mas[j] > mas[j+1] then
                                    begin
                                       H:=mas[j];
                                       mas[j]:=mas[j+1];
                                       mas[j+1]:=H;
                                    end; 
  for i:=1 to n do
    write(mas[i]:6:1);
  readln;
end;

[ROMA2PVT]

Я вообще не знаю как решать эти задачи

А на паре чем слушаете?

[Irusik]

Повидимому вы не знаете что такое заочное отделение, когда к вам приходят, дают лист с заданиями и уходят, а вы (студенты) что хотите, то и делайте

[Stilet]

Повидимому вы не знаете что такое заочное отделение, когда к вам приходят, дают лист с заданиями и уходят, а вы (студенты) что хотите, то и делайте

Знаем. Почему же?
Знаешь что студенты делают в таких случаях?
1) Идут в библиотеку
2) Дают преподу на лапу
3) Выясняют у своих сокурсников где и чего.

В любом случае методички и литературу преподаватель должен дать, а в них уже есть намеки где и что искать. Так что нужно не ленится а почитать литературу, методички с курса. Не бояться поспрашивать преподавателя чем руководствоваться при решении.

Это я тебе говорю как бывший студент заочного отделения.

[ROMA2PVT]

ладно помогу.

{2) Выполнить задание в соответствии с вариантом: 
Дана действительная матрица размера n * 9. Найти среднее арифметическое элементов каждого столбца.}
Uses
 CRT;
Const
 m=9;
var
 i,j,n:integer;
 a:array[1..20,1..m] of real;
 sr,sum:real;
begin
ClrScr;
write('Ââåäèòå êîëè÷åñòâî ñòðîê: ');
 readln(n);
 randomize;
  for i:=1 to n do
  begin
   for j:=1 to m do
   begin
    a[i,j]:=5*random*(-3);
    write(a[i,j]:7:2);
   end;
  writeln;
  end;
writeln;
  for j:=1 to m do
  begin
   sum:=0;
    for i:=1 to n do
     sum:=sum+a[i,j];
     sr:=sum/n;
    writeln('Ñðåäíåå àðèôìåòè÷åñêîå ýëåìåíòîâ ',j,'-ãî ñòîëáöà:=',sr:1:3);
  end;
readkey
end.

Ато как вспомню заочниц:''Ну я не помню где Пуск и как Microsoft Word найти".До сих пор угораю

[Irusik]

Спасибо огромное!

[Алиса^^]

помогите пожалуйста решить задачу,как решить ее понимаю,а как записать в паскале нет((в паскале вообще ничего не понимаю((
даны координаты трех вершин треугольника(х1,у1),(х2,у2),(х3,у3) .найти его периметр и площадь