Вниз  Pascal
- 12.05.2012 / 10:42
TAPAHbl4
  Пользователь

TAPAHbl4 
Сейчас: Offline
Ребят, помогите.
К примеру есть массив с числами 1 2 2 3 4 4 5.
Нужно узнать из скольких уникальных чисел состоит он, здесь это числа 1 2 3 4 5, а их количество 5.
- 12.05.2012 / 11:02
Freddy
  Пользователь

Freddy 
Сейчас: Offline
TAPAHbl4,
  1. const
  2.   n = 10;
  3. var
  4.   arr: array [0..n] of integer;
  5.   count, current, i: integer;
  6. begin  
  7.   {sort is there}
  8.   //Сортируем массив по возрастанию
  9.   current := arr[0];
  10.   count := 1;
  11.   for i := 1 to n do begin
  12.     if (arr[i]<>current) then begin
  13.       current := arr[i];
  14.       inc(count);
  15.     end;
  16.   end;
  17.   Writeln(count);
  18. end.

- 12.05.2012 / 11:54
TAPAHbl4
  Пользователь

TAPAHbl4 
Сейчас: Offline
Freddy, спасибо, я уже нашёл :)
- 12.05.2012 / 12:01
TAPAHbl4
  Пользователь

TAPAHbl4 
Сейчас: Offline
Подскажите, как из массива первый элемент сделать последним, причём все элементы должны сдвинуться
- 12.05.2012 / 13:52
Naik
  Пользователь

Naik 
Сейчас: Offline
TAPAHbl4, Создаешь еще один массив такого же размера, в него на последнее место ставишь 1 елемент первого массива и дальше переносишь все остальные со здвигом на единицу.
- 12.05.2012 / 15:00
TAPAHbl4
  Пользователь

TAPAHbl4 
Сейчас: Offline
Naik, не. Зачем лишний массив? Просто первую переменную в отдельную переменную записать, потом сдвинуть и присвоить последнему элементу значение временной переменной
- 15.08.2012 / 12:33
boNNdaR
  Пользователь

boNNdaR 
Сейчас: Offline
Напишите HelloWorld,пожалуста.
- 15.08.2012 / 12:42
ВитаминКО
  Супермодератор

ВитаминКО 
Сейчас: Offline
program HelloWorld;
  begin
   writeln ("Hello, World");
  end.
__________________
 わからない!!
- 15.08.2012 / 12:43
ВитаминКО
  Супермодератор

ВитаминКО 
Сейчас: Offline
хоть бы самоучитель какой скачал... или тупо сайт открыл, сохранил - и смотри офф
__________________
 わからない!!
- 15.08.2012 / 12:48
XakepPRO
  Модератор форума

XakepPRO 
Сейчас: Offline
boNNdaR, предлагаю тебе заняться не pascal'eм. Лучше python :gg:
Наверх  Всего сообщений: 540
Фильтровать сообщения
Поиск по теме
Файлы топика (22)