В дальнейшем логины будут считываться из файла, вся кирилица будет заменена на латинские буквы, и все большие буквы будут маленькими в результате.
Сама программа:
[Ссылки могут видеть только зарегистрированные пользователи. ]
Размер меньше 8 кб.
Вот код программы:
Код:
program Generated;
var s:array [1..100] of string[20];
s1,s2,s3,s4,s5,s6:array [1..100] of string[30];
e,d:string;
i,ii:integer;
txt:text;
begin ii:=100;
writeln('Введите конец сгенирированных полей:');
readln(e);
writeln('Промежуточная приставка:');
readln(d);
writeln('Введите в поле ! чтобы завершить ввод.');
for i:=1 to 100 do
begin;
write('#',i,': ');readln(s[i]);
if s[i]='!' then
begin
ii:=i-1;
i:=100;
end;
end;{end input}
assign(txt,'GENERATE.txt');
rewrite(txt);
for i:=1 to ii do
begin
s1[i]:=concat(d,s[i], e);
s2[i]:=concat(s[i],d, e);
s3[i]:=concat(d,'_',s[i], e);
s4[i]:=concat(s[i],'_',d, e);
s5[i]:=concat(d,'.',s[i], e);
s6[i]:=concat(s[i],'.',d, e);
writeln(txt,s1[i]);
writeln(txt,s2[i]);
writeln(txt,s3[i]);
writeln(txt,s4[i]);
writeln(txt,s5[i]);
writeln(txt,s6[i]);
end;
close(txt);
end.
ПС: это моя первая программа, которая работает с файлами , тоесть раньше я не делал таково, чтобы паскаль создавал файлы.
В дальнейшем планирую изучить делфи и сделать уже все с графической оболочкой, а пока дос-оболочка