Haliucinas

C++11 standartas turi savo konteinerį enkapsuliuojantį masyvus. Dėl jo panaudojimo manau neturėtų bėdų kilt, bet jei savo nori rašyt tai vienas iš būdų būtų: struct Krepsinis { int n; int* k; int* t; int laik; int blaik; int* bL; Krepsinis(const int& n) { this->n = n; k = new int[n]; t = new int[n]; bL = new int[n]; } ~Krepsinis() { delete[] k; delete[] t; delete[] bL; } };

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.

for key, val in userinfo2.items(): try: exec(key + '=val') except Exception, e: err=''

@echo off set file=file.txt FOR /F "tokens=*" %%i IN (%file%) DO ( START %%i TIMEOUT 1 >nul )

//Dalele, nukeliautas atstumas #include <iostream> #include <cstdlib> #include <iomanip> #include <cmath> #include <fstream> #include <climits> using namespace std; int main() { system("chcp 1257"); int m,n; double x1, y1, x2, y2, s, z, ab, speed, minSpeed, maxSpeed, avgSpeed; maxSpeed = avgSpeed = s = 0; minSpeed = INT_MAX; ifstream fd("Duomenys.txt"); ofstream fr("rezultatai.txt"); fd >> m; fd >> n; fd >> x1 >> y1; for (int i = 1; i < m; ++i) { fd >> x2 >> y2; ab = sqrt

@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.

Tarkim, kad saugai baitus kaip intus: b1 = 0xf; b2 = 0x0;. Tada jų sujungimas galėtų būt toks: int b = (b1 << sizeof(int)) + b2;

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.

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;

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; }

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;

-

void Rikiavimas(Automobilis A[], int n) { Automobilis t; bool done = false; while (!done) { done = true; for (int i = 0 ; i < n-1 ; i++) { if ((A[i].pav > A[i+1].pav) || (A[i].pav == A[i+1].pav && A[i].z > A[i+1].z)) { done = false; t = A[i]; A[i] = A[i+1]; A[i+1] = t; } } n--; } }

Šiek tiek kitoks sprendimas: #include <iostream> #include <fstream> using namespace std; #define RECT_NUM 3 #define MAX(x, y) (((x) > (y)) ? (x) : (y)) #define MIN(x, y) (((x) < (y)) ? (x) : (y)) struct Rect { int lx; int ly; int rx; int ry; }; void readFile(Rect rectArray[]) { ifstream fd("data.txt"); for (int i = 0; i < RECT_NUM; i++) { fd >> rectArray[i].lx >> rectArray[i].ly >> rectArray[i].rx >> rectArray[i].ry; } fd.close(); } int maxArea(Rect rectArray[]) { Rect tmp = rectArray[0]; for (int i = 1; i < 3; i++) { if ( t

#include <iostream> #include <fstream> #include <string> using namespace std; struct Apskr { string apskPav; string savPav; int mNum; }; void skaityti(Apskr[]); int main() { Apskr apskr[60]; skaityti(apskr); return 0; } void skaityti(Apskr a[]) { fstream in("U2.txt"); int sk; in >> sk; for (int i = 0; i < sk; i++) { in >> a[i].savPav >> a[i].mNum >> a[i].apskPav; cout << a[i].apskPav << " " << a[i].savPav << " " << a[i].mNum << endl; } }

program HelloWorld; Const n = 20; var myArray : Array[1..n] of Integer; myArray2 : Array[1..n] of Integer; i, j, index : Integer; exist : Boolean; begin Randomize; for i := 1 to n do begin myArray[i] := Random(10)+1; end; for i := 1 to n-1 do write(myArray[i], ', '); writeln(myArray[n]); index := 1; exist := false; for i := 1 to n do begin for j := 1 to n do if myArray[i]<>myArray2[j] then exist := false else begin exist := true; break; end; if not exist then begin myArray2[index]:=myArray[i]; inc(index); end; end; i := 1; while myArray2

Program DBDirMBK; var dbd, mbk: integer; procedure DBDirMBK(a, b: longint); var tmp : integer; begin tmp := a * b; while a<>b do if a > b then a := a - b else b := b - a; dbd := a; mbk := tmp div a; end; begin DBDirMBK(12, 18); writeln('The least common multiple of 12 and 18 is: ', mbk); writeln('The greatest common divisor of 12 and 18 is: ', dbd); end. Nagrinėkis, gal čia aiškiau bus.

Jei galima vietoj procedūros rašyt funkciją tuomet: Program lcmgcd; function lcm(a, b: longint): longint; begin lcm := a; while (lcm mod b) <> 0 do inc(lcm, a); end; function gcd(a, b: longint): longint; begin if a mod b <> 0 then gcd := gcd(b, a mod b) else gcd := b; end; begin writeln('The least common multiple of 12 and 18 is: ', lcm(12, 18)); writeln('The greatest common divisor of 12 and 18 is: ', gcd(12, 18)); end.

Aš be while ir if čia daugiau nieko stebuklingo nenaudoju ko galėtų neleist naudot, o jei tiksliau kas neaišku tai klausk.

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

Čia turbūt turėjo omeny MBR ir GPT disko skirsnių lenteles, o ne disko failų sistemą.

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;

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ė

Kuo kompilini? Nes man viskas gražiai eina. IMG

%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