Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
ТатьянаК
0 / 0 / 0
Регистрация: 26.10.2009
Сообщений: 25
#1

Определить, имеется ли у вектора х хотя бы две одинаковые ссылки

31.10.2010, 16:28. Просмотров 410. Ответов 2
Метки нет (Все метки)

Считая, что все элементы вектора х не равны nil, описать логическую функцию same(x), которая проверяет, имеется ли у вектора х хотя бы две одинаковые ссылки.
Имеется описание:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Туре роint=^real;
     vect=array[1..100] of point;
Var x: vect;
 
 
uses crt;
type
 point=^real;
 vect=array [1..100] of point;
var
 x: vect;
 i,j: integer;
 
 function same(x: vect):boolean;
 begin
  same:=true;
    for i:=1 to 99 do begin
      for j:=i+1 to 100 do begin
         if x[i]^=x[j]^ then begin
            same:=false;
            break;
         end;
      end;
    end;
 end;
 
 
 
BEGIN
clrscr;
randomize;
j:=0;
 writeln('Ishodnii massiv sgenerirovannih elementov:');
 for i:=1 to 100 do begin
        NEW(x[i]);
        x[i]^:=(random(50)-50)/10;
        if j mod 10=0 then begin
           j:=0;
           writeln;
        end;
        write(x[i]^:0:2,'   ');
        j:=j+1;
end;
  writeln;
  if same(x) then writeln('Vse ssilki razlichnie')
  else writeln('Est odinakovie ssilki');
  for i:=1 to 100 do DISPOSE(x[i]);
  readln;
END.
плиз расскажыте что тут делается??

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2010, 16:28
Ответы с готовыми решениями:

Определить, имеется ли в массиве хотя бы одно нечетное отрицательное число
дано натуральное число N и массив целых чисел а1, ... , аn . выяснить имеется...

Определить, имеется ли среди трех чисел хотя бы одно четное
1.определить имеются ли среди трех чисел,хотя бы одно четное

Определить, имеется ли среди заданных целых чисел a,b,c хотя бы одно четное
Определите имеется ли среди заданных целых чисел a,b,c хотя бы одно четное?...

Даны две дроби, определить одинаковые ли они
Даны две дроби, определить одинаковые ли они.

Определить, имеется ли среди элементов ниже главной и побочной диагоналей хотя бы одно составное число
Дана целочисленная квадратная матрица. 1) определить, имеется ли среди...

2
Puporev
Модератор
54216 / 41849 / 28919
Регистрация: 18.05.2008
Сообщений: 98,510
31.10.2010, 16:42 #2
Цитата Сообщение от ТатьянаК Посмотреть сообщение
расскажыте что тут делается??
описали логическую функцию same(x), которая проверяет, имеется ли у вектора х хотя бы две одинаковые ссылки.
0
ТатьянаК
0 / 0 / 0
Регистрация: 26.10.2009
Сообщений: 25
31.10.2010, 17:13  [ТС] #3
я имею в виду в самом решени что делается??
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.10.2010, 17:13

Определить, верно ли, что в десятичной записи целого числа есть две одинаковые цифры
Ввести целое число и определить, верно ли, что в его записи есть две одинаковые...

Определить, имеется ли среди чисел a, b, c хотя бы одна пара взаимно противоположных чисел
.Определить, имеется ли среди чисел a, b, c хотя бы одна пара взаимно...

Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Найти сумму, среднее арифметическое и количество цифр в числе
Ввести целое число и определить, верно ли, что в его записи есть две одинаковые...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru