Autorius Tema: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką  (Skaityta 11494 kartus)

Neprisijungęs Edmundas Ciucko

  • Moderatorius
  • Dalyvis
  • *****
  • Įrašai: 506
  • Karma: +27/-4
    • Žiūrėti profilį
    • Fejsbūkas.
{Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Įrašytas: 2009-05-11 15:36:26 pm »
Tiesą sakant, duosiu jums source kodą, kuriame komentarai jums viską paaiškins :)


program skaiciuotuvas;
Uses Crt;                                              {Nurodom, kad naudosime Crt  biblioteką}
Label 1;                                               {Pažymim programą (Naudosime vėliau, norėdami grįžti į pradžią}
var  Pasirinktis, TN:string;
     sk_1, sk_2, ats:real;


Begin
1:textbackground(white);                               {Fono spalva}
Clrscr;                                                {Išvalom ekraną, pameginkit paliesti programą be šios komandos!}
TextColor(black);                                      {Nurodom teksto spalvą}
                                                       {Toliau perkelsime pointer'į į tam tikrą poziciją, bei parašysime pasirinkimus}
GotoXy(8,4);
Writeln('1. Sudėtis');
GotoXy(8,5);
Writeln('2. Atimtis');
GotoXy(8,6);
Writeln('3. Daugyba');
GotoXy(8,7);
Writeln('4. Dalyba');
GotoXy(8,8);
Writeln('5. Išeiti');
GotoXy(10,12);
Writeln('Pasirinkite: ');                              {Paprašome pasirinkti}
Pasirinktis := Readkey;                                {Priskiriame "readkey" kintamajam.}
if Pasirinktis = '1' then
   Begin
   Clrscr;                                             {Išvalom ekraną, toliau viską turėtumet suprast.}
   Writeln('Įveskite 1-ą skaičių');
   Readln(sk_1);
   Writeln('Įveskite 2-ą skaičių');
   Readln(sk_2);
   ats:=sk_1+sk_2;
   Writeln('Suma: ', ats :4:2);
   Writeln('');
   Writeln('Paspauskite betkokį klavišą norėdami tęsti...');
   Readkey;
   Goto 1;                                            {Grįžtam į pradžą (Label 1)}
   End;                                               {Baigiam sąlygos užduotį}
if Pasirinktis = '2' then
   Begin
   Clrscr;
   Writeln('Įveskite 1-ą skaičių');
   readln(sk_1);
   Writeln('Įveskite 2-ą skaičių');
   readln(sk_2);
   ats:=sk_1-sk_2;
   Writeln('Skirtumas: ', ats :4:2);
   Writeln('');
   Writeln('Paspauskite betkokį klavišą norėdami tęsti...');
   Readkey;
   Goto 1;                                            {Grįžtam į pradžą (Label 1)}
   End;                                               {Baigiam sąlygos užduotį}
if Pasirinktis  = '3' then
   Begin
   Clrscr;
   Writeln('Įveskite 1-ą skaičių');
   readln(sk_1);
   Writeln('Įveskite 2-ą skaičių');
   readln(sk_2);
   ats:=sk_1*sk_2;
   writeln('Atsakymas: ', ats :4:2);
   writeln('');
   Writeln('Paspauskite betkokį klavišą norėdami tęsti...');
   Readkey;
   Goto 1;                                            {Grįžtam į pradžą (Label 1)}
   End;                                               {Baigiam sąlygos užduotį}
if Pasirinktis = '4' then
   Begin
   Clrscr;
   Writeln('Įveskite 1-ą skaičių');
   readln(sk_1);
   Writeln('Įveskite 2-ą skaičių');
   readln(sk_2);
   ats:=sk_1/sk_2;
   Writeln('Paspauskite betkokį klavišą norėdami tęsti...');
   Readkey;
   Goto 1;                                            {Grįžtam į pradžą (Label 1)}
   End;                                               {Baigiam sąlygos užduotį}
If Pasirinktis = '5' then                             {Prasideda pagrindinė Crt užduotis :)}
   Begin
   ClrScr;
  Writeln('Ar jūs įsitikinęs ? (T/N)');               {Duodam užklausą}
  TN := Readkey;                                      {Nuskaitom ką pasirinkto vartotojas (T arba N)}
  if TN = 't' then                                    {Jei pasirinko t atlieka užduotį}
   Begin
   Writeln('Made by Falkner. @ ''09');
   Delay(1000);
   Halt;                                              {Halt - išeina iš programos}
   end;
  if TN = 'n' then                             {Jei pasirinko n atlieka užduotį}
   Begin
   Writeln('Visvien.. Ką ketini čia veikti?..');
   Delay(1550);                                {Sulaiko tolimesnį veikimą 1550 milisekundžių}
   Goto 1;                                     {Grįžta į pradžą (Label 1)}
   end;
 End;                                          {Užbaigia pagrindinį IF'ą}
End.


Tikiuosi nebūsit chamai, ir jo niekur neplatinsit, kadangi gan ilgai rašiau specialiai šiam forumui :)
Prisegu *.pas failą jeigu įdomu kaip programa atrodo Pascal'yje :)


“It looks good” is the worst feedback you can get -
                                                                           Whitney Hess

filmai.in

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #1 Įrašytas: 2009-05-11 18:55:31 pm »
nu pasistengei pasistengei :O

reikes parsisiusti pascali :) i siuntinius idesiu, jei nemokamas bus ;]
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Neprisijungęs Edmundas Ciucko

  • Moderatorius
  • Dalyvis
  • *****
  • Įrašai: 506
  • Karma: +27/-4
    • Žiūrėti profilį
    • Fejsbūkas.
Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #2 Įrašytas: 2009-05-11 19:02:12 pm »
nu pasistengei pasistengei :O

reikes parsisiusti pascali :) i siuntinius idesiu, jei nemokamas bus ;]

Free Pascal (FPS) 0.6.4a :)
“It looks good” is the worst feedback you can get -
                                                                           Whitney Hess

filmai.in

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #3 Įrašytas: 2009-05-11 19:11:02 pm »
jau siunciuosi is source forge : ) imesiu i siuntinius, kai parsisius ;] labai jau kotais lietai siuncia is to source  ;\ uz keliu minuciu bus linkas siuntiniuose :) gal gali padaryti dar bendresne free pascal programos nauodjamo pamoka? ideciau kategorija i puslapi ; ]
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Manualai.lt Forumas

Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #3 Įrašytas: 2009-05-11 19:11:02 pm »

Neprisijungęs Edmundas Ciucko

  • Moderatorius
  • Dalyvis
  • *****
  • Įrašai: 506
  • Karma: +27/-4
    • Žiūrėti profilį
    • Fejsbūkas.
Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #4 Įrašytas: 2009-05-11 19:22:05 pm »
Padarysiu su mielu noru :)
“It looks good” is the worst feedback you can get -
                                                                           Whitney Hess

filmai.in

Neprisijungęs Simas

  • Administratorius
  • Dalyvis
  • ******
  • Įrašai: 998
  • Karma: +21/-1
    • Žiūrėti profilį
Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #5 Įrašytas: 2009-05-11 19:29:19 pm »
Šiaip tais, tai kažkaip norėčiau pagr. tinklapyje matyti raštu publikuojamas pamokas, o ne fotkėse, nubet ka jau padarysi :D

Neprisijungęs Edmundas Ciucko

  • Moderatorius
  • Dalyvis
  • *****
  • Įrašai: 506
  • Karma: +27/-4
    • Žiūrėti profilį
    • Fejsbūkas.
Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #6 Įrašytas: 2009-05-11 19:34:46 pm »
Nesvarbu, galiu perrašyt tekstiniu formatu, galiu ir video padaryt  ;)
“It looks good” is the worst feedback you can get -
                                                                           Whitney Hess

filmai.in

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #7 Įrašytas: 2009-05-11 19:50:55 pm »
geriausia butu tekstiniu formatu jeigu darytum :) jei ka, iskart paklausiu, ar galiu deti i pagrindini psl kazkurioje vietoje tavo sitas pamokas? aisku nurodysiu tave kaip autoriu :)
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Neprisijungęs Edmundas Ciucko

  • Moderatorius
  • Dalyvis
  • *****
  • Įrašai: 506
  • Karma: +27/-4
    • Žiūrėti profilį
    • Fejsbūkas.
Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #8 Įrašytas: 2009-05-11 19:59:34 pm »
Jap, gali :)
“It looks good” is the worst feedback you can get -
                                                                           Whitney Hess

filmai.in

Neprisijungęs duovis

  • Naujokas
  • *
  • Įrašai: 3
  • Karma: +1/-0
    • Žiūrėti profilį
Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #9 Įrašytas: 2011-10-08 18:35:47 pm »
gal kas galetu sukurti skaicuotuva kur butu daugyba dalyba atimtis sudetis bei saknis ir keltu kvadratu buciau labai dekingas :)

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #10 Įrašytas: 2011-10-09 09:33:25 am »
gal kas galetu sukurti skaicuotuva kur butu daugyba dalyba atimtis sudetis bei saknis ir keltu kvadratu buciau labai dekingas :)


bandei ieskoti pavyzdziu cia: Pascal pamokos
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Neprisijungęs duovis

  • Naujokas
  • *
  • Įrašai: 3
  • Karma: +1/-0
    • Žiūrėti profilį
Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #11 Įrašytas: 2011-10-09 19:01:01 pm »
DIEKUI PADEJO ;)

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #12 Įrašytas: 2011-10-10 10:14:11 am »
DIEKUI PADEJO ;)

tai jei padejo, tai butu fainai, jei parekomenduotum ir draugams, kurie mokosi programuoti :))
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Neprisijungęs duovis

  • Naujokas
  • *
  • Įrašai: 3
  • Karma: +1/-0
    • Žiūrėti profilį
Re: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #13 Įrašytas: 2011-10-10 18:43:50 pm »
butinai ;)

Neprisijungęs juodas

  • Naujokas
  • *
  • Įrašai: 87
  • Karma: +0/-0
    • Žiūrėti profilį
Ats: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #14 Įrašytas: 2012-06-11 17:08:37 pm »
1:textbackground(white);                               {Fono spalva}
Turiu toki klausima. Kodel rasei 1:textbackground(white); bet ne textbackground(white);, zodziu ka reiskia tas 1:?

=======
Papildyta:
=======

Turiu toki klausima. Gal zinai kaip traukti sakni? Nes dabar sprendziu toki uzdavini ir pastrigau ties saknies traukimu. Dabar man bereikia tik sakni istraukti ir viskas bus ok. Pridesiu .pas faila ir nurasysiu uzdavini.
Failas: http://www64.zippyshare.com/v/42774354/file.html
Parasykite programa, kuri apskaiciuotu staciakampio, kurio virsutinio kairiojo tasko (x1;y1) ir apatinio desiniojo tasko (x2;y2) koordinates yra sveikieji skaiciai, plota S ir perimetra P. Nurodytu tasku koordinates ivedamos klaviatura. Staciakampio krastines lygeriacios su koordinaciu asimis.
Patikrinkite. Kai x1 = 0, y1 = 5, x2 = 4, y2 = 0, turi buti spausdinama:
Staciakampio plotas S = 20 kvadr. vnt.
Staciakampio perimetras P = 18 vnt.
[/font]

P.S. Dabar nurasydamas uzdavini pastebejau, kad staciakampio krastines lygiagrecios su koordinaciu asimis, tai tuomet sprendimas visai kitoks ir nereikia tos saknies. Ir pasitikrinimas duotas kai 2 taskai yra ant koordinaciu asiu. Na bet vistiek idomu kaip gi ta saknis traukiama, kas mokate, atsiuskit.
« Paskutinį kartą keitė: 2012-06-11 17:24:51 pm sukūrė juodas »
Seksas visai kaip matematika, atemi kelnes, pridedi lovą, padalini kojas ir daugini. Svarbu laiku ištraukti šaknį, kad neliktų liekanos.

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Ats: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #15 Įrašytas: 2012-06-11 20:33:51 pm »
1:textbackground(white);                               {Fono spalva}
Turiu toki klausima. Kodel rasei 1:textbackground(white); bet ne textbackground(white);, zodziu ka reiskia tas 1:?

=======
Papildyta:
=======

Turiu toki klausima. Gal zinai kaip traukti sakni? Nes dabar sprendziu toki uzdavini ir pastrigau ties saknies traukimu. Dabar man bereikia tik sakni istraukti ir viskas bus ok. Pridesiu .pas faila ir nurasysiu uzdavini.
Failas: http://www64.zippyshare.com/v/42774354/file.html
Parasykite programa, kuri apskaiciuotu staciakampio, kurio virsutinio kairiojo tasko (x1;y1) ir apatinio desiniojo tasko (x2;y2) koordinates yra sveikieji skaiciai, plota S ir perimetra P. Nurodytu tasku koordinates ivedamos klaviatura. Staciakampio krastines lygeriacios su koordinaciu asimis.
Patikrinkite. Kai x1 = 0, y1 = 5, x2 = 4, y2 = 0, turi buti spausdinama:
Staciakampio plotas S = 20 kvadr. vnt.
Staciakampio perimetras P = 18 vnt.
[/font]

P.S. Dabar nurasydamas uzdavini pastebejau, kad staciakampio krastines lygiagrecios su koordinaciu asimis, tai tuomet sprendimas visai kitoks ir nereikia tos saknies. Ir pasitikrinimas duotas kai 2 taskai yra ant koordinaciu asiu. Na bet vistiek idomu kaip gi ta saknis traukiama, kas mokate, atsiuskit.


ar tik nebus tas 1: skirtas goto 1; kad goto nueitu i 1..

p.s. sakni turetu traukt taip:

sqrt(4); // = 2
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Manualai.lt Forumas

Ats: {Pascal} Skaičiuotuvas naudojantis CRT Biblioteką
« Atsakymas #15 Įrašytas: 2012-06-11 20:33:51 pm »