Pereiti prie turinio

Haliucinas

Nariai
  • Pranešimai

    26
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%

Reputacijos išklotinė

  1. Patinka
    Haliucinas gavo reakciją nuo andriusvv8 C++ uždavinys. Mokyklinis kursas.   
    Atminties apsauga suveikia. Sukurdamas lokalųjį kintamąjį n ir jo neapibrėždamas leidi jam įgyt reikšmę prieš tai buvusią atmintyje. Jei ten buvo 0 tada tavo masyvas turės 0 elementų ir bandydamas įrašyt į kurią nors masyvo vietą gauni nustojimą veikt nors sintaksiškai viskas teisingai bei kompiliuoja gerai.
  2. Patinka
    Haliucinas gavo reakciją nuo DestruCtoR Reikia batch ar kokio kito nesudetingo scripto   
    @echo off set file=file.txt FOR /F "tokens=*" %%i IN (%file%) DO ( START %%i TIMEOUT 1 >nul )
  3. Patinka
    Haliucinas gavo reakciją nuo DestruCtoR Reikia batch ar kokio kito nesudetingo scripto   
    @echo off set file=file.txt FOR /F "tokens=*" %%i IN (%file%) DO ( START %%i TIMEOUT 1 >nul )
  4. Patinka
    Haliucinas gavo reakciją nuo DestruCtoR Reikia batch ar kokio kito nesudetingo scripto   
    @echo off set file=file.txt FOR /F "tokens=*" %%i IN (%file%) DO START %%i
     
    Kiekvienas linkas turėtų būt naujoje failo eilutėje.
  5. Patinka
    Haliucinas gavo reakciją nuo donce16 C++ dviejų baitų sujungimas   
    Tarkim, kad saugai baitus kaip intus:
    b1 = 0xf; b2 = 0x0;. Tada jų sujungimas galėtų būt toks:
    int b = (b1 << sizeof(int)) + b2;
  6. Patinka
    Haliucinas gavo reakciją nuo Julinho 2011 VBE Pirštinės   
    Tai čia sprendimas trivialus, yra n+k būtų padaryt praktiškai tą patį. Vienas iš kitokių kelių, vietoj bool'o galėjai panaudotos pirštinės numerius nuliais užpildyt ir jos nebeskaičiuotų. Tas bool'as šiuo atvėju kaip flagas nurodantis, praleist pirštinę jei su ja pora jau sudaryta.
  7. Patinka
    Haliucinas gavo reakciją nuo Julinho 2011 VBE Pirštinės   
    Bandyk taip:
    Pridėk į struktūrą naują kintamąjį

    struct Pirstines { //failo skaitymui int Sk1; // Vieta pirmam skaičiui iš failo int Sk2; // antram skaičiui int Sk3; // trečiam skaičiui bool used; };
    Skaityme visur jį inicializuok

    for(int i = 0; i < n; i ++) { fd >> A[i].Sk1 >> A[i].Sk2 >> A[i].Sk3; A[i].used = false; }
    Ir tikrinant poras, jau panadotas išmesk

    if(A[i].Sk3 == A[j].Sk3 && A[i].Sk1 == m && A[j].Sk1 == m && A[i].Sk2 != A[j].Sk2 && (!A[i].used && !A[j].used)) { b++; A[i].used = true; A[j].used = true; break; }
  8. Patinka
    Haliucinas gavo reakciją nuo Julinho 2011 VBE Pirštinės   
    Yra viena pirštinė 3 2 25 ir dvi 3 1 25, 3 1 25. Tavo PirstiniuPoros f-ja padaro iš trijų pirštinių dvi poras. Suradus porą nutrauk ciklą ir viskas turėtų būt gerai.

    if(A[i].Sk3 == A[j].Sk3 && A[i].Sk1 == m && A[j].Sk1 == m && A[i].Sk2 != A[j].Sk2) { b++; break; }
  9. Patinka
    Haliucinas gavo reakciją nuo Valdas3 Reikia pagalbos su pascal!   
    Kelių readln prireikia fpc naudojantis kiek atsimenu iš praktikos.
    Dėl išvedimo tai turima omeny nenaudot crt modulio, o ne neišvest į konsolę.
    Mašai c ciklą su paskalio, veiks teisingai, pridėjus i+1 iteruosi per kas antrą i.
     
    Neteisinga. Pagal sąlygą, turi skaičiaus skaitmenis sudėt ir juos tikrint ar dalijasi iš trijų.

    var i, n, sum, rezultatas:integer; begin for i := 1000 to 9999 do begin sum := 0; n := i; while (n > 0) do begin sum += n mod 10; n := n div 10; end; if ((sum mod 3) = 0) then begin rezultatas := i; writeln(rezultatas); end; end; end.
  10. Patinka
    Haliucinas gavo reakciją nuo StorasSushis Paskalis   
    26.
    var N : Longint; maxN : integer; counter, id : integer; begin counter := 1; write('Input: '); readln(N); maxN := N mod 10; while N > 0 do begin if (N mod 10) >= maxN then begin maxN := N mod 10; id := counter; end; N := N div 10; inc(counter); end; writeln('Max: ', maxN); write('Nr.: ', id); end.
    27.
    var N : longint; num1 : integer; num3 : integer; sum : integer; begin write('Input: '); readln(N); num1 := N mod 10; num3 := N mod 1000; num3 := num3 div 100; sum := (num1*num1)+(num3*num3); write('Sum: ', sum); end.
    28.
    var N : longint; begin write('Input: '); readln(N); while N > 0 do begin if ((N mod 10) mod 2) <> 0 then write((N mod 10)*(N mod 10), ' '); N := N div 10; end; end.
  11. Patinka
    Haliucinas gavo reakciją nuo -LeXas- pascal skaiciu atskirimas   
    Išmes neteisingą atsakymą kodas, 20 berods, vietoj 30.
     
    Keli variantai, rinkis patinkantį:
     

    function Sum(k:integer; n:integer):integer; begin Sum := k; for i := 1 to (n-1) do begin k := k + 2; Sum := Sum + k; end; end;
     

    function Sum2(k:integer; n:integer):integer; begin Sum2 := k; if n > 1 then Sum2 := Sum2 + Sum2(k+2,n-1); end;
    arba tiesiog

    s := k; for i := 1 to (n-1) do begin k := k + 2; s := s + k; end;
  12. Patinka
    Haliucinas gavo reakciją nuo yellowcard x86 Assembly programa   
    %title "Trumpiausio zodzio ilgis" .model small .stack 100h .data atsakymas db 0Dh,0Ah,'Trumpiausio zodzio eiluteje ilgis: ','$' eilute dw 255 .code pradzia: mov ax, @data mov ds, ax mov ah, 0Ah mov dx, offset eilute int 21h mov bh,00 mov bl, byte ptr [eilute + 1] mov byte ptr [eilute + bx + 2], ' ' mov byte ptr [eilute + bx + 3], '$' mov di, 2 mov si, 0 mov bx, 00ffh .tikrink: cmp byte ptr [eilute + di], '$' je .pabaiga cmp byte ptr [eilute + di], ' ' je .tarpas inc di inc si jmp .tikrink .tarpas: cmp bx, si ja .didesnis inc di mov si, 0 jmp .tikrink .didesnis: mov bx, si inc di mov si, 0 jmp .tikrink .pabaiga: mov ah, 09h mov dx, offset atsakymas int 21h add bl, '0' mov al, bl int 29h mov ah, 4Ch int 21h end pradzia
     
    Programa išves gerą atsakymą jeigu mažiausias žodis bus iki 9 simbolių. Čia kaipo viskas elementaru tai nepyk, bet tingiu aiškint. :D
  13. Patinka
    Haliucinas gavo reakciją nuo yellowcard x86 Assembly programa   
    Dėl veikimo programos tai EMU neturi 29h interrupto, todėl eilutę

    mov al, bl int 29h
    pakeisk į

    mov ah, 02h mov dl, bl int 21h
     

    %title "Trumpiausio zodzio ilgis" .model small .stack 100h .data atsakymas db 0Dh,0Ah,'Trumpiausio zodzio eiluteje ilgis: ','$' eilute dw 255 .code pradzia: mov ax, @data ; init .data seg mov ds, ax ; mov ah, 0Ah ; isvedimo funkc. mov dx, offset eilute int 21h mov bh,00 mov bl, byte ptr [eilute + 1] ; po 0Ah funkcijos, pirmi du baitai rodo įvestos eilutės ilgį, tas ilgis išsaugomas mov byte ptr [eilute + bx + 2], ' ' ; eilutės gale tarpas (kitaip netikrintų paskutinio žodžio) mov byte ptr [eilute + bx + 3], '$' ; žymi eilutės pabaigą mov di, 2 ; di, si - iteruojami registrai mov si, 0 ; mov bx, 00ffh ; bet kokia reiškmė didesnė už 10, skirta tikrinimui su žodžio ilgiu .tikrink: cmp byte ptr [eilute + di], '$' ; tikrina ar eilutės pabaiga, jei pabaiga šoka į ".pabaiga:" je .pabaiga cmp byte ptr [eilute + di], ' ' ; tikrina ar tarpas je .tarpas inc di inc si jmp .tikrink ; nepraėjus tikrinimų šoka atgal į pradžią su padidintais di, si .tarpas: cmp bx, si ; jei žodžio ilgis mažesnis už buvusį žodžio ilgį (bx) ir jį priskiria. jei ne tikrina toliau ja .didesnis inc di mov si, 0 jmp .tikrink .didesnis: mov bx, si inc di mov si, 0 jmp .tikrink .pabaiga: mov ah, 09h ; išveda funkc. mov dx, offset atsakymas int 21h add bl, '0' ; hex2dec mov ah, 02h ; išveda mažiausią ilgį mov dl, bl int 21h mov ah, 4Ch int 21h end pradzia
     
    dėl mokymosi, tai galiu pasiųlyt tik intelio dokumentaciją.
    kur jus čia kankina su tuo emu?
  14. Patinka
    Haliucinas gavo reakciją nuo yellowcard x86 Assembly programa   
    %title "Trumpiausio zodzio ilgis" .model small .stack 100h .data atsakymas db 0Dh,0Ah,'Trumpiausio zodzio eiluteje ilgis: ','$' eilute dw 255 .code pradzia: mov ax, @data mov ds, ax mov ah, 0Ah mov dx, offset eilute int 21h mov bh,00 mov bl, byte ptr [eilute + 1] mov byte ptr [eilute + bx + 2], ' ' mov byte ptr [eilute + bx + 3], '$' mov di, 2 mov si, 0 mov bx, 00ffh .tikrink: cmp byte ptr [eilute + di], '$' je .pabaiga cmp byte ptr [eilute + di], ' ' je .tarpas inc di inc si jmp .tikrink .tarpas: cmp bx, si ja .didesnis inc di mov si, 0 jmp .tikrink .didesnis: mov bx, si inc di mov si, 0 jmp .tikrink .pabaiga: mov ah, 09h mov dx, offset atsakymas int 21h add bl, '0' mov al, bl int 29h mov ah, 4Ch int 21h end pradzia
     
    Programa išves gerą atsakymą jeigu mažiausias žodis bus iki 9 simbolių. Čia kaipo viskas elementaru tai nepyk, bet tingiu aiškint. :D
×
×
  • Pasirinkite naujai kuriamo turinio tipą...