задача

[Ainash]

Необходимо решить задачу:
Написать программу, которая представляет натуральное число (1<=N<=3000) римскими цифрами. Входной файл torim.in содержит исходное число. В файл torim.out записать результат.

[Риндера]

3 одинаковых темы - боооольшой залёт. Беги пока не поздно!)

[_-Re@l-_]

Это не залёт. Это кросспостинг

[pray_driver]

Эту задачу помоему можно даже в гугле найти если поискать. Задача-то стандартная для начинающих изучать программирование

[Stilet]

. Беги пока не поздно!)

Ну почему же беги? Я с удовольствием покажу пример решения:

MODULE Рим;
IMPORT StdLog;
VAR Число:INTEGER;
 s:ARRAY(13) OF ARRAY(3) OF CHAR;
 ara:ARRAY(13) OF INTEGER;

PROCEDURE Перевести*;
VAR i:INTEGER;
BEGIN
 i:=12;
 StdLog.Clear;
 WHILE i>0 DO 
  WHILE Число>=ara[i] DO
   Число:=Число-ara[i];
   StdLog.String(s[i]) ;
  END;
  DEC(i);
 END;

END Перевести;


BEGIN
 Число:=123;

 s[0]:='I';				ara[0]:=1;
 s[1]:='IV';   ara[1]:=4; 
 s[2]:='V';				ara[2]:=5;
 s[3]:='IX';   ara[3]:=9;
 s[4]:='X';    ara[4]:=10;
 s[5]:='XL';   ara[5]:=40;
 s[6]:='L';    ara[6]:=50;
 s[7]:='XC';   ara[7]:=90;
 s[8]:='C';    ara[8]:=100;
 s[9]:='CD';   ara[9]:=400;
 s[10]:='D';   ara[10]:=500;
 s[11]:='CM';  ara[11]:=900;
 s[12]:='M';   ara[12]:=1000;
END Рим.
Рим.Перевести;

Немного неоптимально, но вполне работает

[Serge_Bliznykov]

Сообщение от Stilet

Ну почему же беги? Я с удовольствием покажу пример решения:

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

[MARADER86]

Из матрицы А[3,4] получить вектор В, элементами которого являются наибольшие элементы столбцов матрицы.

люди умоляю помогите решить эту задачу на паскале!!! если можно распишите все от Program о end! поймите по человечески(((

[Serge_Bliznykov]

оп-с! А объясните мне, пожалуйста,
кто и какого рожна удалил ту тему, где были ответы с примерами кода?!!!!!


Конкретно, там я привел пример решения

{Источник: "Наука и жизнь" N12 1986  cтр. 95 }
{Алгоритм: В. Птицын г.Москва }

const
   Rims : array[1..MaxVariant] of str2 = ('M','CM','D','CD','C','XC','L','XL','X','IX','V','IV','I',' ');
   Arab : array[1..MaxVariant] of integer = (1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1, 0);


  function Arab2Rim(N : integer) : string;
  var S : string;
      I : integer;
  begin
    S := ''; I:=1;
    while N > 0 do begin
      while Arab[I]<=N do begin
        S := S + Rims[I];
        N := N - Arab[I]
      end;
      I:=I+1
    end;
    Arab2Rim := S
  end;

[MARADER86]

Из матрицы А[3,4] получить вектор В, элементами которого являются наибольшие элементы столбцов матрицы.

люди умоляю помогите решить эту задачу на паскале!!! если можно распишите все от Program о end! поймите по человечески(((

[Niro]

Что-то действительно странное на форуме происходит: то практически одинаковые задачи от разных пользователй, то от одного пользователя несколько одинаковых задач, только в разных темах и причем созданных не ими, в то время как из раздела Паскаль темы тучами пененосятся, раньше вроде бы так не было, ну да ладно, теперь по теме

Из матрицы А[3,4] получить вектор В, элементами которого являются наибольшие элементы столбцов матрицы.

люди умоляю помогите решить эту задачу на паскале!!! если можно распишите все от Program о end! поймите по человечески(((

uses crt;   
   const n=3; m=4;
   var A: array [1..n,1..m] of integer; 
       B: array [1..m] of integer;
       i,j: integer;
BEGIN
   clrscr;
   randomize; {заполянем массив случайными числами и выводим их}
   for i:=1 to n do
       for j:=1 to m do
         begin
           A[i,j]:=random(10);
           write(A[i,j],' ');
           if j=m then writeln;
         end;

   for i:=1 to m do {находим в каждом столбце максимальный элемент и записываем его в массив B}
    begin
      B[i]:=A[1,i];
      for j:=1 to n do
      if B[i]<=A[j,i] then B[i]:=A[j,i];
    end;

   writeln('------------------------------');
   for i:=1 to m do     {выводим полученный вектор-массив}
     writeln(B[i]);
   readln;
END.