Peršokti į turinį

[C++] Paprastas Konsolinis žaidimas.


Amxxl

Ši tema yra neaktyvi. Paskutinis pranešimas šioje temoje buvo prieš 4106 dienas (-ų). Patariame sukurti naują temą, o ne rašyti naują pranešimą.

Už neaktyvių temų prikėlimą galite sulaukti įspėjimo ir pranešimo pašalinimo!

Recommended Posts

  • Parašė po 3 savaičių...
Praita savaite buvo Informatikos pamoka man ir mokytojo paklausiau kokia programavimo kalba imsim tai sakė " Paskalį " (jai kas žino apie ką jis papasakokit) , tai paklausiau ar bus c++ tas vos atsakymą sugalvojo kaip nežinodamas kas tai yra :DD

WTF??? Paskalis :D koks ten mokytojas?gal koki kiemsargi pajeme??? :funny:

Nuoroda į komentarą
Dalintis per kitą puslapį

Praita savaite buvo Informatikos pamoka man ir mokytojo paklausiau kokia programavimo kalba imsim tai sakė " Paskalį " (jai kas žino apie ką jis papasakokit) , tai paklausiau ar bus c++ tas vos atsakymą sugalvojo kaip nežinodamas kas tai yra :DD

Kiek programavau su paskaliu tai galiu pasakyti tiek:

Paskalis labai paprasta programavimo kalba,

Su juo parašytos programos bus konsoliniam lange,

Esu dar kažkur girdėjęs apie objektini paskalį bet naudoti neteko.

Praita savaite buvo Informatikos pamoka man ir mokytojo paklausiau kokia programavimo kalba imsim tai sakė " Paskalį " (jai kas žino apie ką jis papasakokit) , tai paklausiau ar bus c++ tas vos atsakymą sugalvojo kaip nežinodamas kas tai yra :DD

WTF??? Paskalis :D koks ten mokytojas?gal koki kiemsargi pajeme??? :funny:

O Ko tau tas paskalis užkliuvo? gera programavimo kalba :)

Nuoroda į komentarą
Dalintis per kitą puslapį

Praita savaite buvo Informatikos pamoka man ir mokytojo paklausiau kokia programavimo kalba imsim tai sakė " Paskalį " (jai kas žino apie ką jis papasakokit) , tai paklausiau ar bus c++ tas vos atsakymą sugalvojo kaip nežinodamas kas tai yra :DD

Free Pascal'is arba FPS (siųstis LT versija) yra įtrauktas į vidurinės mokyklos kursą, jei neklystu, kaip pasirenkamas dalykas.

Free pascal

Sena programavimo kalba, dabar naudojama beveik tik kaip mokymo priemonė, nes yra lengvai išmokstama ir suprantama. Per ją lengviausiai galima "pagauti" programavimo principą.

Tačiau Free Pascal kalbos išmokimas neišeis per nieką, nes jei kolegijoje ar universitete įstosit į informatikos specialybę, ten pirmame kurse dažniausiai būna paskaita, per kurią mokins naujų programavimo idėjų, būtent su tuo pačiu Free Pascal. Žinoma mokins ir kitų kalbų.

Taip pat išmokus Free Pascal, beveik galima sakyti mokėsit programuoti ir Delphi programavimo kalba, nes kodas jų beveik nesiskiria.

Mokytojai tikriausiai sakys, kad Free Pascal yra gera programavimo kalba ir apie kitas galbūt nelabai ką žinos, bet besidomintys programavimu žmonės ir programavimo dėstytojai sako, kad šiuo metu protingiausios ir daugiausiai perspektyvų turinčios kalbos yra Java, C++, ir kai kurie sako, kad PHP gera, todėl, kad gana lengva ir daug kur naudojama, bet pati kaip kalba nėra tobula. Mano asmenine nuomone čia dar turėtų būti bent viena kalba, o PHP parašyta sąrašo gale ir išblukusiomis raidėmis. Tačiau PHP nenurašyčiau, nes protingai bei vietoje ir laiku naudojant šią kalbą galima pasiekti tikrai gerų rezultatų.

Pavyzdžiui SuperGames.lt parašytas beveik vien tik PHP kalba ir kol jis nėra didelis projektas kaip koks Facebook, tol viskas bus puiku. Tas pats facebook.com pradžioje buvo parašytas PHP kalba, dabar daug kas mano, kad jis dalinai arba jau nedalinai perrašytas kitomis kalbomis. Be to Facebook programuotojai persirašė patį PHP varikliuką ir iš dalies jis tapo kai kuo panašus į C++. Bet čia jau tai suprasit ateityje. :)

Pradžiai išmokit gerai Free Pascal, bet turėkit galvoje, kad tai tik viena iš daugelio ir ne pati geriausia programavimo kalba, o ateityje jeigu tęsit programavimo darbus galėsit mokytis kitų programavimo kalbų.

Nuoroda į komentarą
Dalintis per kitą puslapį

Praita savaite buvo Informatikos pamoka man ir mokytojo paklausiau kokia programavimo kalba imsim tai sakė " Paskalį " (jai kas žino apie ką jis papasakokit) , tai paklausiau ar bus c++ tas vos atsakymą sugalvojo kaip nežinodamas kas tai yra :DD

Free Pascal'is arba FPS (siųstis LT versija) yra įtrauktas į vidurinės mokyklos kursą, jei neklystu, kaip pasirenkamas dalykas.

Free pascal

Sena programavimo kalba, dabar naudojama beveik tik kaip mokymo priemonė, nes yra lengvai išmokstama ir suprantama. Per ją lengviausiai galima "pagauti" programavimo principą.

Tačiau Free Pascal kalbos išmokimas neišeis per nieką, nes jei kolegijoje ar universitete įstosit į informatikos specialybę, ten pirmame kurse dažniausiai būna paskaita, per kurią mokins naujų programavimo idėjų, būtent su tuo pačiu Free Pascal. Žinoma mokins ir kitų kalbų.

Taip pat išmokus Free Pascal, beveik galima sakyti mokėsit programuoti ir Delphi programavimo kalba, nes kodas jų beveik nesiskiria.

Mokytojai tikriausiai sakys, kad Free Pascal yra gera programavimo kalba ir apie kitas galbūt nelabai ką žinos, bet besidomintys programavimu žmonės ir programavimo dėstytojai sako, kad šiuo metu protingiausios ir daugiausiai perspektyvų turinčios kalbos yra Java, C++, ir kai kurie sako, kad PHP gera, todėl, kad gana lengva ir daug kur naudojama, bet pati kaip kalba nėra tobula. Mano asmenine nuomone čia dar turėtų būti bent viena kalba, o PHP parašyta sąrašo gale ir išblukusiomis raidėmis. Tačiau PHP nenurašyčiau, nes protingai bei vietoje ir laiku naudojant šią kalbą galima pasiekti tikrai gerų rezultatų.

Pavyzdžiui SuperGames.lt parašytas beveik vien tik PHP kalba ir kol jis nėra didelis projektas kaip koks Facebook, tol viskas bus puiku. Tas pats facebook.com pradžioje buvo parašytas PHP kalba, dabar daug kas mano, kad jis dalinai arba jau nedalinai perrašytas kitomis kalbomis. Be to Facebook programuotojai persirašė patį PHP varikliuką ir iš dalies jis tapo kai kuo panašus į C++. Bet čia jau tai suprasit ateityje. :)

Pradžiai išmokit gerai Free Pascal, bet turėkit galvoje, kad tai tik viena iš daugelio ir ne pati geriausia programavimo kalba, o ateityje jeigu tęsit programavimo darbus galėsit mokytis kitų programavimo kalbų.

Geras straipsnis :)

Nuoroda į komentarą
Dalintis per kitą puslapį

  • Parašė po 2 savaičių...

Kad jau užvedėt kalba apie paskali tai štai ir Kryžiukai nuliukai ant pascalio:

program TicTacToe;
var mas : array[1..9] of char;
   PlayerTurn : integer;
   PlayerMark : char;
   IsPlaying : boolean;
   ValidMove : boolean;
   Move : integer;
   WinGame : boolean;
   GameOver : boolean;
   Question : char;
   n : integer;
begin
 for n := 1 to 9 do begin
   mas[n] := chr(48 + n);
 end;
 PlayerTurn := 1;
 IsPlaying := true;
 ValidMove := true;

 while IsPlaying do begin
   WriteLn(mas[1], '|', mas[2], '|', mas[3]);
   WriteLn('-+-+-');
   WriteLn(mas[4], '|', mas[5], '|', mas[6]);
   WriteLn('-+-+-');
   WriteLn(mas[7], '|', mas[8], '|', mas[9]);

   if PlayerTurn = 1 then
     PlayerMark := 'X'
   else
     PlayerMark := 'O';

   ValidMove := true;
   WriteLn('Player', PlayerTurn, '`s move:');

   while ValidMove do begin
     ReadLn(Move);

     for n := 1 to 9 do begin
       if (Move = n) AND (mas[n] = chr(48 + n)) then begin
         mas[n] := PlayerMark;
         ValidMove := false;
       end;
     end;

     if ValidMove = true then begin
       WriteLn('Invalid move try again:');
     end;
   end;

   if mas[1] <> '1' then begin
     if (mas[1] = mas[2]) AND (mas[2] = mas[3]) then begin
       WinGame := true;
       GameOver := true;
     end;
     if (mas[1] = mas[4]) AND (mas[4] = mas[7]) then begin
       WinGame := true;
       GameOver := true;
     end;
   end;

   if mas[5] <> '5' then begin
     if (mas[5] = mas[2]) AND (mas[2] = mas[8]) then begin
       WinGame := true;
       GameOver := true;
     end;
     if (mas[5] = mas[4]) AND (mas[4] = mas[6]) then begin
       WinGame := true;
       GameOver := true;
     end;
     if (mas[5] = mas[1]) AND (mas[1] = mas[9]) then begin
       WinGame := true;
       GameOver := true;
     end;
     if (mas[5] = mas[3]) AND (mas[3] = mas[7]) then begin
       WinGame := true;
       GameOver := true;
     end;
   end;

   if mas[9] <> '9' then begin
     if (mas[9] = mas[6]) AND (mas[6] = mas[3]) then begin
       WinGame := true;
       GameOver := true;
     end;
     if (mas[9] = mas[8]) AND (mas[8] = mas[7]) then begin
       WinGame := true;
       GameOver := true;
     end;
   end;

   if (mas[1] <> '1') AND (mas[2] <> '2') AND (mas[3] <> '3') AND (mas[4] <> '4') AND (mas[5] <> '5') AND (mas[6] <> '6') AND (mas[7] <> '7') AND (mas[8] <> '8') AND (mas[9] <> '9') then begin
     WinGame := false;
     GameOver := true;
   end;

   if GameOver = true then begin
       if WinGame = true then begin
         WriteLn(mas[1], '|', mas[2], '|', mas[3]);
         WriteLn('-+-+-');
         WriteLn(mas[4], '|', mas[5], '|', mas[6]);
         WriteLn('-+-+-');
         WriteLn(mas[7], '|', mas[8], '|', mas[9]);
         WriteLn('Player', PlayerTurn, '`s Win!');
       end;
       WriteLn('GameOver!');

       WriteLn('Do you want try again? (y/n)');
       ReadLn(Question);

       if Question = 'y' then begin
         for n := 1 to 9 do begin
           mas[n] := chr(48 + n);
         end;
         PlayerTurn := 1;
         IsPlaying := true;
         WinGame := false;
         GameOver := false;
       end
       else begin
         IsPlaying := false;
       end;
   end
   else begin
     if PlayerTurn = 1 then
       PlayerTurn := 2
     else
       PlayerTurn := 1;
   end;
 end;
end.

Nuoroda į komentarą
Dalintis per kitą puslapį

  • Parašė po 3 savaičių...
":121mnzjp]
Cia toks juokingas klausimas,gali pasakyt kur randasi Fps programa kompe?:)))

Pas mane tai:

C:\Program Files\FPS\Fps.exe

Tu siunteisi ja?

Taip, iš čia yra dar ir pamokų ten bet ne visos kurių reikia...

o šiaip arnius gali man į skype parašyk atsakysiu į visus klausimus :) apie FPS...

Nuoroda į komentarą
Dalintis per kitą puslapį

Ši tema yra neaktyvi. Paskutinis pranešimas šioje temoje buvo prieš 4106 dienas (-ų). Patariame sukurti naują temą, o ne rašyti naują pranešimą.

Už neaktyvių temų prikėlimą galite sulaukti įspėjimo ir pranešimo pašalinimo!

Svečias
Ši tema yra užrakinta.
  • Šiame puslapyje naršo:   0 nariai

    • Nėra registruotų narių peržiūrinčių šį forumą.

Skelbimai


×
×
  • Sukurti naują...