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

Определить, что наибольший элемент первой последовательности меньше наименьшего элемента второй

02.12.2012, 12:01. Показов 1297. Ответов 3
Метки нет (Все метки)

Помогите написать программу на Паскале

Даны две последовательности:С1,С2...,С10 ;Р1,P2...,P10.Если наибольший элемент первой последовательности меньше наименьшего элемента второй то задать элементам Х1,X2..,X10 новой последовательности значения C1,C2..,C10 а элементам X11,X12..,X20 значения P1,P2..P10.

Заранее Благодарю
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.12.2012, 12:01
Ответы с готовыми решениями:

Определить для каждого элемента второй последовательности, есть ли равный ему элемент в первой последовательности
Написать программу на Pascal. Даны две последовательности чисел. Определить для каждого элемента...

Получить третью матрицу путём умножения элемента каждой строки первой на наибольший элемент второй
Задача. Даны две матрицы N-ого порядка(сиречь двумерные массивы=)), получить третью матрицу...

Определить сколько членов первой последовательности совпадают с членами второй и удалить эти члены из первой последовательности
Даны 2-е последовательности целых чисел A1,A2,A3...An И B1,B2,B3...Bn. В каждой последовательности...

Определить количество букв в первой последовательности, также встречающихся и во второй последовательности
Даны две последовательности символов(любых). Как определить количество букв в первой...

3
3 / 3 / 6
Регистрация: 12.10.2012
Сообщений: 12
02.12.2012, 13:06 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
32
33
34
35
36
37
Program posled;
const emin = 1; emax = 10;
type mas = array [emin..emax] of integer; mas1 = array [emin..emax * 2] of integer;
var c,p:mas; x:mas1; max,min,i,k:byte;
 
begin
    
    randomize;
    
    for i:=emin to emax do
        begin
            c[i]:=random(20);
            p[i]:=random(30);
        end;
        
    max:=c[1];
    min:=p[1];
    
    for i:=emin to emax do
        begin
            if max < c[i] then
                max:=c[i];
            if min > p[i] then
                min:=p[i];
        end;
    
    k:=0;
    
    for i:=emin to emax*2 do
        begin
            if i <= emax then
                x[i]:=c[i];
            if i > emax then
                k:=k+1;
                x[i]:=p[k];
        end;
....................................
2
0 / 0 / 0
Регистрация: 02.12.2012
Сообщений: 10
15.12.2012, 10:38  [ТС] 3
Помогите пожалуйста написать программу

Даны две последовательности: C1,C2,...C10; P1,P2,...P10. Если наибольший элемент первой последовательности меньше наименьшего элемента второй, задать элементам X1,X2,.., X10 новой последовательности значения C1,C2,..C10 , а элементам X11,X12,..X20 значения P1,P2..P10.


Заранее благодарю
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,029
Записей в блоге: 1
15.12.2012, 10:55 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
Const n=10;
Var C,P:array[1..n] of integer;
    X:array[1..2*n] of integer;
    i,imin,imax:byte;
Begin
    writeln('Последовательность C');
    For i:=1 to n do
    Begin
      C[i]:=random(31)-15;
      write(C[i]:4);
    End;
    writeln;
    writeln('Последовательность P');
    For i:=1 to n do
    Begin
      P[i]:=random(31)-15;
      write(P[i]:4);
    End;
    imax:=1;imin:=1;
    For i:=2 to n do
    Begin
      if C[i]>C[imax] then imax:=i;
      if P[i]<P[imin] then imin:=i;
    End;
    writeln;
    writeln('Max в последовательности C = ',C[imax]);
    writeln('Min в последовательности P = ',P[imin]);
    if C[imax]<P[imin] then 
    Begin
      writeln('Последовательность X ');
      For i:=1 to 2*n do
      Begin
        if i<=10 then X[i]:=C[i]
         else X[i]:=P[i-10];
        write(X[i]:4);
      End;
    End;
    readln;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2012, 10:55

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

Что меньше: наименьший элемент L-ой строки, или наибольший элемент K-ого столбца в матрице?
Что меньше: наименьший элемент L-ой строки, или наибольший элемент K-ого столбца в матрице размером...

Определить, являются ли элементы первой последовательности подмножеством второй
Даны две последовательности чисел, размерности n и m. Являются ли элементы первой...

Определить количество букв в первой последовательности, встречающихся и во второй
Здравствуйте, помогите пожалуйста). Даны две последовательности (любых). Определите кол-во букв...

Определить порядковый номер наименьшего элемента последовательности натуральных чисел
Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить...


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

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

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