Присвоить указателю адрес 6-го элемента массива, напечатать его значение, используя текущий базовый адрес сегмента

@Moonlite · Регистрация: 13.10.2013

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

Заполнить массив А(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения нечетных элементов массива. Присвоить указателю адрес 6-го элемента, напечатать его значение, используя текущий базовый адрес сегмента и смещение с преобразованием в значение типа указатель. Заменить его содержимое на уменьшенное в два с половиной раза его значение. Напечатать его новое значение.

@Puporev · 22.03.2014, 09:50

Вроде так

Pascal

uses crt;
const n=10;
type mas=array[1..n] of real;
var a:mas;
    p:^mas;
    z:real;
    i,k:byte;
Begin
clrscr;
randomize;
writeln('Массив:');
{Заполнить массив случайными значениями+вывод на экран}
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:6:1);
 end;
writeln;
{Присвоить указателю p адрес начала размещения массива в памяти}
p:=@a;
{Напечатать значения нечетных элементов массива}
writeln('Значения нечетных элементов массива');
k:=0;
for i:=1 to n do
 if odd(trunc(a[i])) then
  begin
   k:=1;
   write(p^[i]:6:1);
  end;
writeln;
if k=0 then writeln('Нечетных элементов нет');
{Присвоить указателю адрес 6-го элемента}
p:=@a[6];
p:=Ptr(Seg(a[5]),Ofs(a[5])+SizeOf(real));
{Ptr- преобразует базовый адрес сегмента и смещения в значение типа указатель}
writeln('Значение 6-го элемента=',p^[1]:0:1);
p^[1]:=p^[1]/2.5;
writeln('Новое значение=',p^[1]:0:1);
Readkey;
end.

@Moonlite · 22.03.2014, 10:16 **[ТС]**

Выдаёт ошибку Incompatible types: got Farpointer expected mas

@Puporev · 22.03.2014, 10:18

У меня в Турбо Паскале все исправно работает.

@Puporev · 24.03.2014, 06:48

В строке 25 ошибка, нужно

Pascal

1	if (frac(a[i]=0))and odd(trunc(a[i])) then

@Moonlite 2 / 2 / 0 Регистрация: 13.10.2013 Сообщений: 102
		1
	Присвоить указателю адрес 6-го элемента массива, напечатать его значение, используя текущий базовый адрес сегмента 22.03.2014, 09:12. Показов 1972. Ответов 4 Метки нет (Все метки) Заполнить массив А(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения нечетных элементов массива. Присвоить указателю адрес 6-го элемента, напечатать его значение, используя текущий базовый адрес сегмента и смещение с преобразованием в значение типа указатель. Заменить его содержимое на уменьшенное в два с половиной раза его значение. Напечатать его новое значение. 0

@Moonlite 2 / 2 / 0 Регистрация: 13.10.2013 Сообщений: 102
	22.03.2014, 10:16 [ТС]	3
	Выдаёт ошибку Incompatible types: got Farpointer expected mas 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	22.03.2014, 10:18	4
	У меня в Турбо Паскале все исправно работает. 0

Опции темы

Присвоить указателю адрес 6-го элемента массива, напечатать его значение, используя текущий базовый адрес сегмента

Решение