Программа в 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) добавление нескольких элементов в указанное место (со сдвигом). Процедуры (и/или функции) должны работать с массивами как с параметрами, но не как с глобальными переменными. |
Цитата:
var i: integer; begin rewrite(fd); for i:=0 to length(arr)-1 do write(fd, arr[i]); close(fd) end; Цитата:
var i: integer; arr: mas; begin reset(fd); setlength(arr, filesize(fd)); for i:=0 to high(arr) do read(fd, arr[i]); end; |
Помощь студентам
Ну цикл будет примерно таким
Код:
for j:=i to (k-i) div 2 do |
Часовой пояс GMT +4, время: 00:55. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.