Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
rAdo56
0 / 0 / 0
Регистрация: 20.03.2012
Сообщений: 17
#1

Массивы: вычислить min (a2, a4, a6...) + max (a1, a3, a5...) - Turbo Pascal

08.07.2012, 08:57. Просмотров 630. Ответов 6
Метки нет (Все метки)

min ( a2, a4, a6... ) + max ( a1, a3, a5... )
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.07.2012, 08:57
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Массивы: вычислить min (a2, a4, a6...) + max (a1, a3, a5...) (Turbo Pascal):

Процедура: Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c)) - Turbo Pascal
Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c)) с помощью использования процедур.

Вычислить Z=(X[max]-Y[min])/2, где Х[max] - максимальный элемент массива Х(50), Y[min] - минимальный элемент массива Y(40) - Turbo Pascal
помогите пожалуйста: Вычислить Z=(X-Y)/2, где Х - максимальный элемент массива Х(50), Y - минимальный элемент массива Y(40). X и Y...

Max Min массивы - Pascal
Помогите пожалуйста решить: Сформировать целочисленный массив из 25 элементов, вывести на экран их, найти среди них макс и мин значения,...

Найти max и min элементы в массиве и номер элемента, близкого к среднему арифметическому min и max. - Turbo Pascal
Привет всем! Очень прошу помочь в решении задачи на определение характеристик одномерного массива. Задача такова: Дана последовательность...

Паскаль, двумерные массивы, min и max - Pascal
В заданой матрице n=6, m=9 поменять местами строку, в которой находится максимальный елемент со строкой, в которой находится минимальный...

Массивы (замена элементов max и min) - Turbo Pascal
Здравствуйте! Помогите пожалуйста решить такую задачу в Паскале: даны массивы А1....А20 и В1..В20 . Поменять местами Аmin и Вmax. Заранее...

6
CodeR
Фрилансер
3376 / 2778 / 788
Регистрация: 08.02.2012
Сообщений: 6,363
Записей в блоге: 1
08.07.2012, 09:05 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var A:array[1..100] of integer;
    i,n,imin,imax:byte;
Begin
    Randomize;
    Repeat 
     write('Введите размерность: ');readln(n);
    Until n in [2..100];
    For i:=1 to n do
     Begin
      A[i]:=random(51)-25;
      write(A[i]:3);
     End;
    imax:=1;imin:=2;
    For i:=3 to n do
     if (i mod 2 = 0)and(A[i]<A[imin]) then imin:=i
      else if A[i]>A[imax] then imax:=i;
    writeln;
    writeln('Max: ',A[imax]);
    writeln('Min: ',A[imin]);
    writeln('Max+min: ',A[imax]+A[imin]);
    readln;
End.
1
MansMI
1370 / 1149 / 338
Регистрация: 08.01.2012
Сообщений: 4,387
08.07.2012, 09:15 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses Crt;
var a,i,n,min,max:integer;
begin
    ClrScr;
    Write('Количество элементов:');
    ReadLn(n);
    for i:=1 to n do
    begin
        Write('a',i,':');
        ReadLn(a);
        if(i mod 2=1)and(max<a)or(i=1)then max:=a;
        if(i mod 2=0)and(min>a)or(i=2)then min:=a;
    end;
    WriteLn('max:',max);
    WriteLn('min:',min);
    ReadLn;
end.
1
CodeR
Фрилансер
3376 / 2778 / 788
Регистрация: 08.02.2012
Сообщений: 6,363
Записей в блоге: 1
08.07.2012, 09:17 #4
Цитата Сообщение от rAdo56 Посмотреть сообщение
min ( a2, a4, a6... ) + max ( a1, a3, a5... )
MansMI, а где сложение?!
0
MansMI
1370 / 1149 / 338
Регистрация: 08.01.2012
Сообщений: 4,387
08.07.2012, 09:25 #5
а где сказано: [2..100] и random(51)-25 ? что за придирки
0
CodeR
Фрилансер
3376 / 2778 / 788
Регистрация: 08.02.2012
Сообщений: 6,363
Записей в блоге: 1
08.07.2012, 09:28 #6
Цитата Сообщение от MansMI Посмотреть сообщение
а где сказано: [2..100] и random(51)-25 ? что за придирки
так у тя по условию ТЗ не подходит, и это не придирки а поправки! а про способ заполнения ничего не сказано так что выбор остаётся за мной!
0
rAdo56
0 / 0 / 0
Регистрация: 20.03.2012
Сообщений: 17
08.07.2012, 09:54  [ТС] #7
Спасибо обоим. Вроде разобрался. Благодарю за помощь.
0
08.07.2012, 09:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2012, 09:54
Привет! Вот еще темы с ответами:

Вычислить y=min(a,b+c)+max(ac,b)+min(a2,c) - Pascal
Даны целые числа a, b, c. Вычислить у-сумму. y=min(a,b+c)+max(ac,b)+min(a2,c) ????

Вычислить max(min(3,5), min(2,6)) - Turbo Pascal
написать программу вычисляющую max((min(3,5),min(2,6)).

Определить max и min элементы массивы и переставить их местами - Pascal
1. С клавиатуры вводится последовательность из n чисел. Определить номер минимального числа последовательности. n-ввести с клавиатуры. ...

Вычислить z=x[max]-y[min]/2 - Turbo Pascal
оформить в виде процедуры. Вычислить z=x-y/2 , где X- максимальный элемент массива X(50), Y- минимальный элемент массива Y(40). X и Y...


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

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

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