Найти разности максимумов и минимумов заданных последовательности

@ololo222333 · Регистрация: 15.01.2010

Студворк — интернет-сервис помощи студентам

Требуется выполнить с использованием процедур. Помогите пожалуйста.

Даны натуральные n, m и последовательности вещественных чисел x₁, x₂, ..., x_n, y₁, y₂, ..., y_m. Найти разности максимумов и минимумов каждой последовательности.

@Snoopy · 13.04.2010, 20:26

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
uses crt;
var x,y:array[1..100] of real;
    i,n,m:integer;
    xmax,ymax,xmin,ymin:real;
 
procedure Nach;
begin
Randomize;
repeat
Write('n=');
Readln(n);
until n in [1..100];
repeat
Write('m=');
Readln(m);
until m in [1..100];
Writeln('Massiv X: ');
for i:=1 to n do
 begin
  x[i]:=-10+random(20);
  Write(x[i]:5:1);
 end;
Writeln;
Writeln('Massiv Y: ');
for i:=1 to m do
 begin
  y[i]:=-20+random(60);
  Write(y[i]:5:1);
 end;
end;
 
procedure MaxX(var max,min:real);
begin
xmax:=x[1];
xmin:=x[2];
for i:=1 to n do
 begin
  if x[i]>xmax then
   xmax:=x[i];
  if x[i]<xmin then
   xmin:=x[i];
 end;
end;
 
procedure MaxY(var max,min:real);
begin
ymax:=y[1];
ymin:=y[2];
for i:=1 to m do
 begin
  if y[i]>ymax then
   ymax:=y[i];
  if y[i]<ymin then
   ymin:=y[i];
 end;
end;
 
begin
ClrScr;
Nach;
Writeln;
MaxX(xmax,xmin);
MaxY(ymax,ymin);
Writeln('Xmax ',xmax:0:1,' Xmin ',xmin:0:1);
Writeln('Ymax ',ymax:0:1,' Ymin ',ymin:0:1);
Writeln('Raznost(X): ',xmax-xmin:0:2);
Writeln('Raznost(Y): ',ymax-ymin:0:2);
Readln;
end.

@ololo222333 · 15.04.2010, 21:37 **[ТС]**

Нужно было просто с использованием цикла for и процедур (т.е. без массивов, рандома и тд.). Но все равно спасибо.

Добавлено через 44 минуты
Как-то вот так

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
46
47
48
49
50
uses crt;
var x,y:real;
    i,n,m:integer;
    xmax,ymax,xmin,ymin:real;
 
 
procedure MaxminX(var max,min:real);
begin
xmax:=0;
xmin:=0;
for i:=1 to n do
begin
writeln('vvod x');
readln(x);
  if x>xmax then
   xmax:=x;
  if x<xmin then
   xmin:=x;
 end;
end;
 
procedure MaxminY(var max,min:real);
begin
ymax:=0;
ymin:=0;
for i:=1 to m do
begin
writeln('vvod y');
readln(y);
  if y>ymax then
   ymax:=y;
  if y<ymin then
   ymin:=y;
 end;
end;
 
begin
ClrScr;
Write('n=');
Readln(n);
Write('m=');
Readln(m);
MaxminX(xmax,xmin);
MaxminY(ymax,ymin);
if xmax>ymax then Writeln('Raznost maximumov): ',xmax-ymax:0:2) else;
Writeln('Raznost maximumov): ',ymax-xmax:0:2);
if xmin>ymin then Writeln('Raznost minimumov): ',xmin-ymin:0:2) else;
Writeln('Raznost minimumov): ',ymin-xmin:0:2);
Readln;
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@ololo222333 0 / 0 / 1 Регистрация: 15.01.2010 Сообщений: 15

	Найти разности максимумов и минимумов заданных последовательности 13.04.2010, 19:35. Показов 1209. Ответов 2 Метки нет (Все метки) Требуется выполнить с использованием процедур. Помогите пожалуйста. Даны натуральные n, m и последовательности вещественных чисел x₁, x₂, ..., x_n, y₁, y₂, ..., y_m. Найти разности максимумов и минимумов каждой последовательности. 0

Найти разности максимумов и минимумов заданных последовательности

Решение