Navigacija

Vartotojų tinkle

Prisijungusių svečių: 458
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,955
Naujausias narys: Johny

Naujausi straipsniai

Paskutiniai nariai

Johny 3 savaitės
Reikalas 8 savaitės
Jaunelis14 savaitės
lanis14 savaitės
And2s15 savaitės
Memento Mori20 savaitės
ozzWANTED20 savaitės
Quwqkibor22 savaitės
asirija26 savaitės
tomeem28 savaitės
weberiz32 savaitės
mRokass34 savaitės
kartoonas35 savaitės
iaescortsmap35 savaitės
grunskiz38 savaitės
Bruksnys38 savaitės
illusion38 savaitės
ordo39 savaitės
Jurgaila40 savaitės
originalcs1640 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 3.133.148.216
Naujienų: 529
Straipsnių: 235
Temų: 52,588
Postų: 522,534
Postų pask. parą: 0
Shout'ų pask. parą: 0
P.S.C. pask. parą: 0
Nuorodų kataloge: 13

Lankomumo Statistika

Peržiūrų šiandien: 22

Iš viso peržiūrų: 22948724

Prisijungti

REGISTRUOTIS
Nario vardas

Slaptažodis



Pamiršai slaptažodį?
Paprašyk naujo

Aktyvuoti save

Šaukykla

Jei norite rašyti žinutes, turite prisijungti.

Jaunelis
2024 Lie. 25 11:07:43
Oho vis dar veikia svetainė akinanti šypsen Šimtas metų, matau Šaukykloje nuostalgija. Smagu panaršyt po forumą ir pažiūrėt senas temas šypsosi

And2s
2024 Lie. 17 19:07:04
2008 pirmą kart čia patekau, man buvo 10m ir čia pramokau programavimo.. smagu skaityti senas žinutes, tokia nostalgija akinanti šypsen ačiū Ozz kad saugoji šitą kultūrinį reliktą šypsosi

ozzWANTED
2024 Sau. 17 01:01:00
Desperatiškus komentarus šaukykloje su accountu po mėnesio prasibuvimo, ištryniau. Pasaulis ir taip juodas. Įjungiam šviesą, prašviesės. šypsosi

Majakas
2023 Gru. 10 19:12:39
Negaliu patikėti jog žinutės/pranešimai visi yra nuo 2008 m akinanti šypsen

Žmogus
2023 Rugs. 7 21:09:14
O gal BloodKiller pasijungs?

Šaukyklos archyvas

Apklausa

Ar esate patenkinti lietuviško vertimo kokybe?

Taip!

Taip, bet yra ką taisyti (parašysiu komentaruose)

Ne

Norėdamas balsuoti turite prisijungti.
Archyvas
Reklama 400x60
Pascal: Užduotys / Klausimas / Atsakymai
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai

Puslapis 2 iš 2 < 1 2
Autorius: IGEN Peržiūrų: 32724      Spausdinti temą
2012 Geg. 16 20:05:00          41 žinutė iš 46
Spausdinti pranešimą
@martynasjet

Labai jau paprasta programa, tik panaudojai crt biblioteką šypsosi Patiko, kad kodas buvo tvarkingas, parašytas atsakingai... Gerai, kad naudoji lokalius kintamuosius procedūruose, o ne globalius kuri prie a, b, c kintamamųjų. Šaunu, ką toliau galvoji daryti?
2012 Geg. 16 21:05:59          42 žinutė iš 46
Spausdinti pranešimą
Sita programa sukures pries metus tai jinai nera tokia jau ipatinga. Noriu sukurti programa testa. Naudojant graph biblioteka. Ten testas miegas. klausimai rasomi ir zmones turi atsakyti, o paskui paraso kaip zmogus isimiega .Dabar darau zodziu ivedimo procedura. Dar turiu sukures programa "zodzio paieska" zmogus iveda teksta i tektini faila ir ijungia programa paraso zodi koki nori surasti ir paraso kiek tokiu zodziu yra tekstiniame faile. o paziurejai ta programa kur ikeliau kad atsisiusti, ten sukuriau naudojant graph biblioteka.
2012 Geg. 17 13:05:27          43 žinutė iš 46
Spausdinti pranešimą
Is neturejimo ka veikti ikeliu koda . Noredami naudoti grafikos priemones iveskite sita koda
Ir pagrindineje programoje parasykite.

Program Vardas;
uses graph,
begin
ekranas;
end.


unit Grafika;
 
interface
uses Grafika,Graph;
procedure ekranas;
 
implementation
Procedure Ekranas;
var gd,gm : integer;
begin
(*gd := D8Bit; (8Bitu kodas*)
gd := Detect;//Full window(pilnas langas)=detect; m640x480=Lango dydis jei m640x480 tada reikia gd pakeisti i gm
Initgraph(gd,gm,' ');
{Isitikinkite, kad visada paziurite Graphresult!}
if GraphResult<>grOK then begin
//WriteLn('Programa negalima naudotis atsiprasome(Can't use this program sorry');
halt(1);
end;
{Mes dabar esame pilname lange(We now in full screen}
end;
begin
end.


2013 Sau. 14 21:01:04          44 žinutė iš 46
Spausdinti pranešimą
Studentų grupės egzaminų sesijos vidurkiai yra surašyti masyve A(n). Apskaičiuoti, kiek studentų ir kurie jų mokosi geriau, negu grupės vidurkis.

Reikia išspręst su tekstiniais failais bei funkcijomis ar procedūromis.

Būčiau beprotiškai dėkinga jei padėtumėt.. žliumbia
2013 Kov. 11 00:03:31          45 žinutė iš 46
Spausdinti pranešimą
aphora parašė:
Studentų grupės egzaminų sesijos vidurkiai yra surašyti masyve A(n). Apskaičiuoti, kiek studentų ir kurie jų mokosi geriau, negu grupės vidurkis.

Reikia išspręst su tekstiniais failais bei funkcijomis ar procedūromis.

Būčiau beprotiškai dėkinga jei padėtumėt.. žliumbia







program studentai;
const max = 100;
var
n, y, c, sum : integer;
d : real;
txt : text;
A:array[1..max] of integer;
vardas:array[1..max] of string[10];

procedure ivestis;
begin
assign(txt, 'duomenys.txt');
reset(txt);
readln(txt, n);
for y := 1 to n do
begin
read(txt, vardas[y]);
readln(txt, A[y]);
end;
close(txt);
end;
procedure skaiciavimas;
begin
c := A[1];
for y := 2 to n do
begin
c := c + A[y];
d := c / n;
end;
end;
procedure isvestis;
begin
assign(txt, 'rezultatai.txt');
rewrite(txt);
for y := 1 to n do
begin
if d < A[y] then
begin
write(txt, vardas[y]);
writeln(txt, A[y]:2);
sum := sum + 1;
end;
end;
writeln(txt);
writeln(txt, sum , ' mokyniai mokosi geriau negu grupes vidurkis');
writeln(txt);
writeln(txt, 'grupes vidurkis ', d:0:2);
readln;
close(txt);
end;
begin
ivestis;
skaiciavimas;
isvestis;

end.


SniperVI-six prisegtu failu:
studentai.rar
2013 Geg. 22 17:05:24          46 žinutė iš 46
Spausdinti pranešimą
Kas gerai mokat dirbti su PASCAL parašykit PM reikėtų truputėlio pagalbos.
Puslapis 2 iš 2 < 1 2
Peršokti į forumą: