задачи через Pascal

Тема в разделе "Delphi - FAQ", создана пользователем MetalDima, 25 июн 2007.

Статус темы:
Закрыта.
  1. MetalDima

    MetalDima Гость

    Решите пожалуйста задачи:
    1)Вывести последовательность длиной n, в подпрограмме определить наиболее часто повторяющийся элемент(если он не один, то вывести на экран последний из них)

    2)Слить в один массив два массива одинаковой длины,чередующие элементы этих массивов.
     
  2. SNike

    SNike Гость

    50 баков - и будет готово :(

    Не устраивает - значит смотрим сюда или вот сюда

    На счет $50 - шутка, остальное правда
     
  3. MetalDima

    MetalDima Гость

    {Задача 1}
    procedure GetSequence(a:array of integer;count:word);
    var i:word;
    procedure GetMostOften;
    var
    i1,i2:word;
    maxCount,CurrentCount:word;
    maxMember,CurrentMember:integer;
    begin
    maxCount:=0;
    for i1:=count-1 downto 0 do
    begin
    CurrentMember:=a[i1];
    CurrentCount:=1;
    for i2:=i1 downto 0 do if a[i2]=CurrentMember then inc(CurrentCount);
    dec(CurrentCount);
    if CurrentCount>MaxCount then
    begin
    MaxCount:=CurrentCount;
    MaxMember:=CurrentMember;
    end;
    end;
    Writeln(MaxMember,' - ',MaxCount);
    end;

    begin
    for i:=0 to Count-1 do - Вот здесь пишет unknow identifier
    writeln(a);
    GetMostOften;
    end;
     
  4. Pasha

    Pasha Гость

    Для: MetalDima
    Код (Text):
    var i:integer;
    begin
    for i:=0 to Count-1 do - Вот здесь пишет unknow identifier
    writeln(a[i]);
    GetMostOften;
    end;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей