Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.58/12: Рейтинг темы: голосов - 12, средняя оценка - 4.58
drago72
0 / 0 / 0
Регистрация: 10.04.2010
Сообщений: 26
1

Определить все ли элементы массива различны и выдать соответствующее сообщение на экран.

11.04.2010, 18:09. Просмотров 2489. Ответов 6
Метки нет (Все метки)

Определить все ли элементы массива различны и выдать соответствующее сообщение на экран.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.04.2010, 18:09
Ответы с готовыми решениями:

Определить все ли элементы массива различны и выдать соответствующее сообщение на экран
Структурированные типы данных (одномерные массивы) Определить все ли элементы массива различны и...

Вывести на экран все слова текста, в которых все буквы разные; если таких слов нет, выдать соответствующее сообщение
Дан текст из слов, разделенных пробелами. Вывести на экран все слова, в которых все буквы разные....

Определить, все ли элементы двухмерного массива различны
Составьте программу, выясняющую, все ли элементы двухмерного массива А(P,Q) различны.

Найти и вывести на экран индексы заданных элементов массива(если их нет,выдать соответствующее сообщение)
Найти и вывести на экран индексы заданных элементов массива(если их нет,выдать соответствующее...

Определить номера строк матрицы A[N,K], совпадающие с массивом d[k]. Если таких строк нет, выдать соответствующее сообщение
Определить номера строк матрицы A, совпадающие с массивом d. Если таких строк нет, выдать...

6
Puporev
Модератор
57192 / 43651 / 30165
Регистрация: 18.05.2008
Сообщений: 104,065
11.04.2010, 22:00 2
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
uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j,k,f:byte;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]=a[j]then
k:=1;
if k=0 then write('Все элементы разные')
else write('Не все элементы разные');
readln
end.
0
drago72
0 / 0 / 0
Регистрация: 10.04.2010
Сообщений: 26
12.04.2010, 12:40  [ТС] 3
пожалуйста напишите что вы тут сделали как мне это объяснить другому человеку ,напишите что означает каждая команда буду оооочень признателен заранее спасибо ...
0
Puporev
Модератор
57192 / 43651 / 30165
Регистрация: 18.05.2008
Сообщений: 104,065
12.04.2010, 12:44 4
drago72, Это уже через чур. Здесь нет ничего необычного, учите Паскаль.
0
drago72
0 / 0 / 0
Регистрация: 10.04.2010
Сообщений: 26
12.04.2010, 12:45  [ТС] 5
Понгимаете от того смогу я объяснить то что тут написано преподавателю зависит вылечу ли я из университета или нет...а из-за одного предмета вылетать не охото и идти в армию
0
Puporev
Модератор
57192 / 43651 / 30165
Регистрация: 18.05.2008
Сообщений: 104,065
12.04.2010, 13:17 6
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
uses crt;//модуль для работы с экраном, в данной программе для его очистки
const max=100;//мксимальный размер массива, можно изменить
var a:array[1..max] of integer;//тип массива
    n,i,j,k,f:byte;//разные счетчики и фиксаторы
begin
clrscr;//очистка экрана
repeat//начало цикла проверки ввода
write('Размер массива n=');
readln(n);
until n in [1..max];//конец цикла, если ввели от 1 до 100
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);//создаем массив из целых чисел
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');//выводим его в строку через пробел на экран
writeln;//новая строка
writeln;
k:=0;//пока все разные
for i:=1 to n-1 do//идем по массиву от 1 до предпоследнего
for j:=i+1 to n do//смотрим впереди
if a[i]=a[j]then//если еще есть такой
k:=1;//фиксируем
if k=0 then write('Все элементы разные')
else write('Не все элементы разные');
readln
end.
Добавлено через 41 секунду
const,var, begin, end. знаешь? Если нет, в армию.

Добавлено через 1 минуту
Кстати убери в этой строке
n,i,j,k,f:byte;//разные счетчики и фиксаторы , написал но не использовал.
1
drago72
0 / 0 / 0
Регистрация: 10.04.2010
Сообщений: 26
12.04.2010, 15:36  [ТС] 7
Огромное спасибо
0
12.04.2010, 15:36
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2010, 15:36

Удалить из массива, в котором все элементы различны, максимальный и минимальный элементы
9. Удалить из массива, в котором все элементы различны, максимальный и минимальный элементы.

Удалить из массива, в котором все элементы различны, максимальный и минимальный элементы
Удалить из массива, в котором все элементы различны: а) максимальный элемент б) минимальный...

Определить номера тех строк целочисленной матрицы A[N,K], которые совпадают с массивом D[K], если таких строк нет - выдать соответствующее сообщение
Неправильно определяет номера строк, либо вообще определяет строки не совпадающие с D. Не могу...


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

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

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