Pascal ir virusai

[[-]acI{ed]

nu nukopinau ta GODhack viruso skripta, tik nzn kaip reik sukompiliuot ar kaip ten. padekit.

P.S. O gal man imti kita kalba su kuria galeciau virusus kurti?

[^Paulius^]

Manau su betkokia programavimo kalba gali kurti virusus.

[oxigen]

nu nukopinau ta GODhack viruso skripta, tik nzn kaip reik sukompiliuot ar kaip ten. padekit.

P.S. O gal man imti kita kalba su kuria galeciau virusus kurti?

Aš nesuprantu tik vienio kokio velnio sukūrei dar vieną temą, tau ką vienos neužtenką, rašyk į tą kurią jau sukūrei

[Mr.47]

[quote="oxigen"][/quote]
Turbūt dėlto ir nulaužė tą jo saita

[tornado]

http://img168.imageshack.us/my.php?image=fps7kw.png gal galetu kas nors nusimanantis apie pascal paziuret screenshota,ir pasakyt kaip istaisyt wiena klaidele?:) busiu dekingas:)[/img][/url]

[GODhack]

O tau paciam bus daug naudingiau jei pats surasi kur klaida ir ja istaisysi.
Cia gali paskaitinet, jei nesiseka:
http://www.learn-programming.za.net/pro ... arn03.html
Ir nesugrusk taip visko, labai nesiziuri tada.

[Easy-]

tornado matau cia ne viena klaida

[Easy-]

program Skaicioklis; {'Tomas Markelevicius'}
var sk,dvsk:integer;
begin
WriteLn('Labas,prasau iveskite skaiciu');
WriteLn('As ji padvigubinsiu');
readln(sk);
dvsk:=sk*2;
WriteLn('dvigubas skaiciu ',dvsk);
WriteLn('Vsio');
ReadLn;

end.





turetu buti

[tornado]

dekui uz pagalba jums;)

[tornado]

sveiki,gal galetumet pasakyt kaip parasyt programyte ant paskalio kuri werstu paras valandomis,valandas minutemis o sias sekundemis ir atvirksciai buciau dekingas su pries tai buvusia programyte susitwarkiau o sitos truputi nesupratau kai mokytojas aiskino:) padetumet?:)

[SwaDDie]

Va cia puse darbo :

program laiks; {Cr3at3d bY SwaDDie}
var laikas, {pradinis}
minutes, valandos, sekundes: integer;
begin
writeln ('Laikas');
read (laikas);
valandos := laikas div 360;
minutes := laikas div 60;
sekundes := laikas mod 60;
writeln ('Valandos:', valandos, 'Minutes', minutes, 'Sekundes', sekundes)
end.


-------------------------------------------------
Tai va dabar pagal sia programa pasidaryk atbulai lygu toki principa
Cia puse tavo uzduoties parasiau, nes skubu dazasvydzio lost

[tornado]

program laiks; {Tomas Markelevicius 10a}
var laikas, {pradinis}
paros, valandos, minutes, sekundes: integer;
begin
writeln ('Laikas');
read (laikas);
paros := laikas div 3600;
valandos := laikas div 360;
minutes := laikas div 60;
sekundes := laikas mod 60;
ReadLn;
writeln ('Paros:',paros,'Valandos:',valandos,'Minutes:',minutes,'Sekundes:',sekundes)
End.


manau klaidu cia tikrai bus....tikriausiai zinot kaip padaryt kad kai ismeta lentele ,tai ji staigiai nedingtu o butu ant ekrano?:)

[SwaDDie]

program laiks; {Tomas Markelevicius 10a} {Kuo tixlesni pav galvok apie programa}
var laikas, {pradinis}
paros, valandos, minutes, sekundes: integer;
begin
writeln ('Laikas'); { Po laikas turi buti dvitaskis}
read (laikas);
paros := laikas div 3600;
valandos := laikas div 360;
minutes := laikas div 60;
sekundes := laikas mod 60;
ReadLn; {Sitas sustabdo ir parodo atsakyma ,jis turi buti pries end.}
writeln('Paros:',paros,'Valandos:',valandos,'Minutes:',minutes,'Sekundes:',sekundes)
End.


manau klaidu cia tikrai bus....tikriausiai zinot kaip padaryt kad kai ismeta lentele ,tai ji staigiai nedingtu o butu ant ekrano?:)

Kad nedingtu lentele gale reikia prirasyti ReadLn, tavo prog kaip ir gerai bet pats minejai jog ji turi skaiciuoti ir skaidydama paras ir is sekudziu versdama i paras mastyk kazka.Dar kai paraso galutini varianta tia nebuna supratimo kur kas padaryk tarpelius pries visus skaiciukus ir po ju.Po WriteLn ir tavo sakinio pvz (irasykit lia lia) kitoj eilutei rasyk ReadLn, kodel todel kad nebutu maklevos tarp programos klausymo, prasimo ir zmogasu bendravimo.Ir seip pasinagrinek apie programavimo kultura

P.S Klaidas pabraukiau!

[tornado]

program laiks; {Tomo Markeleviciaus laiko konverteris}
var laikas, {pradinis}
paros, valandos, minutes, sekundes: integer;
begin
writeln ('Laiko konverteris');
writeln ('Iveskite laika sekundemis');
read (laikas);
paros := laikas div 3600;
valandos := laikas div 360;
minutes := laikas div 60;
sekundes := laikas mod 60;
writeln ('Paros:',paros, 'Valandos:',valandos, 'Minutes:',minutes, 'Sekundes:',sekundes )

End.



Nesuprantu ka blogai rasau,pawadinima patiksilinau,taciau pries end. prirasius ReadLn; pazymi kaip klaida o be readln lentele tik sumirksi ir dingsta,be to rezultata kai gaunu writeln ('Paros:',paros, 'Valandos:',valandos, 'Minutes:',minutes, 'Sekundes:',sekundes ) buna labai sugrusti,bandziau ir tarpu det ir i kita eilute kelt wistiek neikertu kur klystu...

[SwaDDie]

writeln ('Paros:',paros, 'Valandos:',valandos, 'Minutes:',minutes, 'Sekundes:',sekundes )

Tu supranti ka duoda kabutes skliaustuose ir kableliai po kabuciu ?
program test {ziurek}
var zinok, klausyk : integer;
begin
zinok := 3600;
klausyk := 3006;
WriteLn ('Pastebek skirtumus:',zinok,'bei:',klausyk');
end.

program test2 {ziurek2}
var zinok, klausyk : integer;
begin
zinok := 3600;
klausyk := 3006;
WriteLn ('Pastebek skirtumus: ',zinok,'bei: ',klausyk');
end.

arba

program testth {ziurek}
var zinok, klausyk : integer;
begin
zinok := 3600;
klausyk := 3006;
WriteLn ('Pastebek skirtumus:', zinok,'bei:', klausyk');
end.

Nekompilink o tik paziurek i sausa source tiek manau uzteks.Del readln prblemu neturetu kilti...beje naudoji TP ar FP ?