Заполнить массив С(10) случайными значениями

@sasha kurop · Регистрация: 13.11.2012

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

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

помогите пожалуйста!

@gudvinus · 04.04.2013, 17:31

Сообщение от sasha kurop

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

это как понять? используя адрес сегмента И смещение с преобразованием в значение типа указатель

@sasha kurop · 05.04.2013, 01:36 **[ТС]**

вот как то так получилось...

Pascal

Uses Crt;
Type massiv=array[1..10] of real; 
Var i:integer;
c:massiv; 
PtrMas:^massiv;
Begin
randomize;
for i:=1 to 10 do
begin c[i]:=random(10);end;
ClrScr;
Writeln('Vvedenniy massiv: '); 
for i:=1 to 10 do Write(' ',c[i]:0:2);
Writeln;
PtrMas:=@c;
Writeln('Vvedenniy massiv cherez dinamichesky pam9t: ');
for i:=1 to 10 do Write(' ',PtrMas^[i]:0:2);
Writeln;
for i:=1 to 10 do begin
if i mod 2 = 0 then
ptrmas^[i]:=i;
write(ptrmas^[i]:0:2);
end;
PtrMas:=@c[3];
PtrMas:=Ptr(Seg(c[2]),Ofs(c[2])+ SizeOf(real));
Writeln('Znachenie 3-go elementa = ',PtrMas^[1]:0:2);
readkey
end.

@kuraman · 05.04.2013, 01:43

только вот последних три предложения не смог выполнить, может кто подскажет что нужно

@sasha kurop 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 6
		1
	Заполнить массив С(10) случайными значениями 04.04.2013, 17:19. Показов 600. Ответов 3 Метки нет (Все метки) Заполнить массив С(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения четных элементов массива. Присвоить указателю адрес 3-го элемента, напечатать его значение, используя текущий базовый адрес сегмента и смещение с преобразованием в значение типа указатель. Заменить его содержимое на 0.001. Напечатать его новое значение. помогите пожалуйста! 0

@gudvinus 6 / 6 / 4 Регистрация: 25.02.2013 Сообщений: 16
	04.04.2013, 17:31	2
	Сообщение от sasha kurop используя текущий базовый адрес сегмента и смещение с преобразованием в значение типа указатель это как понять? используя адрес сегмента И смещение с преобразованием в значение типа указатель 0

@kuraman 0 / 0 / 0 Регистрация: 22.03.2013 Сообщений: 12
	05.04.2013, 01:43	4
	только вот последних три предложения не смог выполнить, может кто подскажет что нужно 0