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

@bufalo · Регистрация: 02.02.2011

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

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

@bufalo · 23.03.2011, 18:41 **[ТС]**

Вот рабочая прога

Pascal

uses crt;
type mas=array[1..64] of shortint;
var i,n:byte;
qwe:^mas;
a:mas;
procedure qwerty;
begin
qwe:=@a;
for i:=1 to n do
begin
if i=6 then textcolor(11) else textcolor(10);
write(qwe^[i]:5);
end;
writeln;
end;
begin
clrscr;
randomize;
write('Vvedite razmer massiva: ');
readln(n);
clrscr;
textcolor(14);
write('SluchainbIi massiv: ');
for i:=1 to n do a[i]:=random(66)-random(66);
qwerty;
writeln;
qwe:=@a;
write('Nechtnbie elementi massiva : ');
for i:=1 to n  do if i mod 2=1 then write(qwe^[i]:5);
writeln;
writeln;
write('Shestoi element: ');
qwe:=ptr(seg(a[1]),ofs(a[1])+(sizeof(byte)*5));
writeln(qwe^[1]);
write('UmenshennbIi v dvoe pyatii element: ');
qwe^[1]:=qwe^[1] div  2;
writeln(qwe^[1]);
writeln;
write('PoluchennbIi massiv: ');
qwerty;
readkey;
end.

@bufalo 13 / 13 / 4 Регистрация: 02.02.2011 Сообщений: 165
		1
	Заполнить массив А(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать зн 22.03.2011, 16:30. Показов 1177. Ответов 1 Метки нет (Все метки) Заполнить массив А(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения нечетных элементов массива. Присвоить указателю адрес 6-го элемента, напечатать его значение, используя текущий базовый адрес сегмента и смещение с преобразованием в значение типа указатель.Заменить его содержимое на значение 5-го элемента, уменьшенное в два раза. Напечатать его новое значение. 0

Опции темы

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

Решение