03.04.2016, 20:00 | #1 (permalink) |
Новичок
Регистрация: 01.04.2016
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программа в PascalABC.NET
Составить процедуру (или функцию), которая переставляет в обратном порядке k элементов массива A, начиная i-го (числа i и k задается пользователем): A[1], A[2], …, A[i–1], A[i+k], A[i+k–1], …, A[i+1], A[i], A[i+k+1], …, A[n]. Следующие действия должны выполняться отдельными процедурами (и/или функциями): 1) заполнение массива случайными числами из заданного интервала; 2) вывод массива на экран; 3) заполнение массива нулями (инициализация); 4) сохранение массива в текстовый файл; 5) чтение массива из текстового файла; 6) удаление нескольких элементов из указанного места (со сдвигом); 7) добавление нескольких элементов в указанное место (со сдвигом). Процедуры (и/или функции) должны работать с массивами как с параметрами, но не как с глобальными переменными. |
03.04.2016, 20:00 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пожалуйста, не торопитесь решать все самостоятельно, просмотрите схожие проблемы PascalABC: анимация PascalABC: File1,16,31,46. PascalABC, графика PascalABC |
03.04.2016, 20:41 | #2 (permalink) |
PCHelp*****
Регистрация: 07.03.2011
Сообщений: 2,692
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 2307
|
procedure mastofile(arr: mas; fd: file of integer);
var i: integer; begin rewrite(fd); for i:=0 to length(arr)-1 do write(fd, arr[i]); close(fd) end; procedure filetomas(fd: file of integer); var i: integer; arr: mas; begin reset(fd); setlength(arr, filesize(fd)); for i:=0 to high(arr) do read(fd, arr[i]); end; |
13.05.2016, 20:53 | #3 (permalink) |
Member
Регистрация: 03.05.2016
Сообщений: 33
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 253
|
Помощь студентам
Ну цикл будет примерно таким
Код:
for j:=i to (k-i) div 2 do begin Buf:=A[j]; A[j]:=A[k-j+i]; A[k-j+i]:=Buf; end |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
pascalabcnet |
|
|