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

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

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

кот Бегемот, а на Паскале можешь первую задачу написать?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.11.2012, 21:07
Ответы с готовыми решениями:

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

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

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

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

1
Платежеспособный зверь
8670 / 4097 / 1590
Регистрация: 28.10.2009
Сообщений: 11,046
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.11.2012, 22:39

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

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

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

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

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


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

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

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