Eve eden tutorijal od mene , jas sum nov tuka pa ajde da stavam nesto
znaci "read" funkcija se koristi da se procita (memorira) toa sto go vnesuvate od tastatura za podocna istoto da bide iskoristeno vo programot po potreba.
eve go kodot i ke gi objasnam site linii:
Program runkcija;
Var a:integer;
Begin
Writeln('Vnesi broj od 1 do 10:');
readln(a);
writeln('Brojot sto go vnese e:', a;
readln;
end.
Program runkcija; vo ovoj del mora da stoi "program" a dodatniot zbor e imeto na programot kako sto vie sakate da stoi,ne smee dva odelni zbora!
Var a:integer; ovde se deklariraat promenlivite ( vo ovoj slucaj imame samo edna promenliva vo koja ke memorirame toa sto ke stisneme na tastatura)
integer- cel broj , toa e tip na promenliva vo koja moze da se memoriraat samo celi brojki.
Begin pocetok na funkcijata
Writeln('Vnesi broj od 1 do 10:'); writeln (writelinenew) znaci da se ispise tekstot sto e vo zagrada i pritoa se stava apostrov na pocetokot i krajot od tekstot
isto taka ln stoi za da sledniot tekst sto ke se ispise koga ke bide uklucen programot da bide vo nov red.
readln(a); ovaa funkcija e procituvanje i memoriranje na ona sto ke go stisneme na tastatura (vo ovoj slucaj e broj)
writeln('Brojot sto go vnese e:', a; vo ovoj del go ispisuvame sledniot tekst i ja pokazuvame pormenlivata kako kraen rezultat,pazete so apostrovot
vo writeln promenlivi idat nadvor od apostrovite bidejki tie se promenlivi i nivnata vrednost se menja vo zavisnost od
toa sto go vnesuvate zatoa e staveno zapirka pa se pisuva promenlivata,na krajot
sekoj red zavrsuva so " ; " readln; ova i ne e moralno megutoa jas go naogam kako del so koj ja ostavate programata vo rabota se dodeka ne stisnete
nekoe kopce da ja zatvorite , bidejki bez ova prozorot na programot odkako ke go startuvate ke se izgasi mnogu brzo i nema
da vidite rezultat , probajte i sami.
end. zavrsuvanje na funkcijata , programot.
Se nadevam deka dosta bev jasen ako ima prasanja pisete slobodno poz!