Navigacija

Vartotojų tinkle

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

Registruoti nariai: 25,951
Naujausias narys: kartoonas

Naujausi straipsniai

Paskutiniai nariai

weberiz 5 dienos
mRokass 3 savaitės
kartoonas 4 savaitės
iaescortsmap 4 savaitės
ozzWANTED 5 savaitės
Reikalas 6 savaitės
grunskiz 7 savaitės
Bruksnys 7 savaitės
illusion 7 savaitės
ordo 8 savaitės
Jurgaila 9 savaitės
originalcs16 9 savaitės
Rytis10 savaitės
halis11 savaitės
junkus14 savaitės
morlis14 savaitės
Majakas15 savaitės
andsoft16 savaitės
picolee9018 savaitės
hona19 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 52.90.142.26
Naujienų: 529
Straipsnių: 235
Temų: 52,583
Postų: 522,521
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.

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?

Apocal
2023 Rugs. 2 18:09:23
Nu davai nuveikiam kažką akinanti šypsen. Prisijungti kada visi čia akinanti šypsen.

Apocal
2023 Rugs. 2 00:09:18
Šiaip atėjau pažiūrėti ar dar lopas nesby yra ar koks ten buvo.

Š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ų: 31551      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ą: