Определить среднее арифметическое четных чисел, находящихся после максимального значения в массиве

@ariaq3 · Регистрация: 25.01.2015

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

Дорогие друщья помогите пожалуйста нужно задачу написать в паскале с командами ассемблера , потом компилировать ее и запустить. ( Определить ср.арифметическое четных чисел, находящихся после максимального значения в массиве D[1..N]) тут задача решена полностью на паскале , получается у меня есть уже создание массива , нужно сделать программу и вывод.

Pascal

const n=10;
var
  d:array[1..n] of real;
  s:real;
  i,j:integer;
begin
  write('Введите ',n,' элементов массива:');
  s:=0;
  for i:=1 to n do begin
    read(d[i]);
    if (i=1) or (d[i]>d[j]) then begin s:=0.0;j:=i;end else s:=s+d[i];
  end;
  if i-j=0 then writeln('Максимальный элемент последний!') else
  writeln('<S>=',s/(i-j):0:4);
end.

@-- · 06.10.2015, 10:23

Ассемблер не поддерживает массивы, а паскаль не поддерживает ассемблер.

Добавлено через 1 минуту
Однако в принципе написать то можно.

@Mikl___ · 06.10.2015, 11:10

--,
ассемблер поддерживает многомерные массивы
а Паскаль поддерживает ассемблерные вставки

@-- · 06.10.2015, 11:47

Mikl___, ну и как вставить ассемблерный код в компилятор паскаль авс NET версии 2.2 ?
И если вы такой умный то как там работать на ассемблере с многомерным массивом ?

@Mikl___ · 06.10.2015, 12:02

--,
не умнее тебя,

в сообщении ТС ни слова об "компилятор паскаль авс NET версии 2.2",

в обычном паскале вставка выглядит вот так

Pascal

asm
mov al,a
mov bl,b
mov ch,al
mov al,bl
mov bl,ch
mov a,al
mov b,bl
end;

о многомерных массивах в https://www.cyberforum.ru/asse... 05284.html $https://www.cyberforum.ru/cgi-bin/latex.cgi?\to$ "Глава 14. МАССИВЫ"

@-- · 06.10.2015, 12:16

Mikl___, в сообщении ни слова об обычном паскале. Да и что такое этот ваш обычный паскаль ? Сферический конь в вакууме ?
Насчет массивов, вы мне не учебник, а конкретный пример кода.
Вот не могу терпеть этих теоретиков, на словах они все знают, а вот как до дела дойдет так ничего не могут.

И ваш код кстати не работает, ошибку пишет мне мой паскаль.

@FIL · 06.10.2015, 18:39

Не по теме:

Сообщение от --

Вот не могу терпеть этих теоретиков...

Забавно слышать это от человека, который 5 лет изучал ассемблер и до сих пор даже примеры из учебников запустить не может)

@-- · 08.10.2015, 14:15

FIL, да хоть сто лет можно изучать что угодно. Но если человек дает не работающий код, то поверьте запустить не удастся. Я даже скажу по секрету вам что паскаль вообще этот код не поддерживает.

Добавлено через 1 минуту
Это из серии что если человек хакер то от должен за минуту с мобильного телефона взломать пентагон ))

@FIL · 08.10.2015, 16:53

Сообщение от --

не работающий код

Как минимум в Дельфи приведенный код прекрасно работает.

@-- · 08.10.2015, 17:44

FIL, а почему в делфи, почему не в С++ ?

ау, люди ! Вопрос то был про паскаль ! Язык Делфи тут совсем не причем.

@FIL · 08.10.2015, 18:59

Сообщение от --

а почему в делфи

Открою тебе страшную тайну:

За основу Дельфи взят именно Паскаль.

@-- · 08.10.2015, 22:35

FIL, боюсь вы сейчас поседеете от страха, но вся эта хрень писалась вначале на ассемблере. Это уже потом Делфи писалось на Делфи ))
И до сих пор изучая коды Делфи мы видим ассемблерные коды.

@-- Заблокирован
	06.10.2015, 10:23	2
	Ассемблер не поддерживает массивы, а паскаль не поддерживает ассемблер. Добавлено через 1 минуту Однако в принципе написать то можно. 0

@Mikl___ Ушел с форума 16279 / 7604 / 1065 Регистрация: 11.11.2010 Сообщений: 13,617
	06.10.2015, 11:10	3
	--, ассемблер поддерживает многомерные массивы а Паскаль поддерживает ассемблерные вставки 0

@-- Заблокирован
	06.10.2015, 11:47	4
	Mikl___, ну и как вставить ассемблерный код в компилятор паскаль авс NET версии 2.2 ? И если вы такой умный то как там работать на ассемблере с многомерным массивом ? 0

@-- Заблокирован
	06.10.2015, 12:16	6
	Mikl___, в сообщении ни слова об обычном паскале. Да и что такое этот ваш обычный паскаль ? Сферический конь в вакууме ? Насчет массивов, вы мне не учебник, а конкретный пример кода. Вот не могу терпеть этих теоретиков, на словах они все знают, а вот как до дела дойдет так ничего не могут. И ваш код кстати не работает, ошибку пишет мне мой паскаль. 0

@FIL
	06.10.2015, 18:39 #7
	Не по теме: Сообщение от -- Вот не могу терпеть этих теоретиков... Забавно слышать это от человека, который 5 лет изучал ассемблер и до сих пор даже примеры из учебников запустить не может) 0

@-- Заблокирован
	08.10.2015, 14:15	8
	FIL, да хоть сто лет можно изучать что угодно. Но если человек дает не работающий код, то поверьте запустить не удастся. Я даже скажу по секрету вам что паскаль вообще этот код не поддерживает. Добавлено через 1 минуту Это из серии что если человек хакер то от должен за минуту с мобильного телефона взломать пентагон )) 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	08.10.2015, 16:53	9
	Сообщение от -- не работающий код Как минимум в Дельфи приведенный код прекрасно работает. 0

@-- Заблокирован
	08.10.2015, 17:44	10
	FIL, а почему в делфи, почему не в С++ ? ау, люди ! Вопрос то был про паскаль ! Язык Делфи тут совсем не причем. 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	08.10.2015, 18:59	11
	Сообщение от -- а почему в делфи Открою тебе страшную тайну: За основу Дельфи взят именно Паскаль. 0

@-- Заблокирован
	08.10.2015, 22:35	12
	FIL, боюсь вы сейчас поседеете от страха, но вся эта хрень писалась вначале на ассемблере. Это уже потом Делфи писалось на Делфи )) И до сих пор изучая коды Делфи мы видим ассемблерные коды. 0