Методы пошаговой детализации разработки алгоритмов. Особенности использования массивов в качестве параметров. Лекция 10

Метод пошаговой детализации разработки алгоритмов

При использовании метода пошаговой детализации первоначально продумывается

Использование подпрограмм позволяет вести проектирование и разработку приложения сверху вниз —

Массивы как параметры подпрограмм

При использовании массивов в качестве параметров подпрограмм есть

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

Текстовые файлы

Эффективным способом хранения и обработки большого количества однотипных переменных в

Объявление текстового файла в программе осуществляется заданием файловой переменной типа text

Процедуры и функции для работы с текстовыми файлами

Процедура assign (Файловаяпеременная, ИмяФайла)

Процедура reset (Файловаяпеременная) — открывает существующий файл на чтение и ставит

Процедура append (ФайловаяПеременная) открывает существующий файл для дозаписи. Указатель ставится не

При выборе между read и readln для выполнения чтения из текстового

Процедуры записи:
write(ФайловаяПеременная, y1, у2,...,yN);
writeln(ФайловаяПеременная);
writeln(ФайловаяПеременная, y1, у2,...,yN);
где y1, у2,... ,yN — список

Функция eof (ФайловаяПеременная) — выполняет проверку, не достигнут ли конец файла

Пример. Написать программу для нахождения суммы элементов каждой строки матрицы. Ввод

close(isxdan);
for i:=1 to n do
begin
b[i]:=0;
for j:=1 to m

Пример. В одномерном массиве из натуральных чисел заменить все простые числа

procedure vvod(var a:mas;var n:integer);
var i:integer;
begin
assign(f,'vhod.txt');
reset(f);
readln(f,n);
for i:=1 to n do
read(f,a[i]);
close(f);
end;
Затем вывод:

procedure vivod(a:mas;n:integer);
begin
assign(f1, 'vihod.txt');
rewrite(f1);
for i:=1 to n do
write(f1,a[i],' ');
close(f1);
end;
Затем процедура преобразования

Теперь детализируем функцию проверки, является ли число простым:
function prost(b:integer):boolean;
var i,k:integer;
begin
k:=0;
for i:=1

procedure sum(var d:integer);
var s:integer;
begin
s:=0;
while d>0 do
begin
s:=s+d mod 10;
d:=d

type mas=array[1..100] of integer;
var a:mas; n,i:integer; f,f1:text;
procedure vvod(var a:mas;var n:integer);
var i:integer;
begin
assign(f,'vhod.txt');
reset(f);
readln(f,n);
for

for i:=1 to n do
write(f1,a[i],' ');
close(f1);
end;
function prost(b:integer):boolean;
var i,k:integer;
begin
k:=0;
for i:=1 to

s:=0;
while d>0 do
begin
s:=s+d mod 10;
d:=d div 10;
end;
d:=s;
end;
procedure

begin
vvod(a,n);
preobr(a,n);
vivod(a,n);
end.