Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 26.11.2009
Сообщений: 36
1

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

20.12.2009, 16:46. Показов 2089. Ответов 5
Метки нет (Все метки)

Пожалуйста , помогите одну единственную задачку решить!!!!! что-то не выполняется программа!!!=((((((((

Даны целые числа a1,...,an. Получить все числа, которые входят в последовательность по одному разу.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Миниатюры
Получить все числа, которые входят в последовательность по одному разу  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.12.2009, 16:46
Ответы с готовыми решениями:

Получить все числа которые входят в последовательность по одному разу
помогите написать программу даны целые числа A1..........An. получить все числа которые входят в...

Дана последовательность символов. Получить те символы, принадлежащие последовательности, которые входят в нее по одному разу
Дана последовательность символов. Получить те символы, принадлежащие последовательности, которые...

Напечатать гласные, которые входят в текст по одному разу и согласные, которые не входят в текст по одному разу
Друзья, помогите решить следующую задачу: Дан произвольный текст. Напечатать в алфавитном...

Получить все числа, которые входят в последовательность по одному разу
Даны целые числа а1,а2...а15 ( могут быть повторяющиеся члены). Получить все числа, которые входят...

5
0 / 0 / 0
Регистрация: 26.11.2009
Сообщений: 36
20.12.2009, 22:43  [ТС] 2
Вот еще несколько задачек! помогите решить, плиз!!!!!!!!=)))))

Массивы
1. Найти максимальный элемент массива а[1..10].
2. Найти номер максимального элемента массива а[1..10].
Строковые и символьные типы данных
1. Даны слово и буква. Сколько раз эта буква встречается в данном слове.
2. По номеру месяца определить его название и время года, к которому он относится.
0
8 / 8 / 8
Регистрация: 09.11.2009
Сообщений: 44
20.12.2009, 23:07 3
Цитата Сообщение от BARBIE Посмотреть сообщение
1. Найти максимальный элемент массива а[1..10].
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program El;
uses crt;
const nmax=10;
var a:array[1..nmax] of integer;
    n,i:byte;
    max:integer;
begin
clrscr;
randomize;
write('kokich elementov n=');
readln(n);
max:=0;
for i:=1 to n do
  begin
   a[i]:=random(20);
   write(a[i]:4);
   if max<a[i] then
   max:=a[i];
  end;
writeln;
writeln('max chislo=',max);
readkey;
end.
Добавлено через 4 минуты
Цитата Сообщение от BARBIE Посмотреть сообщение
2. Найти номер максимального элемента массива а[1..10].
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
uses crt;
const nmax=10;
var a:array[1..nmax] of integer;
    n,i,k:byte;
    max:integer;
begin
clrscr;
randomize;
write('kokich elementov n=');
readln(n);
max:=0;
for i:=1 to n do
  begin
   a[i]:=random(20);
   write(a[i]:4);
   if max<a[i] then
   begin
    max:=a[i];
    k:=i;
   end;
  end;
writeln;
writeln('nomer max chisla=',k);
readkey;
end.
1
634 / 217 / 64
Регистрация: 03.11.2009
Сообщений: 488
21.12.2009, 00:15 4
Строковые и символьные типы данных
1. Даны слово и буква. Сколько раз эта буква встречается в данном слове. Вот решение:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
s:string;
c:char;
n,i:integer;
begin
    writeln('введите строку');
      readln(s);
    writeln('введите букву');
      readln(c);
      n:=0;
   for i:=1 to length(s) do
     if c=s[i] then n:=n+1;
   writeln(n);
end.
1
0 / 0 / 0
Регистрация: 26.11.2009
Сообщений: 36
21.12.2009, 00:28  [ТС] 5
Большое спасибо за помощь!!!! а вот с самой первой задачей помогите разобраться!!!! оч-оч-оч нужно!!!! плиииииз!!!!!!!!!!!!!!!!
0
175 / 172 / 40
Регистрация: 14.11.2009
Сообщений: 507
21.12.2009, 02:11 6
1)
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
program massiv;
var
a,b:array[1..100] of integer;
i,k,m,j,n:integer;
begin
k:=0;
writeln('kol-vo elementov massiva');
readln(n);
writeln('massiv');
write('[');
randomize;
for i:=1 to n do begin
a[i]:=random(10)-3;
write(a[i]:3);
end;
writeln(']');
  for i:=1 to n do begin
   m:=0;
   for j:=1 to k do
   if (a[i]=b[j]) then
    inc(m);
    if m=0 then begin
     inc(k);
     b[k]:=a[i];
    end;
  end;
writeln('polychenij massiv');
write('[');
for i:=1 to k do
write(b[i]:3);
writeln(']');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2009, 02:11

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

Получить числа, которые входят в последовательность по одному разу
Доброго времени суток, прошу помощи в выполнении ниже перечисленных задач. №1 Даны целые числа...

Получить все числа, которые входят в массив по одному разу
Дан целочисленный массив X, содержащий n элементов (n ≤ 20). Получить все числа, которые входят в...

Дан массив. Получить все числа, которые входят в последовательность по 1-му разу
Дан массив. Получить все числа, которые входят в последовательность по 1-му разу. Спасибо заранее!

Получить числа, которые входят в одномерный массив по одному разу
Ребят помогите программу сделать. Дан одномерный числовой массив. Получить числа, которые входят в...

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

Напечатать в алфавитном порядке все буквы, которые входят в текст по одному разу
3.Дан текст из строчных латинских букв. Напечатать в алфавитном порядке все буквы, которые входят в...


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

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

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