Очень срочно нужно решить несколько задач,это для меня очень важно.Помогите ,кто рулит в паскале.Буду очень благодарен.Если можете,то напишите краткое описание,чтоб я смог восстановить ход решения и блок схему.
Заранее огромное спасибо,вы меня спасете!!!
1)Принять экран за декартову систему координат с центром в середине экрана.Направление осей-стандартное.В этой системе заданы 3 точки своими координатами(Xa.Ya),(Xb,Yb),(Xc,Yc).Полагая,что это вершины треугольника:
-Нарисовать на экране оси координат ,заданный треугольник,ысоту BF,проведенную к стороне AC и биссектрису AD угла при вершине А;
-Определить координаты точки пересечения высоты и бессектрисы.
2)Дана символьная строка.Расставьте в ней слова в алфавитном порядке.Если слова начинаются на одну букву алфавита ,то порядок среди них устанавливается по второй букве и т.д.Выдайте на экран исходную и полученную строку (в тексте использован только русский алфавит).
3)Двумерный массив А(13,14) заполнен случайным образом целыми числами в диапазоне от -500 до 500.Найти среднее значение по каждому столбцу и каждой строке и количество элементов превышающих найденное среднее значение по каждому столбцу и каждой стороке .Вывести исходный массив и найденные значения и на экран.
4)Даны 3 целых числа.Напишите программу ,которая находит среди них пару чисел с наименьшим общим кратным .Числа вводятся с клавиатуры .Наименьшее общее кратное пар чисел определяется в подпрограмме.

Это сообщение отредактировал(а) -=KING=- - 21.4.2003, 17:24

здесь неделю назад аналогичные задачи решали...
ищи ниже

Уже нету,помогите кто-нить плиз ну очень срочно надо

как это нету
надо просто поискать
http://forum.vingrad.ru/index.php?act=ST&f=2&t=7822

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

тады тебе до понедельника ждать придётся

почему?

Код

program n3; const leni=13;         leny=14; type TMas = array [1..leni,1..leny] of integer; var A:TMas;    i,j:integer;    sred:real;    sredkol:integer; begin   randomize;   //Zapolnenie massiva sluchaynimi chislami   for i:=1 to leni do      for j:=1 to leny do        A[i,j]:=(random(1000)-500);   //Vivod ishodnogo massiva   Writeln('Ishodniy massiv');   for i:=1 to leni do      begin      for j:=1 to leny do        write(A[i,j],' ');        writeln;      end;   //Block raboti po strokam   Writeln;   Writeln('********************Stroki********************');   Writeln;   for i:=1 to leni do   begin      sred:=0;      sredkol:=0;      for j:=1 to leny do         sred:=sred+A[i,j];      sred:=sred/leny;      for j:=1 to leny do        if sred < A[i,j] then inc(sredkol);      Writeln('Srednee znachenie po ', i, ' stroke: ', sred:5:2);      Writeln('Kolichestvo elementov previshaushee srednee: ', sredkol);      writeln('Press Enter');      readln;   end;   //block raboti po stolbcam   Writeln('********************Stolbci********************');   Writeln;   for j:=1 to leny do   begin      sred:=0;      sredkol:=0;      for i:=1 to leni do         sred:=sred+A[i,j];      sred:=sred/leny;      for i:=1 to leni do        if sred < A[i,j] then inc(sredkol);      Writeln('Srednee znachenie po ', j, ' stolbcu: ', sred:5:2);      Writeln('Kolichestvo elementov previshaushee srednee: ', sredkol);      writeln('Press Enter');      readln;   end;   readln; end.

Вот третее заданее, больше времени нет. Если никто не напишет, то потом может быть доделаю остальные.
Можешь все комментарии и вывод на экран перевести на русский, переделать вывод, если захочешь.
Что будет непонятно - обращайся, помогу чем смогу.