PDA

Visualizza la versione completa : [Pascal]Mettere risultati su un .txt


Luk_3D
27-04-2014, 02:55
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
27-04-2014, 11:54
Beh, un programma per "spammare" non Ŕ sicuramente un bel modo di iniziare a programmare ... la programmazione Ŕ una cosa seria.

Luk_3D
27-04-2014, 14:22
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Ó :D
Non c'Ŕ miglior modo per imparare che divertendosi !:)

Luk_3D
27-04-2014, 16:14
Fatta qualche modifica estetica e funzionale ma il problema rimane sempre :dh˛:



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('* c (http://www.youtube.com/user/PatatoneKiller)anele 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
28-04-2014, 22:19
Grazie a tutti questo forum Ŕ davvero utile ! :nillio::nillio::nillio::nillio::nillio::nillio:

Loading