Pradinis
Pagalba
Užsisakyk!
- Reklamą
- Hostingą
- El. pašto dėžutę
Užsisakyk!
Įrankiai
Pasidalink
- Visos temos
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai |
Autorius: IGEN | Peržiūrų: 32724 |
Faitas. Narys Generolas Pranešimai: 1038 Įstojęs: 2010 Geg. 27 17:05:35 | |
@martynasjet Labai jau paprasta programa, tik panaudojai crt biblioteką 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? |
|
martynasjet Narys Fruktas Pranešimai: 22 Įstojęs: 2010 Bal. 16 20:04:51 | |
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. |
|
martynasjet Narys Fruktas Pranešimai: 22 Įstojęs: 2010 Bal. 16 20:04:51 | |
Is neturejimo ka veikti ikeliu koda . Noredami naudoti grafikos priemones iveskite sita koda Ir pagrindineje programoje parasykite.
|
|
aphora Narys Patrankų mėsa Pranešimai: 1 Įstojęs: 2013 Sau. 14 21:01:35 | |
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.. |
|
SniperVI-six Narys Patrankų mėsa Pranešimai: 1 Įstojęs: 2013 Kov. 10 03:03:22 | |
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.. 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. |
|
Arvydas. Narys Generolas Pranešimai: 1107 Įstojęs: 2009 Gru. 27 12:12:56 | |
Kas gerai mokat dirbti su PASCAL parašykit PM reikėtų truputėlio pagalbos. |
Peršokti į forumą: |