Pascal ir virusai

[SwaDDie]

Nepykit kad needitau ano posto, bet nenorejau kad zmogus galvotu kiek jam dbr daug reiks skaityt.
Yra galimybe ir tokia
writeln ('Paros:',paros:2, 'Valandos:',valandos:2, 'Minutes:',minutes:, 'Sekundes:',sekundes:2 )

[Pirmas skaitmuo po : reiskia kiek ;angeliu paliks pries skaitmeni o antras po skaitmens tik neprisimenu kaip antraji skaitmeni uzrasyti ] jei ko reik klausk padesiu....
o del tos programos kad is sekundziu verstu i paras, tiesiog
var Taip, Ne : integer:
begin
Taip := 1;
ne := 0;
WriteLn ('Ar norite sakidyti paras i sekundes?Ats Taip arba Ne');


O paskui su if jei 1 > 0 tai daryti skaido paras i sec else iveskite sec skaiciu ir paraso paru skaiciu

[tornado]

supratau ka norejai pasakyt ir minti pagawau.wisaip bandziau keist kad graziai ishsideliotu nes db wa taip wa gaunas http://img295.imageshack.us/my.php?image=pascalws7.png ir tai tas screenshotas padarytas spaudziant wienu metu enter ir printscreen...nes kitaip man ta lentute tik sumirksi ir wiskas,o prirasius readln; meta klaida....pas mane free pascal...(wa su situo kur sakei writeln ('Paros:',paros:2, 'Valandos:',valandos:2, 'Minutes:',minutes:, 'Sekundes:',sekundes:2 ) tai nesigawo...klaida meta ...bliamba antradieni turiu atsiskaityt ta programa,,,nu dar laiko turiu...

[tornado]

gerai kai info turiu,jus padedat...godhack dawe nuoroda i intera apie paskali truputi.tu padedi su programytem,namie dar knyga turiu informatikos pradmenys ten irgi apie paskali yra:) is kazkur dar turiu paskalio e-book kazkokia:) tereikia bandyt suprast po truputi:)

[alpine]

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


va dabar graziai atspauzdins....

[SwaDDie]

Nu ka privertei ir mane isijungti pascali .
Free Pascal yra zudas mesk tu ji pro langa ir susirask Turbo Pascal 7
Dbr kad nedingtu langas ant TP tai Alt+F5 , o jei neveiks tai ieskok is menu User Screen kategorijos.
Kad is vis graziai atrodytu viskas:
writeln ('Paros: ',paros: 2: 2,' Valandos:',valandos: 2: 2,' Minutes:',minutes: 2: 2,'Sekundes:',sekundes: 2: 2);
Tik man kazkodel nelebai funkcionavo si salyga, toliau LT info:
http://www.ipc.lt/21z/mokymas/mokymopr/ ... askal1.htm

[tornado]

kaip parasyt programa kad apskaiciuotu sesiu skaitmenu suma?informatikos knyga wartau ir bliamba pawyzdziu nelabai randu...gerai butu kad padetumet iki rytoj widurdienio...busiu dekingas uz bet kokia info

[oxigen]

kaip parasyt programa kad apskaiciuotu sesiu skaitmenu suma?informatikos knyga wartau ir bliamba pawyzdziu nelabai randu...gerai butu kad padetumet iki rytoj widurdienio...busiu dekingas uz bet kokia info

O kas bus rytoj vidurdienį ? Nes savo namų darbus ir kitas panašias užduotis reikia daryti pačiam

[alpine]

kiek supratau tau cia reikia ivesti sesiazenkli skaiciu ir sudeti jo skaitmenis nea?

jeigu taip tai ivedi sesiazenkli skaiciu:
writeln('Iveskite 6-kli skaiciu:');
readln(skaicius);

tada reikia atskirti nuo to skaiciaus kiekviena skaitmeni div, mod pagalba ir kiekviena skaitmeni irasyt i atskirus kintamuosius... pvz.:

pirmas := skaicius mod 10; // jeigu skaicius ivestas pvz 100000 tai is skaiciu dalinam is 10 ir imame liekana, gauname 0 ir ji irasome i kintamaji pirmas, jau turime viena skaitmeni...

ir taip toliau surandi visus skaitmenis...

o tada suma := pirmas + antras + trecias + ketvirtas + penktas + sestas ir gausi savo ieskoma suma tikiuosi pagavai minti

[tornado]

oxigen widurdieni man informatika buna antradieniais darau namu darbus,parasiau wa kiek pats bet su klaidom

program sumavimas; (*Tomas Markelevicius 10a*)
var a,b,c,d,e,f,suma:integer
begin
readln(a,b,c,d,e,f);
suma := a+b+c+d+e+f;
WriteLn; (suma)
readln;
end.

zinokt abejoju ar cia gerai
nu suprantat reikia kad sudetu sesis skaicius,taip kaip buna kad padaugintu is dwieju ir t.t tai cia typo kad surastu sesiu skaiciu suma kuriuos ivesim .dabar studijuoju alpine pavyzdi cia mazdaug pagal pavyzdi informes knygoj parasiau...

[SwaDDie]

oxigen widurdieni man informatika buna antradieniais darau namu darbus,parasiau wa kiek pats bet su klaidom

program sumavimas; (*Tomas Markelevicius 10a*)
var a,b,c,d,e,f,suma:integer
begin
readln(a,b,c,d,e,f);
suma := a+b+c+d+e+f;
WriteLn; (suma)
readln;
end.

zinokt abejoju ar cia gerai
nu suprantat reikia kad sudetu sesis skaicius,taip kaip buna kad padaugintu is dwieju ir t.t tai cia typo kad surastu sesiu skaiciu suma kuriuos ivesim .dabar studijuoju alpine pavyzdi cia mazdaug pagal pavyzdi informes knygoj parasiau...

Koks skirtumas jei mes tau padesim kad dar is praito uzdavinuko neismokai WriteLn naudot ir etc?Plius Galetum var uzrasyti zymiai grazeu ir tuo uzsidirbti dar 1 pliusa.pvz
var z,x,c :integer; {kintamieji}
suma :integer; {visu sk. suma}
1.Vnz ismok naudotis paprasciausiomis proceduromis.
2.Jei mokaisi del mokytojo tai taip ir sakyk
3.Daryk pazanga nuo kitu pamoku, ir tie uzdavinukai bus vienas juokas....
4.Nematau cia nieko sunkaus...

[SwaDDie]

program sumavimas; (*Tomas Markelevicius 10a*)
var a,b,c,d,e,f,suma:integer
begin

Beje tornado galvoji tavo mokytojas(-a) durna ir dbr pamacius forume tavo varda, pavarde, klase, speju taip su tavim atsiskaitytu kad tavo ND daro kiti.Pagalvok kai viesini informacija apie save...

[tornado]

zinai,tokia cia ir informacija,neishsami o mokytojui gal 65 metai jei nedaugiau tai jis net nesugalwotu i wiena ar kita foruma uzeit be to neprasau wisko uz mane padaryt,prasau kad padetumet ir pataisytumet kas nagerai

[SwaDDie]

Supranti as tau noresiu padeti tik tada kai tu noresi ismokti.Nes man jokio tolko cia vargintis su tavo ND, bet jei tu kazko nesupranti bent susizinok pagrindus kaip kazkas turi atrodyt, manau tu dar nepasiekei tokio lygio kad isijungi foruma ir parasai programa jos netestaves.Issitaisyk is tos programos elemntarias klaidas { ; : ( ) } ir toliau pasakysiu ka daryti....
P.S Cia musu mielo Brain5ide ismintis

[tornado]

sakau programa rasiau pagal pavyzdzius vadovelyje,ir vienur ir kitur rasdawo klaidu,dabar randa tik viena klaida,bent jau kolkas.O apie paskali nesenai pradejom mokytis bet uzduotis duoda mokytojas beveik neaiskines,taigi ne viska taip lengvai ikertu (gal gabumu tam dalykui netiek daug nes tikslieji nesiseka) aisku be darbo ir noro nieko nebus,tad bandziau ir bandysiu rasyt taisyt ir vel rasyt...wa url kur klaida...http://img231.imageshack.us/my.php?image=errortx8.png

EDIT

program sumavimas; {*Tornado*}
var a, b, c, d, e, f,
suma:integer;
begin
Writeln('Iveskite sesis skaicius,as juos sudesiu');
readln(a, b, c, d, e, f);
suma := a + b + c + d + e+ f;
WriteLn('suma');
readln;
end.

wa db puikiai sukompiliuoja wiska taciau surasius wisus skaicius paraso zodi SUMA o atsakymo neparodo kazka busiu praleides?:)

[brain5ide]

Supranti as tau noresiu padeti tik tada kai tu noresi ismokti.Nes man jokio tolko cia vargintis su tavo ND, bet jei tu kazko nesupranti bent susizinok pagrindus kaip kazkas turi atrodyt, manau tu dar nepasiekei tokio lygio kad isijungi foruma ir parasai programa jos netestaves.Issitaisyk is tos programos elemntarias klaidas { ; : ( ) } ir toliau pasakysiu ka daryti....
P.S Cia musu mielo Brain5ide ismintis

Neminim mano vardo be reikalo!
O dėl programos, tai įjunk smegenis.

Kodas: Pasirinkti visus

program suma;
var a,b,c : integer;
suma : integer;
begin
writeln('Davai baxuras, inmesk 3 skaicius:');
readln(a);
readln(b);
readln(c);
suma := a + b + c;
writeln('Suma: ', suma);
end.

Paskaliu esu programavęs labai mažai, to, kas čia parašyta netikrinau. Esmė tame, kad tau pamoka rytoj, o 10 klasėj, kiek atsimenu informatika yra 1 kartą per savaitę, tai klausimas, ką tu visą savaitę veikei?