Pereiti prie turinio

armiiis

Patvirtinti nariai
  • Pranešimai

    22
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%

armiiis Pranešimai

  1. Sveiki. Gal kas galėtų padėti su algoritmu, ar duoti idėjų :)

     

    Turiu du tekstinius failus, juos abu reikia sutvarkyti pagal šiuos kriterijus ir surašyti i naują failą.

     


    •  

    kopijuojamas pirmojo failo tekstas tol, kol sutinkamas pirmasis antrojo failo žodis arba pasiekiama

    failo pabaiga;


    •  

    kopijuojamas antrojo failo tekstas tol, kol sutinkamas pirmasis nenukopijuotas pirmojo failo žodis

    arba pasiekiama failo pabaiga;


    •  

    kartojama tol, kol pasiekiama abiejų failų pabaiga.

  2. Ech.. vistiek nepavyksta man. Pridėjau tą readln, kad pradėtu kitą eilutę skaityti, bet vistiek man nenuskaito tų duomenų. Tik pirmąją eilutę.

     

    Procedure skaityti;
    var i, j, n, k: integer;
       fd : text;
    begin   j:=1;
       Assign(fd, Cduom); reset(fd);
       readln(fd, n, k);
       for i:=1 to n do with D[i] do
       begin
           read(fd, vardas);
           write(vardas);
    
                           for i:=j to k do with D[i] do
                           begin
                           j+=1;
                           read(fd, kaul_sk);
                           write(kaul_sk, ' ');
                           end;
                           writeln;
           readln(fd);
       end;
       close(fd);
    end;

  3. Bandžiau viena programėlę rašyti ir iškart užstrigau ties duomenų nuskaitymu. Net juokinga, kad neišeina kažkas tokioje vietoje... Tai va, programa "Kauliukai" http://nec.lt/failai/2730_IT-1-2012.pdf. Duomenų failo duomenys:

     

    2 3 (2 - dievų skaičius, 3 - tiek kartų metamas kauliukas)

     

    Hermis 6 1 2

     

    Hera 2 6 6

     

    ir nepavyksta šių duomenų nuskaityti gražiai...

    Štai mano programos pradžia. Kai bandau išvesti duomenis į ekraną pasitikrinimui man išveda ne visus duomenis. Išveda tik pirma eilute, kitų kažkodėl nenuskaito ir nesuprantu kodėl.

     

    program Kauliukai;

    const CMax = 50;

    CDuom = 'duom.txt';

    CRez = 'rez.txt';

     

    type Dievai = record

    vardas : string[10];

    Kaul_Sk : integer;

    end;

     

    mas = array[1..Cmax] of Dievai;

     

    var D:Mas; // Dievu ir ismestu kauliuku masyvas

     

     

    Procedure skaityti;

    var i, k, n : integer;

    fd : text;

    begin

    assign(fd, CDuom); reset(fd);

    readln(fd, n, k);

    for i:=1 to n do with D do

    begin

    read(fd, vardas);

    write(vardas);

    for i:=1 to k do with D do

    begin

    read(fd, kaul_sk);

    write(kaul_sk, ' ');

    end;

    end;

    writeln;

    close(fd);

    end;

     

    begin

    skaityti;

    end.

  4. Sveiki, pasirinkau šią temą: Kokie literatūros klasikos personažai gali paskatinti jauną žmogų tobulinti savo būdą ir elgesį? Savo nuomonę pagrįskite aptardami 3–4 klasikos kūrinių personažus.

     

    Gal galėtumėte patarti kokį viena klasikos personažą, kuris atitiktu šią temą. Pasirinkau Girdvaini iš Baltaragio malūno ir Mažajį princą. Trūksta dar kokio nors. Bučiau labai dėkingas už pasiūlymus, nes ketvirtadinį jau reikia atsiskaityti :)

  5. Sveiki, gavau tokį laišką

     

    Dear Valued Customer,

     

    This is Evelyn from Dealextreme.

     

    We are writing to notify you that your latest order is still being held due to EMS service is invalid in your country , and DHL service is temporarily unavailable because of high tax issue.

     

    Would you mind if we ship it via Registered Airmail service ? If so, the EMS cost you paid will be refunded to your PayPal account upon confirmation received from you. But we should mentioned that Airmail service is untraceable once the package leaves HK for your country and it will take a bit longer for the package to reach you.

     

    If you don't agree on it, we will definitely process full refund for this order.

     

    IMPORTANT: This email is only available for sending notification and no one will reply to you here. So please do not reply to this email and ensure your request will be processed promptly, please submit your information via our CSE system at

     

    http://services.dealextreme.com/forms/ChangeOrder.aspx?type=Address

     

    and ATTEN Evelyn in your form. We will get back to you in quickest manner.

     

    Mačiau forume ir kiti yra tokį gave, tik neradau tokio atsakymo, kokio man reikia. Tai tarkim dabar man reikia daryti "Cancel order" ir per naujo užsisakyti prekes tik be EMS? Ar galima kažkaip be "cancel order" nuimti tą EMS ir kad paprastai išsiųstu prekes? Jeigu galima būčiau labai dekingas, jei paaiškintumetė kaip :)

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