Модераторы: Oleg_D, Модераторы
Переработайте программу шифрования так, чтобы ключ задавался
пользователем с клавиатуры (в начале работы программы). Затем этот ключ
должен передаваться в процедуры и функции через параметр. Заголовки процедур
и функций должны быть такими.
function CryptChar(arg: char; key: integer): char;
procedure CryptString(var arg: string; key: integer);
Paster Fob писал(а):Если ключ передавать в функции,зачем тогда его передавать в процедуры?И если его передавать в процедуры,зачем тогда вообще нужны функции в программе?
Paster Fob писал(а):Что-то я не пойму как это сделать.Если ключ передавать в функции,зачем тогда его передавать в процедуры?И если его передавать в процедуры,зачем тогда вообще нужны функции в программе?Тогда проще всё в процедурах сделать.Или как?
Padre_Mortius писал(а):Oleg_D,можно поинтересоваться почему отказались от использования в функциях зарезервированного Result для возврата результата.
Код: Выделить всё
for i:=1 to Length(S) do S:= S[i] + '-'; 
Valeriy писал(а):Текст программы P_31_1, Глава 31, стр 216 содержит опечатку в строке:Код: Выделить всё
if not Eof(InFile) do Readln(InFile);
Параметр - do
Valeriy писал(а):И ещё вопрос.Зачем в этой же строке применён оператор if, ведь можно обойтись без него как было в программе P_30_1:Код: Выделить всё
while not Eof(InFile) do begin
Counter:= Counter+1;
HandleString;
Readln(InFile);
end;
Close(InFile); Close(OutFile);
end.
Сделайте то же самое для случая, когда программа пытается открыть для
записи файл, уже открытый вами в редакторе текста.
Когда выделение станет ненужным, его можно снять, щелкнув мышью в
любом месте текста, либо нажав комбинацию «Ctrl+H».
Теперь заглянем внутрь функции FindNumber. В первой строке результату
функции присваивается значение FALSE. И это оправдано, поскольку имени
функции должно быть обязательно присвоено значение.
Код: Выделить всё
var F1, F2: text;
N: integer;
begin
Assign(F1, 'Police.in'); Reset(F1);
Assign(F2, 'Police.out'); Rewrite(F2);
while not Eof(F1) do begin
Read(F1, N);
Writeln(F2,N);
end;
Close