Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
18 Дек 2017, 23:31
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Массивы  (Прочитано 1877 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн n1kolashqa

  • *
  • Сообщений: 3
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2011-11-02
  • Сайт: 
  • Профессия: Программист 1С
Массивы
« Первое сообщение: 02 Ноя 2011, 15:51 »
Извините конечно дурака, очень прошу помощи, с 1с почти не имел дел, сделал 2 программы, более менее работают, а вот с массивами полный атас,  понимаю что 1с чем-то похож на паскаль, но с паскалем намного проще, кто может помочь это, сделать на 1с
const
  n=30;
  m=2;
var
  mas: array[1..n] of word;
  popular: array[1..n, 1..2] of word;
  f, p, i, j, k: word;
begin
  randomize;
  for i := 1 to n do
  begin
    mas := random(5);
    write(mas:2)
  end;
  for i := 1 to n-1 do
  for j := i+1 to n do
  if mas > mas[j] then
  begin
    k := mas;
    mas := mas[j];
    mas[j] := k
  end;
  writeln;
  i := 1;
  p := 1;
  writeln('Vsego');
  repeat
    k := 1;
    while (mas = mas[i+1])and(i<n) do
    begin
      inc(k);
      inc(i);
    end;
    writeln(mas, ' - ', k*100/n:0:2, '%');
    popular[p, 1] := k;
    popular[p, 2] := mas;
    inc(p);
    inc(i)
  until i > n;
  for i := 1 to p-2 do
  for j := i+1 to p-1 do
  if popular[i, 1] < popular[j, 1] then
  for f := 1 to 2 do
  begin
    k := popular[i, f];
    popular[i, f] := popular[j, f];
    popular[j, f] := k
  end;
  writeln('Itogo');
  if p > m then p := m;
  for i := 1 to p do
  writeln(popular[i, 2], ' - ', popular[i, 1]*100/n:0:2, '%');
  readln
end.


я конечно попробовал даже что-то сам сделать, но даже массивы не получилось вывести, написал какую-то бурду

перем мас экспорт;
перем элем экспорт;

Процедура КнопкаВыполнитьНажатие(Кнопка)
   // Вставить содержимое обработчика.
   перем инд, инд2, кол, проц, ф,н;
      кол=0;
      для инд=0 по н-1 цикл
         если мас[инд]=0 тогда
            кол=кол+1;
         для инд2=инд+1 по н-1 цикл
         мас[инд2-1]=мас[инд2];   
      конеццикла;
      инд=инд-1;
   конецесли;
конеццикла;
для инд=0 по н-1-кол цикл
      сообщить(мас[инд]);
   конеццикла;
   элем=0;
КонецПроцедуры


Оффлайн n1kolashqa

  • *
  • Сообщений: 3
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2011-11-02
  • Сайт: 
  • Профессия: Программист 1С
Re: Массивы
« Ответ #1: 02 Ноя 2011, 15:52 »
перем мас экспорт;
перем элем экспорт;

Процедура КнопкаВыполнитьНажатие(Кнопка)
   // Вставить содержимое обработчика.
   перем инд, инд2, кол, проц, ф,н;
      кол=0;
      для инд=0 по н-1 цикл
         если мас[инд]=0 тогда
            кол=кол+1;
         для инд2=инд+1 по н-1 цикл
         мас[инд2-1]=мас[инд2];   
      конеццикла;
      инд=инд-1;
   конецесли;
конеццикла;
для инд=0 по н-1-кол цикл
      сообщить(мас[инд]);
   конеццикла;
   элем=0;
КонецПроцедуры

Оффлайн n1kolashqa

  • *
  • Сообщений: 3
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2011-11-02
  • Сайт: 
  • Профессия: Программист 1С
Re: Массивы
« Ответ #2: 02 Ноя 2011, 16:01 »
а вообще задание:
В целочисленном массиве K(n) много повторяющихся элементов. Найти (в процентах) частоту появления каждого из m наиболее часто встречающихся элементов (m<<n)


Теги:
 


* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
141 Сообщений
AIFrame
73 Сообщений
ilyay ilyay
65 Сообщений
alex0402
52 Сообщений
andron81_81
44 Сообщений
oleg-x
41 Сообщений
MuI_I_Ika MuI_I_Ika
31 Сообщений
BuhRust
31 Сообщений
Golickoff Golickoff
27 Сообщений
alexandr_ll
23 Сообщений

* Кто онлайн

  • Точка Гостей: 291
  • Точка Скрытых: 0
  • Точка Пользователей: 4
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal