Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Помогите пожалуйста!!!

Автор: -=KING=- 19.4.2003, 12:59

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

Автор: DonPager 19.4.2003, 13:09

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

Автор: -=KING=- 19.4.2003, 14:39

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

Автор: DonPager 19.4.2003, 15:04

как это нету

надо просто поискать

http://forum.vingrad.ru/index.php?act=ST&f=2&t=7822

Автор: -=KING=- 19.4.2003, 15:26

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

Автор: DonPager 19.4.2003, 15:34

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

Автор: -=KING=- 19.4.2003, 15:42

почему?

Автор: Zzz 19.4.2003, 15:49

Код


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.

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