[Pascal]Mettere risultati su un .txt

[oregon]

Beh, un programma per "spammare" non è sicuramente un bel modo di iniziare a programmare ... la programmazione è una cosa seria.

[Luk_3D]

Beh, un programma per "spammare" non è sicuramente un bel modo di iniziare a programmare ... la programmazione è una cosa seria.

Ognuno comincia grazie alle proprie necessità
Non c'è miglior modo per imparare che divertendosi !

[Luk_3D]

Fatta qualche modifica estetica e funzionale ma il problema rimane sempre



program GeneratoreTag;
uses crt;
var n,i,y,z,d:integer;
x,x2:real;
begin
repeat
clrscr;
TextColor(LightGreen);
writeln('***************************************** **************************************');
writeln('* GENERATORE DI TAG PER SPAMMARE NEI SERVER DI MINECRAFT CON *');
writeln('* IL PLUGIN FACTION =D. BUON DIVERTIMENTO DA... LUK_3D *');
writeln('* canele youtube evito spam *');
writeln('***************************************** **************************************');
writeln;
TextColor(Yellow);
writeln('Scrivi quante tag vuoi generare:');
writeln;
TextColor(LightGreen);
readln(n);
TextColor(White);
writeln;
randomize;
for i:=1 to n do
begin
x:=random;
x2:=x*9999999+1;
writeln('/f tag ',trunc(x2));
end;
writeln;
TextColor(Yellow);
writeln('Processo completato con successo!');
writeln('Premi <1+Invio> per chiudere o <2+Invio> per riavviare.');
writeln;
read (d);
until d=1;
end.

[Luk_3D]

Grazie a tutti questo forum è davvero utile !