Navigacija

Vartotojų tinkle

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

Registruoti nariai: 25,957
Naujausias narys: keistuole

Naujausi straipsniai

Paskutiniai nariai

Darexs 2 savaitės
Nepas 2 savaitės
keistuole 5 savaitės
Gizmis 6 savaitės
Reikalas 6 savaitės
Rytis15 savaitės
MaFetas20 savaitės
ozzWANTED21 savaitės
saulyzas23 savaitės
TOMIJUS24 savaitės
Jaunelis39 savaitės
lanis40 savaitės
And2s40 savaitės
Memento Mori45 savaitės
Quwqkibor48 savaitės
asirija52 savaitės
tomeem54 savaitės
weberiz57 savaitės
mRokass59 savaitės
kartoonas60 savaitės

Informacija:


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

Nepas
2025 Bal. 9 17:04:13
drovus

Nepas
2025 Bal. 9 17:04:08
drovus

Gizmis
2025 Kov. 15 14:03:50
OMG, smagu matyt sita puslapi veikianti

ozzWANTED
2024 Lap. 30 15:11:14
Taip, vis dar up šypsosi

MaFetas
2024 Lap. 13 22:11:57
hey how, geras dar veikiantis saitas?

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