Pascal ir virusai
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?
P.S. O gal man imti kita kalba su kuria galeciau virusus kurti?
Re: pascal ir virusai
Aš nesuprantu tik vienio kokio velnio sukūrei dar vieną temą, tau ką vienos neužtenką, rašyk į tą kurią jau sukūreiHakuRadu rašė: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?
Mokausi ir noriu išmokti
-
Veni, vidi, vici
Multa paucis
Errare humanum est
Divide et impera!
-
Veni, vidi, vici
Multa paucis
Errare humanum est
Divide et impera!
Re: pascal ir virusai
[quote="oxigen"][/quote]
Turbūt dėlto ir nulaužė tą jo saita
Turbūt dėlto ir nulaužė tą jo saita
I am not hacker, i am onli Mr.47
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]
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.
Cia gali paskaitinet, jei nesiseka:
http://www.learn-programming.za.net/pro ... arn03.html
Ir nesugrusk taip visko, labai nesiziuri tada.
Nepatikti blogiems - girtinas dalykas. SENEKA
__________________________________________
progenic.com
library.2ya.com
__________________________________________
progenic.com
library.2ya.com
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
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
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?:)
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?:)
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 kulturatornado rašė: 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?:)
P.S Klaidas pabraukiau!
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...
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...
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 ?
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 ?
Dabar prisijungę
Vartotojai naršantys šį forumą: 3 ir 0 svečių