Dažnai žmonės susiduria su situacijomis kai negali/nenori siųsti keleto programų pvz.: kelti į rapidshare.de po vieną yra grynas nervų gadinimas, o po to dar jas reikia ir parsisiųsti.
Pasinaudodami šiuo straipsniu galėsite sukurti savo komandinę eilutę skirtą paleisti jūsų kurtoms programoms. Visos programos ir komandinė eilutė bus viename faile.
Trūkumas tik tas, kad turėsite atsisakyti malonumo kintamuosius vadinti abėcėlės raidėmis, nes jų gali neužtekti.

Pradėdami kurti programą turime sukurti tokius pačius kintamuosius kaip ir kitose programose.
Tada naudojamės sąlyga if. Ir rašome:

if stringas = 'komanda' then begin { Kintamąjam stringas priskirkite 'string' tipą. }
{čia rašote visą programos kodą iki 'end.', neimtinai}
end;
else if stringas = 'komanda2' then begin
{čia rašote visą kitos programos kodą iki 'end.', neimtinai}
end;

Taip sukuriame programą su kitomis programomis viduje.

Visa programa atrodytų maždaug taip:

program konsole;
var stringas : string; kiti, kintamieji : integer;
begin
writeln('Įveskite komandą: ');
read(stringas);
if stringas = 'komanda' then begin
{čia rašote visą programos kodą iki 'end.', neimtinai}
end;
else if stringas = 'komanda2' then begin
{čia rašote visą kitos programos kodą iki 'end.', neimtinai}
end;
readln;
end.

Panašūs straipsniai


“Sudedame keletą programų į vieną” komentarų: 6

  1. NetRaider

    Arba aš kažko nesupratau, arba čia paprasčiausias sąlygos sakinio panaudojimas.. Bet, vis geriau, nei nieko!

  2. NoTriX

    Na tikrai labaj elementaru… ;) gi galima visas programas surashyti i proceduras ir/arba funkcija ir nereikes net jaudintis del kintamuju… ;) gales buti ir vienodi ir skirtingi…

  3. eXtazY

    Na o kodėl nesuglaudinus failo? Kam bereikalo dirbti;]

  4. criminal

    O tai nepatogiau prieš upload’inant suarchyvuoti tas visas programas? Ir nereikės kelti keliolikos failų ir nereiks marazmais užsiiminėti :)

  5. nana

    Archyveriai kartais nebūna suinstaliuoti, ypač dažnai taip atsitinka viešose interneto prieigose.

  6. Mr.Killer

    Man mokytojas sakė kad pascal palaiko switch() funkcija, bet taip reliai neišbandžiau. Pabandysiu parašyti kažką panašaus.

    repeat begin
    readln(programa);
    switch(programa) {
    case ‘kukuliatorius’ begin
    end;
    brake;
    case ’skuciutuvas’ begin
    end;
    brake;
    }
    end
    until programa = ‘exit’;

    Skanaus….

Rašyti komentarą

Jūs privalote prisijungti jeigu norite rašyti komentarą.