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

Составить процедуру определяющую максимальное значение f(H[i])

24.05.2014, 16:04. Просмотров 1098. Ответов 3
Метки нет (Все метки)

Для элементов двух массивов P и B разной длины составить процедуру, определяющую максимальное значение f(H[i]), где в качестве H[i] выступают элементы из P и B.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2014, 16:04
Ответы с готовыми решениями:

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

Составить процедуру, определяющую, в каком из данных двух чисел больше цифр
Составить процедуру, определяющую, в каком из данных двух чисел больше цифр... var a,b,d,f:real;...

Составить процедуру определяющую, что все элементы одномерного массива упорядочены по убыванию их значений
program rf; uses crt; type mas = array of integer; var a, b: mas; i, j, m, n, L: integer;

Составить программу находящую максимальное значение длины отрезка ломаной.
Вообщем в файле даны координаты точек X и Y. Про количество точек мы ничего не знаем, думаю...

3
Модератор
62542 / 46715 / 32198
Регистрация: 18.05.2008
Сообщений: 113,062
24.05.2014, 16:45 2
Лучший ответ Сообщение было отмечено VladDr как решение

Решение

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
uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure vvod(var a:mas;var n:integer;c:char);
var i:integer;
begin
repeat
write('Размер массива ',c,' от 1 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
a[i]:=-25+random(51);
clrscr;
end;
procedure vyvod(a:mas;n:integer;c:char);
var i:integer;
begin
writeln('Массив ',c);
for i:=1 to n do
write(a[i]:4);
writeln;
end;
procedure max(a,b:mas;na,nb:integer;var mx:integer);
var i:integer;
begin
mx:=a[1];
for i:=2 to na do
if a[i]>mx then mx:=a[i];
for i:=1 to nb do
if b[i]>mx then mx:=b[i];
writeln('Максимальное в двух массивах=',mx);
end;
var p,b:mas;
    n,m,mx:integer;
begin
clrscr;
randomize;
vvod(p,n,'A');
vvod(b,m,'B');
vyvod(p,n,'A');
vyvod(b,m,'B');
max(p,b,n,m,mx);
readln
end.
0
0 / 0 / 0
Регистрация: 26.04.2014
Сообщений: 3
24.05.2014, 17:00  [ТС] 3
А H там нигде не нужно?
0
Модератор
62542 / 46715 / 32198
Регистрация: 18.05.2008
Сообщений: 113,062
24.05.2014, 17:11 4
Цитата Сообщение от VladDr Посмотреть сообщение
в качестве H[i] выступают элементы из P и B.
А куда ее вставить? Если знаешь, вставь, ты же учишься на академика, а не я.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2014, 17:11

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

Составить процедуру, увеличивающую элементы строки на заданное значение
Составить процедуру увеличивающую элементы строки на заданное значение x,если хотя бы две суммы...

Составить процедуру, определяющую позицию самого правого вхождения в заданную строку символа второй строки
Составить процедуру, позволяющую определить позицию самого правого вхождения в заданную строку...

Разработать функцию, определяющую максимальное из двух чисел
разработать функцию, опрледеляющую максимальное из двух чисел

Составить функцию пользователя, определяющую максимальное значение из двух аргументов
Составить функцию пользователя, определяющую максимальное значение из двух аргументов. Используя...


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

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

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