[Pascal]Mettere risultati su un .txt

[Luk_3D]

Ciao a tutti, sono nuovo nell' ambito della programmazione molto nuovo da circa 1 oretta.
Allora mi sono cimentato per creare un programmino che mi serve per un gioco. Purtroppo sono riuscito a metà nel mio intento, infatti io volevo creare un programma che mi scrivesse tutto in un file .txt ma non ci riesco proprio...Questo è il programma:


program GeneratoreTag;
uses crt;
var n,i,y,z:integer;
x,x2:real;


begin
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('***************************************** **************************************');
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;
readln;
end.

Spero che mi aiutate, e mi mandiate il programma già modificato visto che non so dove mettere mani... abbiate pazienza e il like sarà assicurato

[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 !