Pereiti prie turinio

agnek21

Nariai
 Profilis  Nario turinys ir veikla

  • Pranešimai

    174

  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%

 Turinio tipas 

agnek21 Pranešimai

    Pascal užduotis

    Programuotojų kampas

    Atrašyta 

    program pelnas;
type masyvas = array[1..12] of integer;
var p, r, z : masyvas;
   i, n, suma, max, min, s, ma, m : longint;
   fd, fr : text;
begin
 assign(fd, 'firma.txt'); reset(fd);
 readln(fd, n);
 s := 0;
 suma := 0;
 max := 0;
 min := 100000;
 for i := 1 to n do
   begin
       readln(fd, r[i], p[i]);
       suma += p[i] - r[i];
       if max < (p[i] - r[i])
           then begin ma := i; max := p[i] - r[i]; end;
       if (min > p[i]  -r[i]) and (p[i] - r[i] > 0)
           then begin m := i; min := p[i] - r[i]; end;
       if (p[i] - r[i]) > 0
           then s += 1;
   end;
 assign(fr, 'Pelnas.txt'); rewrite(fr);
 writeln(fr, suma);
 writeln(fr, ma, ' ', max);
 writeln(fr, m, ' ', min);
 writeln(fr, s);
 close(fr);
 close(fd);
end.

    Paskalis(reikia pagalbos draugei)

    Programuotojų kampas

    Atrašyta

    matau niekas nenori užsiimt su tokiom 'sudėtingom' programom :D 

    //Parasykite sakiniu seka, sukeiciancia vietomis pirmus du trizenklio skaiciaus skaitmenis
program keitimas;
var sk, a, b, c : integer;
begin
 WriteLn('iveskite 3-enkli skaiciu');
 readln(sk);
 a := sk div 100;
 b := sk mod 100 div 10;
 C := sk mod 10;
 sk := b * 100 + a * 10 + c;
 writeln('sukeista: ', sk);
 Readln;
end.

     

    //Parasykite programa, randancia trizenklio sveiko skaiciaus skaitmenu, kurie dalijasi ir 3, suma.
program suma;
var a, b, c, sk, sum : integer;
begin
 WriteLn('prasauuuu ivesk 3-enkli skaiciu ');
 readln(sk);
 a := sk div 100;
 b := sk mod 100 div 10;
 c := sk mod 10;
 sum := 0;
 if (a mod 3) = 0
   then sum := sum + a;
 if (b mod 3) = 0
   then sum += b;
 if (c mod 3) = 0
   then sum += c;
 writeln('suma yra: ', sum);
 Readln;
end.

     

    //Parasykite programa, randancia didziausio ir maziausio keturzenklio skaiciaus skaitmenu suma.
program max_min;
var a, b, c, d, sk, max, min : integer;
begin
 WriteLn('rasyk 4-enkli skaiciu');
 readln(sk);
 a := sk div 1000;
 b := sk div 100 mod 10;
 c := sk div 10 mod 10;
 d := sk mod 10;
 min := 10;
 max := 0;
 if a > max
   then max := a;
 if a < min
   then min := a;
 if b > max
   then max := b;
 if b < min
   then min := b;
 if c > max
   then max := c;
 if c < min
   then min := c;
 if d > max
   then max := d;
 if d < min
   then min := d;
 writeln('didziausio ir maziausio suma: ', max + min);
 Readln;
end.

    Taisyklingas programos dalių komentavimas

    Programuotojų kampas

    Atrašyta 

    {----------------procedūra failo nuskaitymui-----------------------------------}
procedure skaitymas(var A : masyvas; var grupDYD : integer);
var i, z : integer;
   fd : text;

    čia taip komentuoju programos dalis, o taip 

    program automobilis;
var a, //1-ojo pagreitis
   v1, //1-ojo pradinis greitis
   v2, //2-ojo greitis
   h : integer; //kelio skirtumas
   t1, t2 : integer; // vietos kur susitiks
begin

    taip komentuoju kintamuosius, ciklus. Kintamuosius, programos dalis(funkcijas, procedūras) komentuoju visada,

    dar kartais koki ciklą, bet ne visada. Komentarus reikia rašyti su lietuviškomis raidėmis. O ar {komentaras} ar //komentaras ne manau kad yra skirtumas svarbu yra komentarai :)

    Padėkit rasti klaidą (Pascal)

    Programuotojų kampas

    Atrašyta 

    program Noname3;
var Df,Rf:text;
i,n,s:integer;
namas,gyventojai : array[1..50] of integer;
//-------------------
procedure viso(var s : integer);
var i : integer;
begin
s := 0;
for i := 1 to n do
   s += gyventojai[i];
end;
//-------------------------------
begin

 Assign(Df,'duom.txt');
 Reset(Df);
 Readln(Df,n);
 for i:=1 to n do
 Readln(Df,namas[i], gyventojai[i]);
 viso(s);

Close(Df);
Assign(Rf,'rez.txt');
Rewrite(Rf);
Writeln(Rf,s);

Close(Rf);
end.

     

    dabar gražina, aš čia net procedūros nerašyčiau. bet jei jam taip gerai tai tegul rašo.

    Pascal užduotis

    Programuotojų kampas

    Atrašyta 

    program Pirkejas;
type masyvas = array[1..100] of integer;
var A : masyvas;
   t1, t2, N : integer;
{------------------procedūra failo nuskaitymui---------------------------------}
procedure skaitymas;
var i : integer;
   fd : text;
begin
   assign(fd, 'DUOM.TXT');
   reset(fd);
   readln(fd, t1, t2, N);
   for i := 1to N do
       readln(fd, A[i]);
   close(fd);
end;
{-------funkcija rasti daugiausia prekiu turincio eiles numeriui nustatyti-----}
function didpirk : integer;
var i, max : integer;
begin
   max := 0;
   for i := 1 to N do
       if max < A[i]
           then begin
                   max := A[i];
                   didpirk := i;
                end;
end;
{F-ja, kuri skaičiuoja, po kiek sekundžių nurodytas pirkėjas atsiskaito kasoje-}
function laikas (eilnr : integer) : integer;
var i : integer;
begin
   laikas := 0;
   for i := 1 to eilnr do
       laikas := laikas + A[i] * t1 + t2;
end;
{--------f-ja skaicuojanti kiek laiko sugaiš kasininkė su tuo pirkėju----------}
function pardlaik (eilnr : integer) : integer;
begin
   pardlaik := A[eilnr] * t1 + t2;
end;
{----------procedura rasymui i faila-------------------------------------------}
procedure rasymas;
var i : integer;
   fr : text;
begin
   assign (fr, 'REZ.TXT');
   rewrite(fr);
   write(fr, didpirk,' ', A[didpirk],' ', laikas(didpirk),
                                                       ' ',pardlaik(didpirk));
   close(fr);
end;
begin
 skaitymas;
 rasymas;
end.

    Padėkit rasti klaidą (Pascal)

    Programuotojų kampas

    Atrašyta · Redagavo agnek21 

    program Noname3;
var Df,Rf:text;
i,n,s:integer;
namas,gyventojai : array[1..50] of integer;
//-------------------
procedure viso;
var i : integer;
begin
s := 0;
for i := 1 to n do
   s += gyventojai[i];
end;
//-------------------------------
begin

 Assign(Df,'duom.txt');
 Reset(Df);
 Readln(Df,n);
 for i:=1 to n do
 Readln(Df,namas[i], gyventojai[i]);
 viso;

Close(Df);
Assign(Rf,'rez.txt');
Rewrite(Rf);
Writeln(Rf,s);

Close(Rf);
end.

    ciklą persuk procedūroje, kad suma gautum. pataisiau čia truputi.

    Pascal egzaminui

    Programuotojų kampas

    Atrašyta

    paspręsk iš pradžių lengvas užduotis, vėliau po truputi sunkesnes, o tada jau egzaminų buvusias užduotis. dėl knygų, tai yra įvairių, tačiau man geriausios tik 2, tai: G.Grigas 'Programavimas Paskaliu' o dėl užduočių aiškinimo tai Jonas Blonskis Vytautas Bukšnaitis Renata Burbaitė 'ŠIUOLAIKIŠKAS ŽVILGSNIS Į PROGRAMAVIMO PAGRINDUS'.

    pascal. reikia pagalbos su simboliais

    Programuotojų kampas

    Atrašyta · Redagavo agnek21

    tai dabar, kai radau kodus pasidarė aišku, :rolleyes:

    program simboliai;
var kodas : integer;
begin
   readln(kodas);
   if (kodas >= 048) and (kodas <= 057)
       then  writeln('tai yra skaičius ', chr(kodas))
       else if (kodas >= 066) and (kodas <= 090)
               then writeln('Tai didžioji raidė ', chr(kodas))
               else if (kodas >= 097) and (kodas <= 122)
                       then writeln('tai mažoji raidė ', chr(kodas))
                       else writeln ('tai kitas simbolis');
 Readln;
end.

    čia, manau, taip reikėjo.

    pascal. reikia pagalbos su simboliais

    Programuotojų kampas

    Sukurta

    sveiki! truputi pagalbos reikėtu. yra užduotis:'duotas simbolis x(jei gerai suprantu kodas turėtų būti), nustatyti ar tai skaitmuo, didžioji raidė, mažoji raidė ar kitos simbolis'. nesuprantu kaip čia turėtu pascalis tikrinti, kaip čia daryti? Neteko dar tokio daryti :blink: mane bent ant kelio užveskit.

     

    čia šitie kodai? Jei jie tai man tada jau aišku! http://borlandpascal.wikia.com/wiki/ASCII_Table

    VU Programu sistemos

    Studijos ir mokslas

    Atrašyta

    Sveiki, norėčiau pasiteirauti ar verta stoti į programų sistemas? Jai sunkiai sekėsi mokykloje programavimas ar įstojus įmanoma persilaužti? :)

    pritariu ankstesnėms nuomonėms, kad programavimo jei nenorėsi tai niekas ir neišmokys, o jei norėsi be jokiu studijų gali išmokti :) Šiaip svarbiausia manau, kad Tave trauktu programavimas ir Tau tai būtų įdomu :rolleyes:

    Pascal vbe uždavinys

    Programuotojų kampas

    Atrašyta · Redagavo agnek21

    Mano pastebėjimai:

    1. Programos pavadinimą moko rašyti tik ‚Mainai‘.

    2. Nuskaitymo procedūra visada turi būti prieš funkcijas(programos pradžioje).

    3. Funkciją galima iškviesti į procedūrą.(Nors manau tai ne taip svarbu).

    4. Pagrindinės programos pabaigoje parašyta 'readln', sakė kad tai skaitosi kaip darbas su ekranu.

    5. Po ciklo, jei vykdomas tik viena eilutė, nereikia 'begin' ir 'end'.(Tik apkrauni darbu programą)

    O dėl komentavimo tai mums visada sako rašyti ką daro funkcijos ir procedūros

    , o dėl kintamųjų komentavimo tai, manau, kad tavo programoje tai nėra būtina, nes kintamieji yra ne raidėmis o žodžiais. Jei pvz. vietoj 'monetu_suma' būtų ms reiktų komentuot, kad ms-monetų suma.

    čia pakoreguota kaip atrodo:

     

    program Manai;
type masyvo_atsakos = record
              nominalai:integer;
              monetos:integer;
              end;
    masyvas = array[1..50] of masyvo_atsakos;
var
   gilija,eglija:masyvas;
    n_gilija, n_eglija : integer;
{-----------------------------duomenų nuskaitymo procedūūra--------------------}
procedure nuskaitymas;
var i, y, g, j : integer;
   failas : text;
begin
   assign(failas, 'U1.txt');
   reset(failas);
   readln(failas, n_gilija);
   for i:=1 to n_gilija do
       read(failas, gilija[i].nominalai);
   readln(failas);
   for y:=1 to n_gilija do
       read(failas, gilija[y].monetos);
   readln(failas);
   readln(failas, n_eglija);
   for g:=1 to n_eglija do
       read(failas, eglija[g].nominalai);
   readln(failas);
   for j:=1 to n_eglija do
       read(failas, eglija[j].monetos);
   close(failas);
end;
{------funkcija, kuri skaičiuoja, kokią sumą pinigų keičia studentas----------}
function pinigu_suma(suma:masyvas) :integer;
var sum, k :integer;
begin
   sum := 0;
   for k := 1 to 50 do
    sum:=sum+(suma[k].nominalai*suma[k].monetos);
   pinigu_suma:=sum;
end;
{-------------------procedūra spausdinanti rezultatus į failą------------------}
procedure rezultatai;
var x, atsakymai, monetu_suma, suma_gilija, suma_eglija : integer;
   irasymas : text;
begin
   assign(irasymas, 'U1rez.txt');
   rewrite(irasymas);
   atsakymai := 0;
   monetu_suma :=  0;
   suma_gilija:=pinigu_suma(gilija);
   suma_eglija:=pinigu_suma(eglija);
   for x := 1 to n_eglija do
    begin
       atsakymai := suma_gilija div eglija[x].nominalai;
       suma_gilija := suma_gilija - eglija[x].nominalai * atsakymai;
       monetu_suma := monetu_suma + atsakymai;
       writeln(irasymas, eglija[x].nominalai,' ',atsakymai);
    end;
   writeln(irasymas, monetu_suma);
   atsakymai := 0;
   monetu_suma := 0;
   for x := 1 to n_gilija do
    begin
       atsakymai := suma_eglija div gilija[x].nominalai;
       suma_eglija := suma_eglija - gilija[x].nominalai * atsakymai;
       monetu_suma := monetu_suma + atsakymai;
       writeln(irasymas, gilija[x].nominalai, ' ', atsakymai);
    end;
   writeln(irasymas, monetu_suma);
   close(irasymas);
end;
{---------------pagrindinė programa--------------------------------------------}
begin
   nuskaitymas;
   rezultatai;
end.

    Čia tik mane taip mokė, nežinau gal ir nėra viskas kaip turi būt :rolleyes:

    VU Programu sistemos

    Studijos ir mokslas

    Atrašyta

    Ai, tai tau dar visi metai prieš akis. Gali dar daug kas pasikeisti, gal kokia nauja specialybė atsiras su IT susijusi, gal dar kas ^_^ Na, bet bet kokiu atveju linkiu sėkmės.

    Taip man dar vieni metai :rolleyes: , viskas dar gali pasikeisti. Sėkmės tau taip pat!

    VU Programu sistemos

    Studijos ir mokslas

    Atrašyta

    Kaip tik gerai, kada mažai merginų grupėje. Labai labai daug dėmesio. O jeigu moki, gali tuo puikiai pasinaudoti, bus laaabai lengva mokytis :D

    :D man kaip tik ir patinka, kai būna vaikinų grupė. Pagalba, taip pat, visada praverčia. ;) Na dėmesio ir dabar nestinga, bet per daug jo nebūna! Jau noriu į VU :D

    VU Programu sistemos

    Studijos ir mokslas

    Atrašyta

    kiek pastebėjau į PS ir kas susiję su informatika, programavimu stoja tik bernai. Aš dar tik 11kl baigiau, bet jau galvoju apie stojimus, stočiau į PS, nes matematika sekasi labai gerai, informatikos mokytojo pastangomis gerai(palyginus su kitais grupiokais) išmokau programuot pascaliu. Jau pabaigiau visų metų VBE praktines užduotis, kitais metais pradės mokyti C++, kadangi pascali jau pakankamai gerai moku.Informatika pabaigiau šiuos metus A lygiu programavimą, egzaminą laikysiu ir manau išlaikysiu pakankamai gerai. Man įdomu būtu sužinoti ar galima man butu studijuoti PS, nes dabar tai man susidariusi tokia stereotipiška nuomonė, kad IT tik bernų specialybės. Ir šiaip ar nebus man sunkiau susirasti darbą baigus ar vis dėlto man rinktis matematikos studijas? :unsure:

    FPS (nuosirdziai prasau pagalbos)

    Programuotojų kampas

    Atrašyta · Redagavo agnek21 

    program Pelnas;
var n, k, s : integer;
   fd, fr : text;
begin
   Assign(fd, 'Duom.txt');
   Reset(fd);
   Readln(fd, s);
   while not eof (fd) do
       begin
           readln(fd, n, k);
           s += n * k;
       end;
   Close(fd);
   Assign(fr, 'Rez.txt');
   rewrite(fr);
   writeln(fr, s);
   Close(fr);
end.

    Skaičiuoja viską, aš visada fd ir fr rašau, tai nežinau jei jūs rašot d ir r tada pakeisk ;)

×
×
  • Pasirinkite naujai kuriamo turinio tipą...