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

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

09.11.2012, 21:07. Просмотров 1080. Ответов 1
Метки нет (Все метки)

кот Бегемот, а на Паскале можешь первую задачу написать?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2012, 21:07
Ответы с готовыми решениями:

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

Получить упорядоченную по невозрастанию последовательность длины n+m из членов исходных
Даны две упорядоченные по невозрастанию последовательности a(1..m) и b(1..n) . Получить...

Получить новую строку, состоящую из символов первой строки, которых нет во второй
помогите плиз!!! срочно надо! никак не могу решить!! буду благодарна очень!

Получить упорядоченную по невозрастанию последовательность
Даны две упорядоченные по невозрастанию последовательности a(1..m) и b(1..n) . Получить...

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

1
кот Бегемот
Платежеспособный зверь
8566 / 3983 / 1563
Регистрация: 28.10.2009
Сообщений: 10,404
09.11.2012, 22:39 2
Лучший ответ Сообщение было отмечено Lidiyasvisheva как решение

Решение

Вот код:
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
var
a,b,c:array[1..200]of integer;
i,j,k,n,m,t:integer;
f:boolean;
begin
k:=0;
writeln('vvedite kol-vo elementov 1 ryada');
readln(n);
writeln('vvedite kol-vo elementov 2 ryada');
readln(m);
randomize;
for i:= 1 to n do
a[i]:=random(50);
writeln('ryad 1');
for i:= 1 to n do
write(a[i],' ');
writeln;
for i:= 1 to m do
b[i]:= random(50);
writeln('ryad 2');
for i:= 1 to m do
write(b[i],' ');
writeln;
for i:= 1 to n do
 begin
 f:=true;
 for j:= 1 to m do
  if a[i] = b[j] THEN f:=false;
    if f then begin
     inc(k);
     c[k]:= a[i];
    end;
 end;
for i:= 1 to k do
for j:= 2 to k do
if c[j] > c[j-1] then begin
t:=c[j];
c[j]:=c[j-1];
c[j-1]:=t;
end;
writeln('ryad 3');
for i:=1 to k do
write(c[i],' ');
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.11.2012, 22:39

Получить упорядоченную по убыванию последовательность, состоящую из всех различных членов исходной
Дана целочисленная последовательность. Получить упорядоченную по убыванию последовательность ,...

Дано число и две последовательности. Образовать последовательность, состоящую из элементов 1-й последовательности, которых нет во 2-й
Дано число M и две последовательности А1,...,АM и B1,...,BM. Образовать последовательность чисел С,...

Дано число и две последовательности. Образовать последовательность, состоящую из элементов 1-й последовательности, которых нет во 2-й
Здравствуйте! Дано число M и две последовательности А1,...,АM и В1,...,ВM. Образовать...


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

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

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